Bonjour à tous,
Débutant en VBA, j'ai tout de même réussi à créer quelques macros qui m'ont beaucoup aidés.
Sur ce coup, je bloque sur une macro qui semble facile et dont je ne trouve pas la réponse à mon problème
Le but: Un simple copier coller d'un classeur à un autre !
Je cherche juste à copier coller des données de plusieurs classeurs vers un autre qui synthétise le tout.
L'erreur remontée est: "erreur d'exécution 438 : propriété ou méthode non gérée par cet objet."
Elle se situe sur la dernière ligne de code: sur le "Paste"
La macro "Go Classeur" copie "bien", elle sélectionne "bien" ce que je veux mais elle ne colle pas...
Sub Goclasseur()
'
' Goclasseur Macro
'
Set WbkS0 = ActiveWorkbook
'On renomme le classeur père WbkS0'
WbkS0.Sheets("Tableau de bord").Select
j = Range("A" & Rows.Count).End(xlUp).Row
'nombre de lignes dans l'onglet Tableau de bord du classeur père'
'Traitement du fichier mise en page rupture V5'
If MsgBox("Sortir les données de Mise en page rupture? ", vbYesNo) = vbYes Then
Workbooks.Open ("C:\...\Mise en page Rupture V5")
Set WbkS1 = ActiveWorkbook
'On ouvre le workbook mise en page rupture V1 et on le renomme WbkS1'
WbkS1.Sheets("Tableau de bord").Select
i = Range("A" & Rows.Count).End(xlUp).Row
'On compte le nombre de ligne dans Tableau de Bord'
WbkS1.Sheets("Tableau de bord").Range("A2:I300").Copy
'on copie les données de la feuille'
[color=#FF0000] WbkS0.Sheets("Tableau de bord").Range("A2:I300").Paste
'on colle les données dans l'autre feuille'[/color]
'Traitement du fichier 2'
'Traitement du fichier 3'
End If
End Sub
Si vous pouviez m'aider sur ce problème mineur, je vous en serais très reconnaissant
Bonne journée