XL 2010 modification noms de fichiers sur DD

[jeanmi]

Bonjour à tous et meilleurs vœux 2024,

je souhaiterai modifier la structure du nom de mes fichier photos :

il sont nommé 20190621xxxxxxxxxxxxxxxxxxxxx.jpg

je préfèrerai 2019-06-21xxxxxxxxxxxxxxxxxxxx.jpg

y a t-il une solution

Merci pour votre aide

Cordialement

 

[patricktoulon]

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

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

 

[jeanmi]

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

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

Bonjour #particktoulon , à tous,

Un grand merci pour cette solution qui fonctionne nickel.
Bon dimanche.
Cdlt