Bonjour.

Comment ouvrir un répertoire spécifique, laisser choisir un fichier par l’utilisateur et récupérer le non de ce fichier.

J’ai une petite procédure qui fonctionne, mais la boîte de dialogue s’ouvre 2 fois, c’est gênant et je n’arrive pas à corriger le problème.

Voici le:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub VarNomFichier()
Dim Rep As String
Rep = "C:\Users\Public\Documents\" 'Chemin et répertoire à ouvrir
If Dir(Rep, vbDirectory) <> "" Then
    Application.Dialogs(xlDialogOpen).Show Rep
    Rep = Application.GetOpenFilename()
    tmpStr = Split(Rep, "\")
    nomFichier = tmpStr(UBound(tmpStr))
    MsgBox nomFichier
Else
   MsgBox "Chemin introuvable"
End If
End Sub
J’ai recherché sur internet je n’ai pas trouvé de solution.

Pourriez-vous me donner une piste svp.

Merci d’avance pour votre réponse.