Renommer des dossiers windows depuis Excel

MontSouris Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
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


A voir également:

2 réponses

Raymond PENTIER Messages postés 58990 Date d'inscription   Statut Contributeur Dernière intervention   17 354
 
Bonjour. 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)
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

Vite fait vue l'heure
Sub 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
0
MontSouris Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

Essaie mon code qui te crée directement les dossiers et dis-moi si tu as des soucis avec....
Sinon pose ta question sur le topic où tu l'as trouvé, c'est plus logique.
eric
0