Parcourir pour afficher chemin

ifi77 · 7 Mars 2011

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 · 7 Mars 2011

Re : Parcourir pour afficher chemin

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

Code:

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 · 7 Mars 2011

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 @+

Parcourir pour afficher chemin

ifi77

XLDnaute Occasionnel

Pièces jointes

JNP

XLDnaute Barbatruc

ifi77

XLDnaute Occasionnel

Discussions similaires

Parcourir pour afficher chemin

ifi77

XLDnaute Occasionnel

Pièces jointes

JNP

XLDnaute Barbatruc

ifi77

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency