3 Commencez par taper le code suivant pour créer un nouveau sous procédure :
updateSpreadSheet Private Sub ()
On Error GoTo Err_updateSpreadSheet :
4
Tapez le code suivant pour créer le classeur et objets de feuille de calcul : Trouvez < p> wkBkObj As Excel.Workbook
xlSheet As Excel.Worksheet
5
ouvrez un classeur Excel existant et utilisez Sheet1 que la feuille de mettre à jour en ajoutant le code suivant:
Set wkBkObj = Workbooks.Open ("C: \\ mySpreadsheet.xlsx " )
Set xlSheet = wkBkObj.Worksheets ( "Sheet1" )
wkBkObj.Windows ( 1) . Visible = True
6
Ajoutez le code VBA suivant pour mettre à jour A1 de la feuille de calcul : . .
xlSheet
Range (" A1") Sélectionnez
. Range (" A1") . Value = " valeur actualisée à partir d'Access "
End With
7
enregistrez, fermez le classeur Excel, et mettre fin à la procédure en ajoutant le code suivant :
wkBkObj.Save
wkBkObj.Close
Exit_updateSpreadSheet :
Exit Sub
Err_updateSpreadSheet : < br >
MsgBox Err.Description
CV Exit_updateSpreadSheet :
End Sub
8
Appuyez sur " F5" pour exécuter la procédure et mettre à jour votre tableur < br . >
