Function FileOpen(Optional ByVal sTitle As String = "Choisir le(s) fichier(s)", Optional ByVal bAllowMultiSelect As Boolean = True, Optional ByVal sFiltreName As String = "Images", Optional ByVal sFiltreContent As String = "*.bmp; *.gif; *.jpg; *.jpeg; *.png") As String
' CHOIX D'UN FICHIER PAR VBA
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Title = sTitle 'Titre
.AllowMultiSelect = bAllowMultiSelect 'Choix multiples
.Filters.Add sFiltreName, sFiltreContent, 1 'Filtre image
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
FileOpen = Trim(FileOpen & "|" & vrtSelectedItem)
Next vrtSelectedItem
Else
'Bouton Annuler
End If
End With
Set fd = Nothing
End Function