Vba selection repertoire
Résolu/Fermé
A voir également:
- Vba boite de dialogue pour sélectionner un dossier
- Se connecter à ma boite hotmail - Guide
- Dossier appdata - Guide
- Mettre un mot de passe sur un dossier - Guide
- Boite gmail saturée - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
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.
8 janv. 2018 à 22:34
29 mars 2018 à 10:09