salut tout le monde,
j'aurais encore une question
eh oui, j'essai de piloter excel a partir d'access, mais j'ai encore un leger soucis :
j'aurais besoin de prendre une feuille dans un classeur de réference et de la copier dans un nouveau classeur :
pour cela j'ai le code suivant :
avec ce code là, j'arrive à créer le nouveau document, à l'enregistrer, mais pas à copier ma 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
18
19
20
21
22
23
24
25
26
27
28
29
30 Dim xlApp As Object Dim xlSheet As Object Dim AncienDoc As Object Dim xlBook As Object Dim db As Database Dim sql As String Dim result As Recordset Dim i As Long 'initialisation des variables Set db = CurrentDb Set xlApp = CreateObject("Excel.Application") Set AncienDoc = xlApp.workbooks.Open("H:\Bdd Client\Convention\Convention.xls") 'ouvre un nouveau document xlApp.workbooks.Add 'on se place sur le nouveau document Set xlBook = xlApp.ActiveWorkbook 'on l'enregistre xlBook.saveas ("H:\BDD Client\Convention\" & NumDevis) 'Copie l'ancienne convention dans le nouveau que l'on vient d'enregistrer AncienDoc.Worksheets("Convention").Copy Destination = xlBook("H:\BDD Client\Convention\" & NumDevis) Set xlSheet = xlBook.Worksheets("Convention") xlSheet.Name = NumDevis
quelqu'un a une idée ? c'est possible ou alors il faut que j'utilise une autre méthode ?
merci d'avance
Partager