Ouvrir l'interface de sélection de dossier

Bonsoir tout le monde,

Je rencontre un petit souci sur une macro en ce moment: sans entrer dans les détail, quelqu'un saurait me dire comment on ouvre l'interface windows pour la sélection d'un dossier?

Je sais déjà comment faire avec un fichier (CATIA.FileSelectionBox()) mais ce n'est pas ce que je recherche à faire...

Merci

bonsoir,


dans un de mes prog vba ...excel j ai utiliser ceci

Private Sub choix_dossier()
   Dim objShell As Object, objFolder As Object, oFolderItem As Object
   Dim Chemin As String
   
   'récupère le nom du répertoire sélectionné

   Set objShell = CreateObject("Shell.Application")
   Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)

   On Error Resume Next

   Set oFolderItem = objFolder.Items.Item
   Chemin = oFolderItem.Path
   
   If Chemin = "" Then
       Exit Sub
   End If
   
   ElementsRepertoire Chemin
End Sub

c'est peux etre utile?qui sait?....
A+

Mais c'est que ça fonctionne nickel tout ça !

Merci bien l'ami tu m'enlèves une épine du pied

A t on service. .