Copier/coller d'un classeur à un autre

Résolu
Oukapaka Messages postés 112 Date d'inscription   Statut Membre Dernière intervention   -  
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   -
Bien le bonjour à vous !

Je sais que la question a déjà été posée mais j'arrive pas à adapter ce que j'ai trouvé sur internet (bientot les vacances !)

Bref toujours est il que mon code ne veut pas marcher pour faire une opération à la con :
copier l'onglet X du classeur Y dans l'onglet Z du classeur W

Est-ce clair ?

Ci-joint le code :


Sub M11_recupererdonnees()
Dim X.Y As Worksheet
'Dim Z.W As Worksheet

'recuperer fichier base de produits et l'afficher sur la nouvelle feuille
Workbooks.Open Filename:="Y.xlsx"
ThisWorkbook.Worksheets("X").Copy

Active.Workbooks "W.xlsm"
ThisWorkbook.Worksheets("Z").Range("A1").PasteSpecial Paste:=xlPasteValues
Workbooks("Y").Close True

Call M12_creationfeuille

End Sub


Merci d'avance !
A voir également:

2 réponses

mrjenkins Messages postés 580 Date d'inscription   Statut Membre Dernière intervention   102
 
Salut


Sub M11_recupererdonnees()
Dim W As Workbook.Y As Workbook

'recuperer fichier base de produits et l'afficher sur la nouvelle feuille
Workbooks.Open Filename:="Y.xlsx"
set Y = Workbooks("Y.xlsx")
set W = thisWorkbook

Y.Sheets("X").Cells.Copy Destination:=X.Sheets(W).Range("A1")
Y.Close True

Call M12_creationfeuille

End Sub


Je me suis peut-être emmêlé avec les W,X,Y,Z mais l'idée est là ^^
--
0
Oukapaka Messages postés 112 Date d'inscription   Statut Membre Dernière intervention   5
 
Bonjour mrjenkins, merci pour la réponse, je vais la tester de ce pas.

Juste avant, je souhaiterai avoir une petite précision :

Dim W As Workbook.Y As Workbook

Ce sont bien deux Dim As Workbook qu'il faut écrire c'est bien ça?

Merci
0
mrjenkins Messages postés 580 Date d'inscription   Statut Membre Dernière intervention   102
 
Tu peux mettre 1 Dim, séparé par des virgules. Avec 2 Dim, il faut le mettre sur 2 lignes
0