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