Aller chercher dans un autre fichier Excel VBA

Bonjour,

je cherche le code VBA qui permettrait de copier coller des données d'un autre classeur déjà ouvert,

j'ai le code qui permet de faire cela mais uniquement lorsque le classeur qui contient les données de base est fermé

Sub ImporterDonneesSansOuvrir()

Dim Chemin As String, Fichier As String

Chemin = "C:\Users\\Desktop\"

Fichier = "fichier_base.xlsx"

ThisWorkbook.Names.Add "plage", _
            RefersTo:="='" & Chemin & "[" & Fichier & "]Sheet1'!$A$1:$B$10"

    With Sheets("Sheet1")

        .[A1:B10] = "=plage"
        .[A1:B10].Copy
         Sheets("Sheet1").Range("A1").PasteSpecial xlPasteValues

      '.[A1:F10].Clear

    End With

End Sub

Merci de votre aide

Salut,

Admettant que tu aies le fichier_base.xlsx ouvert et le fichier_cible.xlsm ci-joint contenant la macro visible à l'écran, si tu lances le code ci-dessous, le transfert des données du fichier_base au fichier_cible se fait sans problème.

Sub Copier_coller()

    Windows("fichier_base.xlsx").Activate
    Range("A1:B9").Copy
    Windows("Fichier_cible.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

Cordialement.