Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonsoir, on peut faire mieux:
Sub ChercheDossier() Dim chemin As String, objShell As Object, objfolder As Object Set objShell = CreateObject("Shell.Application") Set objfolder = objShell.BrowseForFolder(0, Message, 0, "c:") On Error GoTo fin chemin = objfolder.parentfolder.ParseName(objfolder.Title).Path ChDir chemin Application.Dialogs(xlDialogOpen).Show Exit Sub fin: MsgBox "vous n'avez pas validé de choix correct" End Sub
'lSteph
Qui va pouvoir m'aider pour créer une macro qui me donne tous les sous directories d'un répertoire ?
Michel
Bonsoir,
on peut faire mieux:
Sub ChercheDossier()
Dim chemin As String, objShell As Object, objfolder As Object
Set objShell = CreateObject("Shell.Application")
Set objfolder = objShell.BrowseForFolder(0, Message, 0, "c:")
On Error GoTo fin
chemin = objfolder.parentfolder.ParseName(objfolder.Title).Path
ChDir chemin
Application.Dialogs(xlDialogOpen).Show
Exit Sub
fin:
MsgBox "vous n'avez pas validé de choix correct"
End Sub
'lSteph
Qui va pouvoir m'aider pour créer une macro qui me donne tous les sous
directories d'un répertoire ?
Sub ChercheDossier() Dim chemin As String, objShell As Object, objfolder As Object Set objShell = CreateObject("Shell.Application") Set objfolder = objShell.BrowseForFolder(0, Message, 0, "c:") On Error GoTo fin chemin = objfolder.parentfolder.ParseName(objfolder.Title).Path ChDir chemin Application.Dialogs(xlDialogOpen).Show Exit Sub fin: MsgBox "vous n'avez pas validé de choix correct" End Sub
'lSteph
Qui va pouvoir m'aider pour créer une macro qui me donne tous les sous directories d'un répertoire ?