Bonjour a tous !
j'ai un fichier(Classeur1) avec un Macro qui doit copier les donnees collonne E d'un autre classeur (Classeur2) ;
et les coller dans le Classeur1 collonne C, bien sur en cherchant derniere cellule vide j'ai creer un code mais il marche pas ...
P.S: le Classeur2 est fermer, j'aimerais bien que apres la copie il se referme aussi
j'ai un fichier(Classeur1) avec un Macro qui doit copier les donnees collonne E d'un autre classeur (Classeur2) ;
et les coller dans le Classeur1 collonne C, bien sur en cherchant derniere cellule vide j'ai creer un code mais il marche pas ...
P.S: le Classeur2 est fermer, j'aimerais bien que apres la copie il se referme aussi
Code:
Sub Macro1()
Dim Source As Workbook, Cible As Workbook
Set Source = Workbooks("C:\Documents and Settings\pc-maison\Bureau\ESSAI\Classeur2.xlsm")
Set Cible = Workbooks("C:\Documents and Settings\pc-maison\Bureau\ESSAI\Classeur1.xlsm")
Source.Sheets("Feuil1").Range("E2:E" & [E65536].End(xlUp).Row).Copy _
Destination:=Cible.Sheets("Feuil1").Range("C65536").End(xlUp)
End Sub