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

  FORUM HardWare.fr
  Programmation
  XML/XSL

  pilotage excel+access erreur initialisation

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

pilotage excel+access erreur initialisation

n°1164727
julseb
Posté le 29-07-2005 à 14:12:48  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: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 :D

mood
Publicité
Posté le 29-07-2005 à 14:12:48  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  XML/XSL

  pilotage excel+access erreur initialisation

 

Sujets relatifs
[resolu]Warning qui s'affiche malgré un traitement de l' erreurCreation d'un tableau avec données issues de BDD Access
erreur bizarre avec onclick et onload[Excel] probleme de formule
VBA EXCEL. Faire attendre la fin d'une query pour continuer.Cannot open Include file: erreur basique mais pb
[Access] - Probleme de critere conditionnel et champs nulsprogrammer un état sous vba access
Requete SQL à une base Access depuis JAVAunique sur 2 champs en Access
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