Discussion :

[mat_lefebvre]

Bonjour,

J'ai rerere une question mais cette fois pas dur. Meme si je trouve pas !!!!

Je récupére des données acces et essaye de les envoyer sous des feuilles excel. J'ai fait et reupérer cela . qui ùa fois me va tre bien.

Mais je ne trouve pas comment faire pour lui dire de planter les données dans tel feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'Défini le nom de votre fichier Excel
MonFichier = "PREVTRESTIB.xls"
 
'Ouvre l'application Excel
Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la variable et charge Excel en arrière plan
MonXL.Visible = True 'Rend Excel visible...
MonXL.UserControl = True
 
'Ouvre MonFichier
MonXL.Workbooks.Open fileName:="C:\PROJET_GIE_MAT\" & MonFichier
 
'Copie les valeurs
'MonXL.Range("A2").Value = Champ1 'Envoie le contenu du ou des textboxes dans la ou les cellules
 
MonXL.Range("c13").Value = mois1_LCR
MonXL.Range("d13").Value = mois2_LCR

avec cela j'ouvre le fichier : 'Ouvre MonFichier
MonXL.Workbooks.Open fileName:="C:\PROJET_GIE_MAT\" & MonFichier
mais je ne sais pas lui preciser la feuille

[tiopan]

pour la feuille tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonXL.Sheets("ma feuille").Select

[tiopan]

sert toi de ce code pour trouver ta sol :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim dbs As Database
Dim strSQL As String
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("requete")
Set App = CreateObject("Excel.application")
App.Workbooks.Open "C:\mon chemin\mon fichier.xls"
App.Sheets("ma feuille").Select
With App.Worksheets("ma feuille")
    For i = 1 To rst.RecordCount
        For j = 0 To l
            .Cells(i + 1, j + 1) = rst(j).Value
        Next j
        rst.MoveNext
    Next i
End With
rst.Close
dbs.Close