Renommer des dossiers (Help!!)

mokhtarmans Messages postés 12 Date d'inscription mercredi 4 janvier 2006 Statut Membre Dernière intervention 18 janvier 2006 - 17 janv. 2006 à 10:53
kalobit Messages postés 169 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 7 avril 2008 - 17 janv. 2006 à 12:05
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

kalobit Messages postés 169 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 7 avril 2008 2
17 janv. 2006 à 12:05
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

+++
0
Rejoignez-nous