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

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

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+