Copie feuille d'un autre classeur

[gabo29]

Bonjour,

Je cherche un code pour ouvrir un fichier se trouvant à l'adresse C:\Document\ et se nommant comme la cellule B2 de la feuille 2 mon fichier(Test.xls). Puis copier la feuille du classeur B2.xls et la coller dans la feuille 1 de Test.xls

Merci d'avance
Cdt,

 

[CHALET53]

Re : Copie feuille d'un autre classeur

Quelques chose comme cela :

Sub essai()
Sheets("Feuil2").Activate
chemin = "C:\Document\" & Range("B2").Value
Workbooks.Open chemin
Sheets("Feuil1").Activate
Cells.Select
Selection.Copy
Windows("test.xls").Activate
Sheets("Feuil1").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub

a+

 

[Robert]

Re : Copie feuille d'un autre classeur

Bonjour Gabo, bonjour le forum,

Peut-être avec ce code à placer dans le classeur Test.xls :

Sub Macro1()
Dim nc As String 'déclare la variable nc (Nom du Classeur)

nc = "C:\Document\" & CStr(Sheets(2).Range("B2").Value) & ".xls" 'définit la variable nc (extension à vérifier et à éventuellement supprimer si déjà dans la cellule B2)
Workbook.Open nc 'ouvre le classeur
ActiveWorkbook.Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).Range("A1") 'copie les cellules du premier onglet et les colle dans A1
ActiveWorkbook.Close SaveChanges:=False 'ferme le classeur actif sans enregistrer les changements
End Sub

[Édition]
Bonjour Chalet on s'est croisé...

 

[gabo29]

Re : Copie feuille d'un autre classeur

Merci à vos deux, c'est nickel
Cdt,