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:C9000" )
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

Ca serait cool d'avoir le message d'erreur

lol kel noob g trouvé:
 
Dim xlApp  
Dim xlSheet  
Dim xlBook  
 
mais now g une erreur ici:
 
xlBook.Worksheets("SommeParRegroup" ).Range("A1:C910" ).Copy Destination:=xlBook.Worksheets("T:\BASE FINAL\Feuil1.xls" ).Range("A1:C910" )  

le message d'erreur maintenant c'est:
 
erreur d'execution'9'
L'indice n'appartient pas a la selection

Ca va vraiment jusqu'à C910 ?

ouii

L'argument du deuxième Worksheets, ça doit être le nom de la feuille, et non le nom du fichier, non ?

comment ca cela serait plutot ca:
xlBook.Worksheets("SommeParRegroup" ).Range("A1:C910" ).Copy Destination:=xlBook.Worksheets("Feuil1" ).Range("A1:C910" )  
 
car les deux feuilles sont sur le meme fichier
 

peut être que c'est pas comme cela kon le pilote kon est sur le meme fichier car même cela ne marche pas:
 
xlBook.Worksheets("SommeParRegroup" ).Range("A1:C910" ).Copy Destination:=xlBook.Worksheets("Feuil1" ).Range("A1:C910" )

sinon tu fais deux pov boucles for
et tu fais
dim i as integer
dim j as integer
for i=1 to 910
    for j=1 to 3
         sheets("feuill" ).cells(i,j).value=sheets("sommeparregroup" ).cells(i,j).value
    next j
next i
 
c long et pas bo mais ca marche ^^

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:C9000" )  

deux boucles pour cela ??

cela ne marche via access ta boucle noublie po ke je pilote excel via access