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
avec cela j'ouvre le fichier : 'Ouvre MonFichier
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
MonXL.Workbooks.Open fileName:="C:\PROJET_GIE_MAT\" & MonFichier
mais je ne sais pas lui preciser la feuille
Partager