Sujet Précédent Sujet Suivant

Renommer des dossiers windows depuis Excel

Fermé
MontSouris Messages postés 8 Date d'inscription jeudi 5 novembre 2015 Statut Membre Dernière intervention 25 juillet 2016 - 21 janv. 2016 à 00:46
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 22 janv. 2016 à 00:46
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

Réponse 1 / 2
Raymond PENTIER Messages postés 58397 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 avril 2024 17 094
Modifié par Raymond PENTIER le 21/01/2016 à 00:49
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
Réponse 2 / 2
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
21 janv. 2016 à 01:24
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 jeudi 5 novembre 2015 Statut Membre Dernière intervention 25 juillet 2016
22 janv. 2016 à 00:24
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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
22 janv. 2016 à 00:46
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