Vba selection repertoire
Résolu
africatrek
-
Sergio -
Sergio -
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
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
Configuration: Windows XP Internet Explorer 7.0
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. -
-
