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 -
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 :
Merci d'avance !
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:
- Vba copier coller une feuille dans un autre classeur
- Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
- Retrouver un copier-coller android - Guide
- Arobase copier coller - Forum Clavier
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
2 réponses
Salut
Je me suis peut-être emmêlé avec les W,X,Y,Z mais l'idée est là ^^
--
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à ^^
--
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