Bonjour à tous et toutes, Salut Vériland, Ti, @+Thierry
épatant Vériland. Une modification dans le fichier...ainsi la liste des fichiers image s'affiche en alimentant le comboBox déroulant 'Type de fichiers' avec les extensions .jpg, .Gif, .Bmp exemple ci-dessous
Private Sub NouveauChemin(Pchemin As String, PExt As String)
'Ti
'on alimente le comboBox déroulante 'Type de fichiers' avec les extensions .jpg, .Gif, .Bmp
Dim Lchemin
Lchemin = Application _
.Application.GetOpenFilename(("Fichiers Images (*.jpg) (*.jpg), *.jpg" _
& ",Fichiers Images (*.Gif) (*.Gif), *.Gif" _
& ",Fichiers Images (*.Bmp) (*.Bmp), *.Bmp"), Title:="Parcourir...")
If Lchemin <> False Then
Pchemin = Left(Lchemin, InStrRev(Lchemin, Application.PathSeparator) - 1)
PExt = GetFExt(CStr(Lchemin))
End If
End Sub
@+ MG