Renommer des dossiers windows depuis Excel
Bonsoir à tous,
Je me permets de venir poster une petite question qui me tracasse depuis quelques heures.
Pour faire simple, je viens de créer un document Excel avec des numéros de dossiers clients ; DXXXX. En tout, j'ai plus de 2600 numéros différents. J'aimerais trouver un moyen de créer automatiquement un dossier classique sous windows qui porterait comme titre un de mes numéros de dossier, et bien évidemment répéter l'opération pour mes 2599 cellules restantes.
Est-il possible de faire tout ça à partir de VBA ou autre code?
Si cela n'est pas possible, j'ai pensé à une autre idée : créer fictivement 2600 dossiers sous windows, en les nommant de 1 à 2600. Dans un second temps, serait-il possible de tous les renommer automatiquement via Excel? J'ai cru voir un vieux post où on pouvait faire la manip'.
En vous remerciant d'avance pour vos réponses,
MS
Je me permets de venir poster une petite question qui me tracasse depuis quelques heures.
Pour faire simple, je viens de créer un document Excel avec des numéros de dossiers clients ; DXXXX. En tout, j'ai plus de 2600 numéros différents. J'aimerais trouver un moyen de créer automatiquement un dossier classique sous windows qui porterait comme titre un de mes numéros de dossier, et bien évidemment répéter l'opération pour mes 2599 cellules restantes.
Est-il possible de faire tout ça à partir de VBA ou autre code?
Si cela n'est pas possible, j'ai pensé à une autre idée : créer fictivement 2600 dossiers sous windows, en les nommant de 1 à 2600. Dans un second temps, serait-il possible de tous les renommer automatiquement via Excel? J'ai cru voir un vieux post où on pouvait faire la manip'.
En vous remerciant d'avance pour vos réponses,
MS
2 réponses
-
ContributeurBonjour. Excel ne peut pas créer ou renommer des fichiers Windows.
... à moins qu'avec VBA ...
C'est bien, la retraite ! Surtout aux Antilles ... :-)
Raymond (INSA, AFPA, CF/R) -
ContributeurBonjour,
Vite fait vue l'heureSub dossiers() Dim datas, lig As Long, chemin As String chemin = ThisWorkbook.Path & "\" datas = Range([A1], [A1].End(xlDown)).Value For lig = 2 To UBound(datas) MkDir chemin & datas(lig, 1) Next lig End Sub
Liste à partir de A2, aucun contrôle sur la validité du nom, ça plantera.
Sont créés au niveau où est enregistré le fichier.
eric
-
Merci pour ta réponse.
J'ai trouvé quelques lignes sur un forum mais VBA bloque à partir de la 113 cellule et je ne comprends pas pourquoi.
Sub renommer()
Dim Chemin As String
Chemin = "C:\Users\XXX\Desktop\XXX\"
For ligne = 1 To 400
Name Chemin & Cells(ligne, 1) As Chemin & Cells(ligne, 2)
Next ligne
End Sub
Es-tu en mesure de m'expliquer d'où vient le problème?
Merci d'avance
MS -
-
