Renommer des extensions

Romain · 26 Avril 2006

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

Romain

Hervé · 26 Avril 2006

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 · 27 Avril 2006

Merci pour ta réponse.

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

Name fichier As nom & '.bbb'

Hervé · 27 Avril 2006

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

Renommer des extensions

Romain

Guest

Hervé

XLDnaute Barbatruc

Romain

Guest

Hervé

XLDnaute Barbatruc

Discussions similaires

Renommer des extensions

Romain

Guest

Hervé

XLDnaute Barbatruc

Romain

Guest

Hervé

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency