Bonjour,
 
Voila je veux piloter excel par Access mais j'ai un message d'erreur à 'liniatialtion des variables avec Excel.Application voici le code:
Private Sub Exporter_Click()
 
Dim qd As QueryDef
Dim req
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
'J'initialise mes variables et le chemin ou se trouve le fichier excel qui va recevoir les données
Set xlApp = CreateObject("Excel.Application" )
Set xlBook = xlApp.Workbooks.Open("T:\BASE FINAL\testexport.xls" )
 
'Transfert de mes données d'access vers fichier Excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "SommeParRegroup", "T:\\BASE FINAL\testexport.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Regroup", "T:\BASE FINAL\testexport.xls"
 
'copier/coller
xlBook.Worksheets("SommeParRegroup" ).Range("A1:C910" ).Copy Destination:=xlBook.Worksheets("T:\BASE FINAL\Feuil1.xls" ).Range("A1:C910" )
xlBook.Worksheets("Regroup" ).Range("A1:F5000" ).Copy Destination:=xlBook.Worksheets("T:\BASE FINAL\Feuil1.xls" ).Range("C911:C910" )
xlBook.Save
xlBook.Quit
 
'vidage des objets
Set xlApp = Nothing
Set xlBook = Nothing
 
MsgBox "Fin de la procédure "
 
End Sub
 
 
POurriez vous m'aider svp