VBA copier collonne d'un fichier dans un autre fichier

[Bens7]

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

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]

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

Bonjour,

modifie peut être ainsi :

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]

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

Merci beaucoup Pierrot tout a fait ca !
Puis poser de question :
A quoi sert Option Explicit dans ce cas ?
Et que signifie le (2) dans la derniere ligne ?

 

[Pierrot93]

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

Re,

A quoi sert Option Explicit dans ce cas ?

oblige à la déclaration de toutels les variables, évite bien des erreurs....

Et que signifie le (2) dans la derniere ligne ?

pour écrire sur la ligne qui suit la dernière cellule de la colonne... A voir si tu en a besoin... sinon supprimes...

 

[Bens7]

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

A et j'ai oublier dans ma cible j'ai un Macro qui s'ouvre automatique que rajouter pour ouvrir le fichier copier la collonne mais sans lancer de Macro ?

 

[Pierrot93]

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

Re,

Application.EnableEvents = False
'le code
Application.EnableEvents = True

 

[Bens7]

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

Ok mais je met ca ou exactement dans le code ?

 

[Bens7]

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

comme ca ?

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

 

[Bens7]

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

est tu la ?
bah oui c'est ca j;ai tester suis je bete ! Merci Pierrot !

 

[Pierrot93]

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

Re,

le code entre, comme indiqué :

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