Filedialog??

Bonjour,

Je suis sur une gestion d'ouverture de fichier, et j'utilise:

With Application.FileDialog(msoFileDialogFilePicker)

'Définit un titre pour la boîte de dialogue

.Title = "Recherche du Fichier de Fiches"

'Autorise la multi-sélection

.AllowMultiSelect = False

'Définit un nom de fichier par défaut

'.InitialFileName = "Liste_Fiche.x*"

'Efface les filtres existants.

.Filters.Clear

'Définit une liste de filtres pour le champ "Type de fichiers".

.Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"

'La valeur 1 permet de spécifier que ce filtre est positionner en premier dans la liste de choix.

'.Filters.Add "Documents Word", "*.doc; *.docx; *.docm", 1

'Définit le filtre qui s'affiche par défaut dans le champ "Type de fichiers".

'.FilterIndex = 2

'Indique le type d'affichage dans la boîte de dialogue (exemple visualisation des propriétés)

.InitialView = msoFileDialogViewProperties

'Affiche la boîte de dialogue

.Show

End With

Sa fonctionne très bien si je trouve le fichier et clic "Ouvrir", mais comment je gère le fait de clic sur "Annuler" pour sortir de la procédure?

Merci pour votre aide,

Andre63

bonjour,

If .Show then
' fichiers sélectionnés
else
'pas de fichier sélectionné (cancel)
end if

Bonjour André, h2So4, bonjour le forum

Étrange tu dis vouloir autoriser la multisélection (en commentaire) et tu mets la propriété à False !...

Il manque aussi l'ouverture du fichier... Tel qu'il est, le bouton [Annuler] fonctionne parfaitement bien !

Tu peux rajouter à la fin du code :

If .SelectedItems.Count = 0 Then Exit Sub
Workbooks.Open (.SelectedItems(1))