Renommer des extensions

[Romain]

Bonjour à tous,
Dans un dossier c:\\test, je souhaite renommer tous les fichiers *.aaa en *.bbb
Merci pour votre aide

Romain

 

[Hervé]

bonjour romain

peut etre une piste à travers ce code :

Sub Bouton1_QuandClic()
Dim rep As String, fichier As String
Dim nom As String

rep = 'C:\\\\\\\\test\\\\\\\\*.aaa'
fichier = Dir(rep)

While Not fichier = ''
        nom = Split(fichier, '.')(0)
        Name fichier As nom & '.bbb'
        fichier = Dir
Wend

End Sub

salut

 

[Romain]

Merci pour ta réponse.

Je l'ai testé hier soirmais cela bloque sur cette ligne

Name fichier As nom & '.bbb'

 

[Hervé]

bonjour romain


quel message d'erreur as-tu ?
quelle version d'excel ?

essayons en 'forcant' le chemin :

Sub Bouton1_QuandClic()
Dim chemin As String
Dim rep As String, fichier As String
Dim nom As String

chemin = 'C:\test\'
rep = chemin & '*.aaa'
fichier = Dir(rep)

While Not fichier = ''
MsgBox fichier
        nom = Split(fichier, '.')(0)
        Name chemin & fichier As chemin & nom & '.bbb'
        fichier = Dir
Wend


End Sub

je viens de tester, cette procédure fonctionne chez moi.

salut