Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1721 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  pilotage excel+access erreur initialisation

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

pilotage excel+access erreur initialisation

n°1164733
julseb
Posté le 29-07-2005 à 14:14:18  profilanswer
 

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 :D


Message édité par julseb le 29-07-2005 à 14:16:13
mood
Publicité
Posté le 29-07-2005 à 14:14:18  profilanswer
 

n°1164739
FlorentG
Unité de Masse
Posté le 29-07-2005 à 14:17:13  profilanswer
 

Ca serait cool d'avoir le message d'erreur ;)


---------------
last.fmflickr
n°1164748
julseb
Posté le 29-07-2005 à 14:19:12  profilanswer
 

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

n°1164750
julseb
Posté le 29-07-2005 à 14:20:15  profilanswer
 

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

n°1164751
FlorentG
Unité de Masse
Posté le 29-07-2005 à 14:20:40  profilanswer
 

Ca va vraiment jusqu'à C910 ?


---------------
last.fmflickr
n°1164756
julseb
Posté le 29-07-2005 à 14:22:22  profilanswer
 

ouii :P

n°1164760
FlorentG
Unité de Masse
Posté le 29-07-2005 à 14:23:09  profilanswer
 

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


---------------
last.fmflickr
n°1164771
julseb
Posté le 29-07-2005 à 14:29:05  profilanswer
 

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
 

n°1164776
julseb
Posté le 29-07-2005 à 14:30:45  profilanswer
 

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

n°1164787
jpcheck
Pioupiou
Posté le 29-07-2005 à 14:36:09  profilanswer
 

julseb a écrit :

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 ^^

mood
Publicité
Posté le 29-07-2005 à 14:36:09  profilanswer
 

n°1164793
julseb
Posté le 29-07-2005 à 14:38:49  profilanswer
 

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

n°1164795
julseb
Posté le 29-07-2005 à 14:39:07  profilanswer
 

deux boucles pour cela ??

n°1164800
julseb
Posté le 29-07-2005 à 14:42:42  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  pilotage excel+access erreur initialisation

 

Sujets relatifs
pilotage excel+access erreur initialisation [resolu]Warning qui s'affiche malgré un traitement de l' erreur
Creation d'un tableau avec données issues de BDD Accesserreur bizarre avec onclick et onload
[Excel] probleme de formuleVBA EXCEL. Faire attendre la fin d'une query pour continuer.
Plus de sujets relatifs à : pilotage excel+access erreur initialisation


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR