Aller chercher dans un autre fichier excel VBA

awa123

XLDnaute Occasionnel
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 à aller chercher est fermé

Code:
    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
 

Discussions similaires

Statistiques des forums

Discussions
312 389
Messages
2 087 923
Membres
103 676
dernier inscrit
Haiti