Discussion :

[ninikosim]

Bonjour,

je souhaite renommer des fichiers dans un même répértoire

vu que tout mes fichiers excel se termine par un date de type 20110406 j'aimerai trouver une macro qui m'efface cette date

mes fichier sont de type:
toto 20110406.xls
tata 20110406.xls

j'ai créer cette macro mais elle me change juste les extentions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim Fich As String, Texte As String
Chemin = ChoixDossier("Titre")
Fich = Dir(Chemin & "*.xls")
Do While Fich <> "" And Fich <> "MacroTT.xls"
Texte = Left(Fich, Len(Fich) - 4)
Texte = Texte & ".xls"
Name Chemin & Fich As Chemin & Texte
Fich = Dir()
Loop
End Sub

[mercatog]

Attention quand même si tu auras des fichier de même nom (sans le suffixe date)
Ta proposition, il fallait supprimer 13 caractère et ajouter l'extension

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
    If Fich <> "MacroTT.xls" Then
        Texte = Left(Fich, Len(Fich) - 13)
        Texte = Texte & ".xls"
        Name chemin & Fich As chemin & Texte
    End If
    Fich = Dir()
Loop

[ninikosim]

merci cela marche