AlainTech Pas trouvé? Cherche encore! | Voilà de quoi t'inspirer.
Ca ne fait pas exactement ce que tu veux mais, si tu cherches un peu, tu devrais t'en sortir.
Public Sub Rename()
Dim sFullName
Dim sName As String
Dim sNewName As String
Dim sPath As String
Dim vI As Variant
Sheets("Liste" ).Activate
Cells.Clear
sPath = "C:\Mes documents\Excel\ALAIN\" ' Définit le chemin d'accès.
' Extrait la première entrée.
sName = Dir(sPath)
Do While Not sName = "" ' Commence la boucle.
If Right$(sName, 4) = ".xls" Then
If UCase(Left$(sName, 4)) = "TEST" Then
sFullName = sPath & sName
sNewName = sPath & "bk" & sName
Name sFullName As sNewName
End If
End If
sName = Dir ' Extrait l'entrée suivante.
Loop
End Sub |
Message édité par AlainTech le 25-03-2005 à 00:41:07 ---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
|