XL 2010 modification noms de fichiers sur DD

patricktoulon à dit:

Bonjour
oui il y a solution
une parmi d'autres
comme ça vite fait
tu lance
tu choisi le dossier dans la boite de dialog
et ca fait le job sur toutes les photos qui ont le nom qui commence par une date US sans separateur

VB:

Sub rename()
    Dim ShellApp As Object, f As Object, Folder$, NewName$
    Set ShellApp = CreateObject("Shell.Application")
    Set f = ShellApp.BrowseForFolder(0, "CHOISIR UN DOSSIER D'IMAGES", 0, "")
    If Not f Is Nothing Then Folder = f.Self.Path Else Exit Sub

    fichier = Dir(Folder & "\*.jpg")
    Do While fichier <> ""
        If IsNumeric(Left(fichier, 8)) Then
            NewName= Format(Left(fichier, 8), "####-##-##") & Mid(fichier, 9)
            Name Folder & "\" & fichier As Folder & "\" & NewName
        End If
        fichier = Dir
    Loop
End Sub

Cliquez pour agrandir...