Copier coller d'un classeur à un autre

[yo_nico]

Bonjour,

Voilà, je suis débutant en Excel et je souhaiterais copier une feuille se trouvant dans un classeur 1 vers une feuille se trouvant dans un classeur 2.
J'ai écrit la macro suivante mais elle ne fonctionne pas:

Workbooks.Open ("classeur.xls") 'Classeur ou se trouve la feuille à copier
Worksheets("feuil1").Range("A1:AQ35").Copy
ActiveSheet.Paste Destination:=Workbooks("classeur 2").Sheets("feuil3").Range("A1:AQ35") 'classeur 2 est le classeur ou je souhaite coller la feuille

De plus, je souhaiterais coller les données telles qu'elles apparaissent dans la feuille c'est à dire sans les formules.
En vous remerciant par avance,

 

[boss49]

Re : Copier coller d'un classeur à un autre

slt moi aussi je suis debutant mais je peux essayer quand meme de reponde ^^
essaye de copier coller (clik auche droite ) ou tu prend toute tes donnée et tu fait copier coller et je crois que ca tenleve les formules sinon je sais pas^^
cordialament boss49

 

[kjin]

Re : Copier coller d'un classeur à un autre

Bonsoir et bienvenu sur xld,

Workbooks.Open ("classeur.xls") 'Classeur ou se trouve la feuille à copier

On doit donc supposer que le classeur1 n'est pas ouvert et que la macro est dans le classeur2
Il faut indiquer le chemin complet vers ton fichier "classeur1.xls"

De plus, je souhaiterais coller les données telles qu'elles apparaissent dans la feuille c'est à dire sans les formules.

Il faut faire un collage spécial valeur
Donc à tester

Sub Copie_1vers2()
Dim FichSource as String
Application.ScreenUpdating = False

FichSource = "C:\[COLOR="Blue"]...Ton répertoire...[/COLOR]\Classeur1.xls" [COLOR="Blue"]'adapter[/COLOR]
Workbooks.Open FichSource
Sheets("feuil1").Range("A1:AQ35").Copy
Windows("classeur2.xls").Activate
Sheets("feuil3").Range("A1:AQ35").PasteSpecial Paste:=xlValues

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

A+
kjin