Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
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 & "\" &...
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
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
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD