Vba selection repertoire

Résolu
africatrek -  
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
Configuration: Windows XP Internet Explorer 7.0

3 réponses

  1. tech_57
    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.
  2. africatrek
    Super, ça marche !
    Merci beaucoup Tech_57 !!!

    A bientot sur commentcamarche.com !

    Discussions similaires

    erreur d'execution 9, l'indice n'appartient pas à la sélection
    isidoh

    18 réponses
    "L'indice n'appartient à la sélection" + VBA
    fleur.31

    2 réponses
    Erreur '9' l'indice n'appartient pas à la sélection
    Ela_1005

    5 réponses
    l'indice n'appartient pas à la selection
    sabw

    2 réponses
    Méthode find dans VBA - Recherche de données sous Excel
    baissaoui

    0 réponse