Copier/Coller d'un classeur à un autre

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

Bonjour,

La propriété ".Paste" n'existe pas pour un objet plage (Range). Il faut utiliser ".PasteSpecial (xlPasteAll)"

Oh purée, je suis une belle chèvre,

Au temps pour moi et merci

Bonsoir à tous

Chez moi , ton fichier a fonctionné

Bye

Rechercher des sujets similaires à "copier coller classeur"