Discussion :

[alkmehd]

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 :

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

avec ce code là, j'arrive à créer le nouveau document, à l'enregistrer, mais pas à copier ma feuille.

quelqu'un a une idée ? c'est possible ou alors il faut que j'utilise une autre méthode ?

merci d'avance

[=JBO=]

Bonjour,

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 :

Code :

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

1
2
3
4
5
 
...    
'Copie l'ancienne convention dans le nouveau que l'on vient d'enregistrer
AncienDoc.Worksheets("Convention").Copy Destination = xlBook("H:\BDD Client\Convention\" & NumDevis)
...

avec ce code là, j'arrive à créer le nouveau document, à l'enregistrer, mais pas à copier ma feuille.

quelqu'un a une idée ? c'est possible ou alors il faut que j'utilise une autre méthode ?

En continuant avec cette méthode, pour copier la feuille au début de ton nouveau classeur, le code correct devrait ressembler à ce qui suit:

Code :

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

1
2
3
4
5
 
...    
'Copie l'ancienne convention dans le nouveau que l'on vient d'enregistrer
AncienDoc.Worksheets("Convention").Copy Before:=xlBook.Sheets(1)
...

Comme autres méthodes, tu peux effectuer une copie de ton fichier de référence ou utiliser un modèle de classeur (ce qui revient quasiment au-même).
Bonne continuation.
=JBO=