Partager via

Méthode FileDialog.Show (Office)

  • Article

Affiche une boîte de dialogue d’accès au fichier et renvoie un Long indiquant si l’utilisateur a cliqué sur le boutonAction (-1) ou le boutonAnnuler(0). Lorsque vous appelez la méthodeAfficher, plus aucun code s’exécute jusqu'à ce que l’utilisateur fasse disparaître la boîte de dialogue d’accès au fichier. Dans le cas des boîtes de dialogueouvrir et Enregistrer sous , utilisez la méthodeExecutejuste après la méthodeafficher effectue de l’action de l’utilisateur.

Syntaxe

expression. Diaporama

expression Obligatoire. Une variable qui représente un objetFileDialog.

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.

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 
 
 'Use the Show method to display the File Picker dialog box and return the user's action. 
 'The user pressed the button. 
 If .Show = -1 Then 
 
 'Step through each string in the FileDialogSelectedItems collection. 
 For Each vrtSelectedItem In .SelectedItems 
 
 'vrtSelectedItem is a string 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 "The path is: " & vrtSelectedItem 
 
 Next vrtSelectedItem 
 'The user pressed Cancel. 
 Else 
 End If 
 End With 
 
 'Set the object variable to nothing. 
 Set fd = Nothing 
 
End Sub

Voir aussi

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.