Récupérer le chemin d'accès d'un répertoire et stocker ce ch

Bonjour

Je suis a la recherche d'un code pour ouvrir un répertoire et envoyer l'adresse et le nom du fichier en feuil1 "D12"

en sachant que l'adresse est : J:\Films\Films\

Je vous remercie d'avance

Cordialement

Mas

Salut,

GetOpenFileName , directement extrait de l'aide en ligne :

    Dim st

    st = Application.GetOpenFilename("*.xl* , *.xl*", 1, "Fichier excel")
    If st <> False Then
     MsgBox "Fichier à ouvrir : " & st
    End If
    

tiens voir aussi un message plosté plus tôt cet après-midi

https://forum.excel-pratique.com/excel/probleme-fonction-workbook-open-t80961.html