Parcourir pour afficher chemin

[ifi77]

Bonjour @ tous,

je viens vous demander une aide pour une chose qui parait toute simple mais la je bloque.
Dans le fichier joint, il y a un userform qui permet via foldpick de trouver le chemin d'un dossier et de l'afficher dans le textbox associé. Je cherche à faire la meme chose mais jusqu'au fichier et si possible en bloquant sur des fichier jpeg, img,gif. (et cela afin d'afficher l'image directement dans un formulaire quand je voudrais l'édité, j'utilise juste le lien pour ne pas surcharger la base de donnée).

En espérant avoir été suffisamment clair,

merci à tous.

 

[JNP]

Re : Parcourir pour afficher chemin

Bonjour Ifi77 🙂,
Un peu de recherche dans l'aide sur FileDialog t'aurait amené la solution 🙄...

Function FilePick(Optional InitialDir As String = "") As String
Dim FD As FileDialog
    FilePick = ""
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
    .InitialFileName = InitialDir
    .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 2
    .FilterIndex = 2
    If .Show <> 0 Then
        FilePick = .SelectedItems(1)
    End If
    End With
End Function

Bonne journée 😎

 

[ifi77]

Re : Parcourir pour afficher chemin

Merci JNP et méa culpa, c'est vrai qu'après recherche sur l'aide de filedialog, je comprends mieux.

merci encore @+