Macro pour renommer fichier avec caractères spéciaux

[LaFougere]

Bonjour,
Je voudrais créer une macro dans excel 2007 dont la fonction serait la suivante :

1) lister tous les fichiers d'un répertoire et de ses sous-répertoires
2) si les noms de fichiers contiennent des caractères tels que "_", "é", "è"..., je voudrais les remplacer par d'autres caractères acceptés

Quelqu'un a t'il une solution à mon problème

Merci par avance.

 

[zeb]

Bonjour,

Nous ne faisons pas de travail à la demande. C'est contraire au règlement !
Nous nous entraidons entre développeurs. Nous acceptons volontiers les débutants.
As-tu déjà un petit quelque chose ?

 

[LaFougere]

Non, pas encore, à part quelques idées :

1) lister les fichiers des répertoires
2) tester les caractères qui figurent dans la chaîne de caractères des noms
3) si présence de caractères non désirés, les remplacer par des caractères valides
4) enregistrer dans le répertoire d'origine les nouveaux noms de fihiers

En fait je butte sur les points 1 et 4, les points 2 et 3 me semblent plus accessibles..

Merci pour les infos

 

[zeb]

Pour lister les fichiers, je te propose de ne pas le faire en Basic. Trop archaïque. A la place, utilise la méthode File d'un objet FileSystemObject. Pour enregistrer le fichier, c'est la méthode Move de l'objet File du FileSystemObject, encore lui

Option Explicit

Dim FSO As FileSystemObject
Dim fic As File

Set FSO = CreateObject("FileSystemObject")

For Each fic In FSO.Files
    ...
    fic.Move( ... )
Next