Bonjour, spock et pascal76,
As-tu essayé avec la fonction :
expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
elle permet de récupérer le chemin choisi par l'utilisateur sans ouvrir le fichier. mais tu peu par la suite réutiliser l'adresse pour faire ce que tu veux :
Dim FileToOpen As Variant
FileToOpen = Application.GetOpenFilename('Fichiers texte (*.txt), *.txt', , , , False)
Bon courrage