Copier/Coller d'un classeur à un autre

Y compris Power BI, Power Query et toute autre question en lien avec Excel
g
gauthier23
Jeune membre
Jeune membre
Messages : 17
Inscrit le : 2 août 2017
Version d'Excel : 2010 FR

Message par gauthier23 » 5 février 2018, 09:29

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
Mise en page Rupture Aide.xlsm
(38.29 Kio) Téléchargé 13 fois
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'299
Appréciations reçues : 182
Inscrit le : 13 juin 2016
Version d'Excel : 2013 FR 64 bits

Message par thev » 5 février 2018, 13:55

Bonjour,

La propriété ".Paste" n'existe pas pour un objet plage (Range). Il faut utiliser ".PasteSpecial (xlPasteAll)"
g
gauthier23
Jeune membre
Jeune membre
Messages : 17
Inscrit le : 2 août 2017
Version d'Excel : 2010 FR

Message par gauthier23 » 5 février 2018, 17:38

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

Au temps pour moi et merci
Avatar du membre
Patty5046
Membre impliqué
Membre impliqué
Messages : 1'090
Appréciations reçues : 108
Inscrit le : 2 février 2016
Version d'Excel : 2016

Message par Patty5046 » 5 février 2018, 18:04

Bonsoir à tous

Chez moi , ton fichier a fonctionné

Bye
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message