Résolu XL 2016 Vba mkdir dossier source

niconoip

XLDnaute Nouveau
Bonsoir à tous,
Je suis nouveau sur ce forum, et nouveau en vba.. très prenant!
J'ai un soucis dans une commande, j'essaie de créer les dossiers et sous-dossiers (répétitif, comme suit: ville(nom de la ville), puis en sous-dossier par ville plusieurs dossiers).
Jusque-là, tout va bien,ça fonctionne. Par contre, comment puis-je sélectionner un dossier cible? Pour l'instant, cela ne marche que dans le dossier ou j'ai mon tableur.
J'ai pensé au gestionnaire de nom pour choisir le dossier cible, rien n'y fait.. J'essaie mais je m'arrache des cheveux!
Voici ce que j'ai mis en code, si qq un arrive à m'éclairer, je suis preneur pour comprendre!
Belle soirée à tous, Nicolas

Sub CreationChemin()
Dim Chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
'Définit un titre pour la boîte de dialogue
.Title = "Selectionner un lecteur et un dossier de sauvegarde"
.Show
'Affiche le nom du dossier sélectionné
If .SelectedItems.Count > 0 Then
Chemin = .SelectedItems(1) & "\"
ActiveWorkbook.Names.Add Name:="Emplacement", RefersTo:=Chemin
'Msgbox ==>facutatif
MsgBox "L'emplacement du dossier choisi est:" & vbLf & Chemin & vbLf & "Il est stoché sous le nom : ''Emplacement'' dans le gestionnaire des noms", , "Information"
Else
MsgBox "Abandon", , "information"
End If
End With
End Sub


Sub CreationRepertoires()

On Error Resume Next
i = 1
While Cells(i, 1).Value <> ""
MkDir ActiveWorkbook.Path & ActiveWorkbook.Names("emplacement") & Cells(i, 1).Value
For j = 2 To 9
MkDir ActiveWorkbook.Path & ActiveWorkbook.Names("emplacement") & Cells(i, 1).Value & "\" & Cells(i, j).Value
Next j
i = i + 1
Wend
End Sub
 
Ce fil a été résolu! Aller à la solution…

Dranreb

XLDnaute Barbatruc
Bonsoir.
Je ne sais pas si c'est la réponse que vous cherchez mais [emplacement] devrait valoir votre chemin. Testez MsgBox [emplacement]
Mais je n'ai pas compris ce que vous entendez par "sélectionner un dossier cible".
 

niconoip

XLDnaute Nouveau
Bonsoir merci de votre réponse je vais tester cela. Par dossier cible j'entends le dossier où seront crées tous les dossiers et sous-dossiers. Merci
 

Dranreb

XLDnaute Barbatruc
Oui "dossier cible" ça va, c'est plus "sélectionner" que je n'ai pas compris.
Peut être ChDir [emplacement] ? Mais ça s'appelle "définir comme dossier courant", pas "sélectionner".
 

niconoip

XLDnaute Nouveau
oui pardon, j ai répondu un peu vite.. j ai joint mon fichier à toutes fins utiles.
je parlais de sélectionner de manière à choisir le dossier cible via une boite de dialogue. J'ai réussi à créer un bout (via deux boutons, un choix du dossier, stocké dans le gestionnaire de noms, l'autre qui lance l'opération de création). comment réutiliser le chemin stocké dans le gestionnaire de noms..?
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas