Application.FileDialog, propriété (Excel)Application.FileDialog property (Excel)

Renvoie un objet FileDialog représentant une instance de la boîte de dialogue Fichier.Returns a FileDialog object representing an instance of the file dialog.

SyntaxeSyntax

expression.FileDialog (fileDialogType)expression.FileDialog (fileDialogType)

_expression_Une variable qui représente un objet**Application**.expression A variable that represents an Application object.

ParamètresParameters

NomName Requis/FacultatifRequired/Optional Type de donnéesData type DescriptionDescription
fileDialogTypefileDialogType ObligatoireRequired MsoFileDialogTypeMsoFileDialogType Type de boîte de dialogue Fichier.The type of file dialog.

RemarquesRemarks

MsoFileDialogType peut être l'une de ces constantes :MsoFileDialogType can be one of these constants:

  • msoFileDialogFilePicker.msoFileDialogFilePicker. Permet à l'utilisateur de sélectionner un fichier.Allows user to select a file.
  • msoFileDialogFolderPicker.msoFileDialogFolderPicker. Permet à l'utilisateur de sélectionner un dossier.Allows user to select a folder.
  • msoFileDialogOpen.msoFileDialogOpen. Permet à l'utilisateur d'ouvrir un fichier.Allows user to open a file.
  • msoFileDialogSaveAs.msoFileDialogSaveAs. Permet à l'utilisateur d'enregistrer un fichier.Allows user to save a file.

ExempleExample

Dans cet exemple, Microsoft Excel ouvre la boîte de dialogue Fichier, qui permet à l'utilisateur de sélectionner un ou plusieurs fichiers.In this example, Microsoft Excel opens the file dialog allowing the user to select one or more files. Une fois ces fichiers sélectionnés, Excel affiche le chemin d'accès de chacun d'eux dans un message séparé.After these files are selected, Excel displays the path for each file in a separate message.

Sub UseFileDialogOpen() 
 
    Dim lngCount As Long 
 
    ' Open the file dialog 
    With Application.FileDialog(msoFileDialogOpen) 
        .AllowMultiSelect = True 
        .Show 
 
        ' Display paths of each file selected 
        For lngCount = 1 To .SelectedItems.Count 
            MsgBox .SelectedItems(lngCount) 
        Next lngCount 
 
    End With 
 
End Sub

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.