Excel+VBA+Apllication multi classeurs

Fermé
marwahassine Messages postés 11 Date d'inscription lundi 21 juillet 2008 Statut Membre Dernière intervention 7 août 2009 - 14 juil. 2009 à 11:34
marwahassine Messages postés 11 Date d'inscription lundi 21 juillet 2008 Statut Membre Dernière intervention 7 août 2009 - 14 juil. 2009 à 15:04
Bonjour,


J'ai une application multi-classeurs.Je veux ouvrir un des classeur recopier son contenu puis le coller dans le classeur ou va s'éxécuter ma macro.
J'arrive pas vraiment à manipuler les 2 classeurs é à copier le contenu du classeur que j'ai ouvert dans l'autre classeur.?
Voila le bout de code que j'ai:

Sub Macro1()

Workbooks.Open "C:\Documents and Settings\Administrateur\Bureau\******.xls"
Dim MaFeuille As Worksheet, TabFeuille As Variant
Set MaFeuille = ActiveWorkbook.Worksheets(1)

TabFeuille = Array("Feuil1", "Feuil3")
Worksheets(TabFeuille).FillAcrossSheets MaFeuille.Range(Cells(7, 1), Cells(10, 1)), xlFillWithAll

End Sub

SVP AIDEZ MOI...........
Cordialement
A voir également:

1 réponse

marwahassine Messages postés 11 Date d'inscription lundi 21 juillet 2008 Statut Membre Dernière intervention 7 août 2009
14 juil. 2009 à 15:04
Mer6 bcp pour vos réponses :))
J'ai trouvé la solution toute seule
Pour ceux qui l'auront besoin la voici:

Dim objWorkbookSource As Workbook, objWorkbookCible As Workbook
set objWorkbookSource = Application.Workbooks.Open(Application.GetOpenFilename)
set objWorkbookCible = Application.Workbooks.Add

0