Discussion :

[fredschmidt]

Bonjour,
je suis sous Access et je contrôle Excel en Automation.

J'utilise 2 classeurs et j'aimerai copier une feuille du 1er Classeur vers le second classeur, mais je ne sais pas comment faire.

XlSheet11 représente Classeur 1, feuille1.
XlSheet12 représente Classeur 1, feuille2.
XlSheet21 représente Classeur 2, feuille1...

J'ai donc essayé

Code :

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

1
2
XlSheet11.copy
XlSheet21.paste

Mais XlSheet11 est copié dans un tout nouveau classeur, et cellule A1 de XlSheet 21 comporte le dernier texte que j'ai copier.

J'ai également essayé

Code :

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

Sheets("XlSheet11").Copy After:=Sheets("XlSheet21")

ou

Code :

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

XlSheet11.Copy After:=XlSheet21

ou encore

Code :

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

Workbooks(XlBook1).Sheets("XlSheet11").Copy After:=Workbooks(XlBook1).Sheets("XlSheet21")...

Mais toujours sans succès.

Comment faire pour copier simplement une feuille vers un autre classeur en automation?

Merci

[Jean-Philippe André]

salut,
en utilisant le macro recorder sous Excel, tu devrais trouver le code à adapter pour Access

[fredschmidt]

J'ai essayé Record avec excel, et j'obtiens:

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 02/09/2009 par stagiaire
'
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy After:=Workbooks("Classeur1").Sheets(3)
End Sub

C'est également ce que j'aurais écrit sous Excel, le souci étant que je ne sais pas si je doit utiliser XlSheet11,XlBook1 ... pour l'automation et comment faire en utilisant XlSheet11,XlBook1... à la place de Feuil1, Workbooks("Classeur1"), Sheets(3)...

Comment faire?

Je rapelle que

XlSheet11 représente Classeur 1, feuille1.
XlSheet12 représente Classeur 1, feuille2.
XlSheet21 représente Classeur 2, feuille1...
XlBook1 le classeur1
XlBook2 le classeur2...


Merci