Copier/coller d'un classeur à un autre Résolu

Question

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 TrueCall M12_creationfeuilleEnd Sub

Merci d'avance !

mrjenkins · Answer

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_creationfeuilleEnd Sub 
 
Je me suis peut-être emmêlé avec les W,X,Y,Z mais l'idée est là ^^
--

ThauTheme · Answer

Bonjour Oukapaka, bonjour le forum,

Avec des variables correctement déclarées et définies c'est très facile :

Sub M11_recupererdonnees()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)

Set CS = ThisWorkbook 'définit le classeur source CS
Set OS = CS.Sheets("Y") 'définit l'onglet source OS
CA = "C:\Users\blabla\Documents" 'définit le chemin d'accès CA (à adapter)
Set CD = Workbooks.Open(CA & "Y.xlsx") 'définit le classeur destination CD
Set OD = CD.Sheets("Z") 'définit l'onglet destination OD
OS.Cells.Copy 'copie toutes les cellules de l'onglet source
OD.Range("A1").PasteSpecial Paste:=xlPasteValues 'colle les valeurs dans A1 de l'onglet destination
CD.Close True 'ferme le classeur destination CD en enregistrant
Call M12_creationfeuille
End Sub 
 
À plus,
ThauTheme

Copier/coller d'un classeur à un autre

2 réponses

Discussions similaires

Newsletters