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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  access/excel exportation données

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

access/excel exportation données

n°1014501
porcinet82
Posté le 16-03-2005 à 14:12:41  profilanswer
 

Bonjour,
 
j'ai une base de données sous access, à l'aide d'une requete, j'extrait des données que je veu copier sous un fichier excel que g au péalable définit. jusque la pas de pb.
 
le 1er pb vient du fait que je voudrais copier mes données sous excel dans une plage de données spécifique. la raison est que des graphes et des calculs sont sur la feuille de calcul, et donc je voudrais que tout cela s'automatise.
 
un autre pb, lorsque j'importe d'access vers excel, il me cré une seule feuille de calcul et supprime tt le reste (les autres feuilles et les autres calculs, chiffres...)
 
donc si qqun peut me filer un coup de main
 
merci d'avance

mood
Publicité
Posté le 16-03-2005 à 14:12:41  profilanswer
 

n°1014868
porcinet82
Posté le 16-03-2005 à 16:46:03  profilanswer
 

g essayé des solutions, g trouvé ca (voir le code ci-dessous), ca execute ma requete, ca ouvre mon fichier excel et apres ca plante (message d'erreur : "objet requis" sur la ligne "appexcel.Cells(1, 1) = rst![stDocName]![mois]" )
 
code:
 
Sub test()
    Dim stDocName As String
    Dim appexcel As Excel.Application
    Dim wbexcel As Excel.Workbook
     
    stDocName = "d- Valorisation mensuelle des journées sup de réa"
    DoCmd.OpenQuery stDocName, , acReadOnly
     
    Set appexcel = CreateObject("Excel.Application" )
    appexcel.Visible = True
    Set wbexcel = appexcel.Workbooks.Open("F:\stage sim\T2A 2004\Prévision\test.xls" )
     
    appexcel.Sheets("donnees" ).Select
    appexcel.Cells(1, 1) = rst![stDocName]![mois]
    appexcel.Cells(1, 2) = rst![stDocName]![annee]
    appexcel.Cells(1, 3) = rst![stDocName]![reanimation]
End Sub
 
si qqun peut m'aider!!!

n°1015041
galopin01
Posté le 16-03-2005 à 19:16:05  profilanswer
 

bonjour,
un peu au hasard, moi j'y vois comme ça:
au lieu de :
appexcel.Sheets("donnees" ).Select  
mettre
With appexcel.Sheets("donnees" )
.Cells(1, 1) = rst![stDocName]![mois]  
.Cells(1, 2) = rst![stDocName]![annee]  
.Cells(1, 3) = rst![stDocName]![reanimation]  
End With
??
A+


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

  access/excel exportation données

 

Sujets relatifs
transformer un fichier de données en tableauliaison prog C++ et excel
[tomcat 5] [SQL Server] connection à la base de données[access] Ds une requete, convertir un champ texte en date
probleme insertion base de données[VBA] syntaxe textbox sous access
[Excel] Retourner la valeur d'une cellule[access] DBEngine.Workspaces(0).Groups(x).name ???
[Access]remplissage auto d'un champ.misa a jour bdd mysql par access
Plus de sujets relatifs à : access/excel exportation données


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