Vba selection repertoire

Résolu/Fermé
africatrek - 10 oct. 2009 à 01:20
 Sergio - 29 mars 2018 à 10:09
Bonjour,

Voilà mon problème :
J'ai fait une macro pour selectionner un repertoire et afficher le nom du répertoire sélectionné dans une msgbox. J'utilise pour cela le code suivant :

Dim Repertoire As FileDialog
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
msgbox(Repertoire.SelectedItems(1))

Ce code marche bien, sauf quand l'utilisateur clique sur le bouton "annuler" !!!

Comment faire pour gérer ce cas ????

Merci de votre aide

3 réponses

Salut,

Tu dois tester le nombre d'items sélectionnés:

Sub test()
Dim Repertoire As FileDialog
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
If Repertoire.SelectedItems.Count > 0 Then
MsgBox Repertoire.SelectedItems(1)
Else
MsgBox "Aucun Répertoire Sélectionné"
End If
End Sub

Cordialement.
Merci
0
Merci !
0