Propriété FileDialog.Filters (Office)

Obtient ou définit un Long indiquant le filtre de fichier par défaut d’une boîte de dialogue de fichier. Le filtre par défaut détermine quels types de fichiers sont affichés lorsque la boîte de dialogue de fichier est d’abord ouvert. Lecture-écriture.

Syntaxe

expression.FilterIndex

expression Variable qui représente un objet FileDialog.

Remarques

Si vous essayez d'affecter à cette propriété un nombre supérieur à celui des filtres, le dernier filtre disponible est sélectionné.

Exemple

L’exemple suivant affiche une boîte de dialogue File Picker avec l’objet FileDialog et affiche chaque fichier sélectionné dans une zone de message. Cet exemple montre également comment ajouter un nouveau filtre de fichier et comment rendre le filtre par défaut.

Sub Main() 
 
 'Declare a variable as a FileDialog object. 
 Dim fd As FileDialog 
 
 'Create a FileDialog object as a File Picker dialog box. 
 Set fd = Application.FileDialog(msoFileDialogFilePicker) 
 
 'Declare a variable to contain the path 
 'of each selected item. Even though the path is aString, 
 'the variable must be a Variant because For Each...Next 
 'routines only work with Variants and Objects. 
 Dim vrtSelectedItem As Variant 
 
 'Use a With...End With block to reference the FileDialog object. 
 With fd 
 
 'Add a filter that includes GIF and JPEG images and make it the second item in the list. 
 .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 2 
 
 'Sets the initial file filter to number 2. 
 .FilterIndex = 2 
 
 'Use the Show method to display the File Picker dialog box and return the user's action. 
 'If the user presses the button... 
 If .Show = -1 Then 
 
 'Step through each string in the FileDialogSelectedItems collection. 
 For Each vrtSelectedItem In .SelectedItems 
 
 'vrtSelectedItem is aString that contains the path of each selected item. 
 'Use any file I/O functions that you want to work with this path. 
 'This example displays the path in a message box. 
 MsgBox "Selected item's path: " & vrtSelectedItem 
 
 Next vrtSelectedItem 
 'If the user presses Cancel... 
 Else 
 End If 
 End With 
 
 'Set the object variable to Nothing. 
 Set fd = Nothing 
 
End Sub

Voir aussi

• Membres Objet FileDialog

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.