Ouvrir un fichier Excel depuis un autre fichier Excel

Bonjour à tous,

Depuis un fichier Excel de référence, j'ai besoin d'ouvrir un fichier excel dont le nom est dans une case déterminée (D2)

Mais ce n'est pas toujours le même fichier (le nom change dans la case D2)

J'ai tenté quelques essais mais sans résultat probant (je suis un peu nul en VBA, il faut bien l'avouer)

J'ai trouvé plein de choses dans le forum pour ouvrir un fichier mais soit je ne comprends pas et je ne parviens pas à mettre en application, soit c'est toujours le même fichier qui est à ouvrir (donc le nom est en dur dans la macro)

Quelqu'un pour m'aider à résoudre ce pb ?

Nota : Le fichier est toujours dans le même répertoire (un répertoire réseau)

Merci d'avance pour vos efforts.

Bonjour,

essaie ceci

Sub ListeFichiers2()
    repertoire = "\\serv2008.tentefr.local\data\Commun\Etiquettes\HILL ROM version excel"
    i = 2
    nf = Dir(repertoire & "\*.*")
    Do While nf <> ""
        Cells(i, 2) = nf
        nf = Dir
        i = i + 1
    Loop
End Sub
Public Sub Ouvrir_Fichier_Quelconque()
    repertoire = "\\serv2008.tentefr.local\data\Commun\Etiquettes\HILL ROM version excel"
    strFileName = repertoire & "\" & Worksheets("Feuil1").Range("D2")
    Workbooks.Open strFileName
    Set wbSource = ActiveWorkbook
End Sub

Bonjour h2so4,

Ca marche !!!!

Merci beaucoup pour ton aide.

C'est superbe.

Rechercher des sujets similaires à "ouvrir fichier"