Sélection d’un fichier à l’aide du FileDialog

Dans une macro ou un complément, il peut arriver que vous demandiez à l’utilisateur de sélectionner un fichier. Il est possible d’utiliser la boîte de dialogue FileDialog standard à cet effet. Le code suivant est destiné à fournir les paramètres les plus courants que vous pouvez modifier pour répondre à vos besoins.

Ouvrez le fichier DialogBox pour sélectionner un fichier

Sub selectFile()

Dim dialogBox As FileDialog
Set dialogBox = Application.FileDialog(msoFileDialogOpen)

'Set the display properties - these are optional
'All the settings must be applied before the .Show command

'Do not allow multiple files to be selected
dialogBox.AllowMultiSelect = False

'Set the title of of the DialogBox
dialogBox.Title = "Select a file"

'Show the dialog box and output full file path and file name
  
   

     
If dialogBox.Show = -1 Then
   MsgBox "You selected: " & dialogBox.SelectedItems(1)
End If

End Sub

Sélection de plusieurs fichiers

Si l’utilisateur est autorisé à sélectionner plus d’un fichier, le code suivant peut être utilisé:

Sub selectFiles()

Dim dialogBox As FileDialog
Set dialogBox = Application.FileDialog(msoFileDialogOpen)
Dim i As Integer
'Set the display properties - these are optional
'All the settings must be applied before the .Show command

'Allow multiple files to be selected
dialogBox.AllowMultiSelect = True

'Set the title of of the DialogBox
dialogBox.Title = "Select a file"

'Show the dialog box
'Loop through each selected item and output to Immediate Window
For i = 1 To dialogBox.SelectedItems.Count
    Debug.Print dialogBox.SelectedItems(i)
Next i

End Sub

Définition des options de dossier par défaut

'Set the default folder to open
dialogBox.InitialFileName = "C:UsersmarksDocuments"

'Set filters to show specific files types only - these are optional
'Clear any existing filters first
dialogBox.Filters.Clear
'Add more filters - use ; to separate filters for the same name
dialogBox.Filters.Add "Excel workboooks", "*.xlsx;*.xls;*.xlsm"

Nom de fichier ou chemin complet du fichier

Parfois, vous voulez le chemin complet du fichier de l’élément sélectionné

'Show the full file path (folder & file name)
MgsBox dialogBox.SelectedItems(i)

D’autres fois, vous voulez juste le nom du fichier (pas le dossier)

'Just show the file name

   
MsgBox Dir(dialogBox.SelectedItems(1))

N’oubliez pas:

Si vous avez trouvé cet article utile ou si vous avez une meilleure approche, veuillez laisser un commentaire ci-dessous.