renommer par lot fichiers dans rep

Essaie ceci :

'---------------------------------------
Sub test()

Dim NouveauNom As String
Dim AncienNom As String
Dim F, T As String

AncienNom = "arrondissement_5_pdf"
NouveauNom = "Fiche__"
With Application
With .FileSearch
.NewSearch
.SearchSubFolders = False
.LookIn = "c:Atravail" 'Modifie...pour ton répertoire
.Filename = AncienNom & "*"
If .Execute > 0 Then
For Each F In .FoundFiles
T = Replace(F, AncienNom, NouveauNom)
Name F As T
Next
End If
End With
End With

End Sub
'---------------------------------------



"hugo" <hugo@discussions.microsoft.com> a écrit dans le message de news:
7D1BD02E-1E55-4A81-B901-4CA0A54089C2@microsoft.com...
Bonjour,
Je voudrais pouvoirà partir d'une macro renommmer une cinquantaine de
fichiers pdf contenu dans un rep ,je voudrais modifier les noms(qui commence
tous par arrondissement_5_pdf_(nombre) en fiche__(nombre).
Savez vous comment je peux faire?
Merci pour votre aide
Codrdialement
Hugo

Je n'ai vraiment rien contre les macros, mais pourquoi pas un petit outil
existant et gratuit :

http://hp.vector.co.jp/authors/VA014830/english/FlexRena/

Il est certes en anglais mais AMA facile à utiliser malgré tout dans la mesure
où tu peux tester et visualiser tes modifs avant de les appliquer.

----------
Ange Ounis
----------

Bonjour,
Je voudrais pouvoirà partir d'une macro renommmer une cinquantaine de
fichiers pdf contenu dans un rep ,je voudrais modifier les noms(qui commence
tous par arrondissement_5_pdf_(nombre) en fiche__(nombre).
Savez vous comment je peux faire?
Merci pour votre aide
Codrdialement
Hugo