Copier une selection dans un autre fichier

[vengeur1970]

Bonjour a tous,
Je suis novice en vba et j'ai un petit probleme a vous soumettre.

Je souhaite selectionner une plage de cellule dans une feuille (Suivi des wo) du fichier actif vers un nouveau fichier exemple en conservant les formats et les largeurs et hauteur collonne.
Voici la macro que j'ai essayer de faire en me basant sur exemple qui avait deja été donné sur ce forum en essayant de l'adapter mais ca ne marche pas.

Merci pour votre aide et bon week end

Sub Bouton1835_QuandClic()
Dim selec As Variant
Dim Dest As Range
Dim Ex As Workbook

Worksheets("SUIVI DES WORK ORDERS").Activate
Set selec = UsedRange.Select
Workbooks.Open Filename:="T:\TDIG\exemple.xls"

Set Dest = Ex.Sheets("EX").Range("A65536").End(xlUp).Offset(0, 0)
Set Ex = Workbooks("Exemple.xls") 'définit la variable Ex (classeur Cible)

selec.Copy Destination:=Dest
Ex.Activate

 

[Bebere]

Re : Copier une selection dans un autre fichier

bonjour Vengeur
essaye ce qui suit

Sub Bouton1835_QuandClic()
Dim Plage As Range
Dim WbCible As Workbook

With Worksheets("SUIVI DES WORK ORDERS")
Set Plage = .UsedRange
End With

Set WbCible = Workbooks.Open("T:\TDIG\exemple.xls")

Plage.Copy Destination:=WbCible.Sheets("EX").Range("A65536").End(xlUp).Offset(0, 0)

End Sub


à bientôt

 

[Robert]

Re : Copier une selection dans un autre fichier

Bonjour Vengeur, bonjour le forum,

Essaie comme ça :

Sub Bouton1835_QuandClic()
Dim selec As Range
Dim Dest As Range
Dim Ex As Workbook
 
Worksheets("SUIVI DES WORK ORDERS").Activate
Set selec = ActiveSheet.UsedRange
Workbooks.Open Filename:="T:\TDIG\exemple.xls"
Set Ex = Workbooks("Exemple.xls") 'définit la variable Ex (classeur Cible)
Set Dest = Ex.Sheets("EX").Range("A65536").End(xlUp).Offset(1, 0)
selec.Copy Destination:=Dest
Ex.Activate
 
End Sub

Édition :

Bonjour Bebere on s'est croisés.

 

[vengeur1970]

Re : Copier une selection dans un autre fichier

Bonjour et Merci Robert et Berbere pour vos reponses.

J'ai testé vos deux solutions mais ce que je souhaite faire c'est selectionner une plage de cellule, et c'est uniquement cette plage que je veux copier dans le fichier exemple.

Merci et bonne journée.

 

[Robert]

Re : Copier une selection dans un autre fichier

Bonjour le fil, bonjour le forum

Remplace :

Set selec = ActiveSheet.UsedRange

par :

Set selec = Selection

 

[vengeur1970]

Re : Copier une selection dans un autre fichier

Merci a toi Robert pour ta réponse, ça marche super bien.

encore bonne journée