Bonjour,
Le code de @Sylk suppose d'utiliser une fiche (UserForm en VBA) comportant un bouton et une zone de texte pour activer la fonction.
Ne pas oublier d'ajouter dans la page des références de VBA les références à Office et à Excel en cochant les cases correspondantes (cf. image ci-dessous).
La macro jointe devrait être fonctionnelle.
Cordialement.
En effet @m.blt merci. Juste que comme j'ai édité mon message entre temps et le nom du bouton de CMDopenFolder vers CMDfolderDlg (pour qu'il soit plus cohérent) il faut remplacer le nom du bouton dans le fichier swp joint.
Personnellement j'utilise la TextBox en mode Locked true, pour que son contenu soit visible, sélectionnable et défilable (quand il est plus long que la textbox) mais sans possibilité de le modifier par saisie, histoire d'éviter une gestion des caractères interdits.
Pour définir un dossier par défaut il suffit de modifier sa propriété Text à la création du contrôle. Ou la laisser vide, ce qui ouvrira "mes documents" par défaut.