Renommer des dossiers (Help!!)

Signaler
Messages postés
12
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
18 janvier 2006
-
Messages postés
169
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 avril 2008
-
A partir d'une liste sur excel, renommer et créer plusieurs dossiers avec le contenu des cellules:
For i = 1 to 10
créer des dossiers C\Cfacile(i)
next i

1 réponse

Messages postés
169
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
7 avril 2008
2
salut,

Pour créer des dossiers, utilise la fonction mkdir de vba.

Pour les renomer, tu devra passer par le FSO.

Pour cela, voici un ptit bout de code

Dim fso
Dim MyFolder
set fso = createobject("Scripting.FileSystemObject")
set MyFolder = fso.getfolder(adresse du dossier)

myfolder.name = "Nouveau nom"

L'avantage de fso est que ça te permet de faire toutes les opérations possibles sur le systeme de fichier de windows alors qu'Excel est très limité.

Attention toutefois aux antivirus qui aiment pas trop les instance scripting

+++