Copier et Coller en VBA des cellules deans un autres classeur

Bonjour à tous,

Je cherche à copier les cellules D19:D49 de la feuille active, vers un autres classeur. A l'ouverture de ce classeur, il faut lancer MaMacro (Nouveau formulaire) avant de coller en D19

Ci-dessous ce que j'ai imaginé. Seul problème, ca ne colle pas.

'Copie élément feuille active
Range("D19:D49").Select
Selection.Copy

'Ouvrir MonClasseur
Dim cl As Workbook
Set cl = Workbooks.Open(MonClasseur")
cl.Save

'Active la Macro MaMAcro
Application.Run "MaMAcro"

'Coller les valeurs
Range("D19").Select
ActiveSheet.Paste

Merci par avance pour votre aide

Bonjour,

Essayez ceci. A mon avis à l'ouverture du second classeur, la copie est "oubliée". Si MaMAcro est dans le même classeur que celle que nous sommes en train d'écrire, vous n'avez pas besoin de Application.Run.

Public Sub Test()
    'Copie élément feuille active
    Dim rngBase As Range: Set rngBase = ActiveSheet.Range("D19:D49")

    'Ouvrir MonClasseur
    Dim cl As Workbook
    Set cl = Workbooks.Open("CheminDeMonClasseur")
    cl.Save

    'Active la Macro MaMAcro
    MaMAcro

    'Coller les valeurs
    rngBase.Copy ActiveSheet.Range("D19:D49")
End Sub

Merci saboh12617 c'est exactement ca ?