Copier répertoires dans excel

Le
Michel MATHYS
Qui va pouvoir m'aider pour créer une macro qui me donne tous les sous
directories d'un répertoire ?


Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #4393491
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




Publicité
Poster une réponse
Anonyme