VBA copier collonne d'un fichier dans un autre fichier

Bens7

XLDnaute Impliqué
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

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
 

Pierrot93

XLDnaute Barbatruc
Re : VBA copier collonne d'un fichier dans un autre fichier

Bonjour,

modifie peut être ainsi :
Code:
Option Explicit
Sub Macro1()
Dim Source As Workbook, Cible As Workbook
Set Source = Workbooks.Open("C:\Documents and Settings\pc-maison\Bureau\ESSAI\Classeur2.xlsm")
Set Cible = ThisWorkbook
'Workbooks("C:\Documents and Settings\pc-maison\Bureau\ESSAI\Classeur1.xlsm")
With Source.Sheets("Feuil1")
    .Range("E2:E" & .[E65536].End(xlUp).Row).Copy _
        Destination:=Cible.Sheets("Feuil1").Range("C65536").End(xlUp)(2)
End With
Source.Close False
End Sub

bonne journée
@+
 

Bens7

XLDnaute Impliqué
Re : VBA copier collonne d'un fichier dans un autre fichier

comme ca ?

Code:
Option Explicit
 Sub Macro1()
 Dim Source As Workbook, Cible As Workbook

Application.EnableEvents = False

 Set Source = Workbooks.Open("C:\Documents and Settings\pc-maison\Bureau\ESSAI\Classeur2.xlsm")
 Set Cible = ThisWorkbook
 'Workbooks("C:\Documents and Settings\pc-maison\Bureau\ESSAI\Classeur1.xlsm")
 With Source.Sheets("Feuil1")
     .Range("E2:E" & .[E65536].End(xlUp).Row).Copy _
         Destination:=Cible.Sheets("Feuil1").Range("C65536").End(xlUp)(2)
 End With
 Source.Close False

Application.EnableEvents = True

 End Sub
 

Pierrot93

XLDnaute Barbatruc
Re : VBA copier collonne d'un fichier dans un autre fichier

Re,

le code entre, comme indiqué :
Code:
Option Explicit
Sub Macro1()
Dim Source As Workbook, Cible As Workbook
Application.EnableEvents = False
Set Source = Workbooks.Open("C:\Documents and Settings\pc-maison\Bureau\ESSAI\Classeur2.xlsm")
Set Cible = ThisWorkbook
'Workbooks("C:\Documents and Settings\pc-maison\Bureau\ESSAI\Classeur1.xlsm")
With Source.Sheets("Feuil1")
    .Range("E2:E" & .[E65536].End(xlUp).Row).Copy _
        Destination:=Cible.Sheets("Feuil1").Range("C65536").End(xlUp)(2)
End With
Source.Close False
Application.EnableEvents = True
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T