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
A voir également:
- Vba boite de dialogue pour sélectionner un dossier
- Dossier appdata - Guide
- Impossible de supprimer un dossier - Guide
- Mettre un mot de passe sur un dossier - Guide
- Dialogue boost - Accueil - Guide streaming
- Boite gmail pleine - Guide
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.
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.
amanar
Merci
Sergio
Merci !