Microsoft 365 ajouter date de MODIFICATION devant le nom du fichier

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée
Peut-être pas possible ??
J'ai besoin d'ajouter la date de modification devant le nom d'environ 150 fichiers pour les classer par dates.
Par exemple nom actuel : "Partenariat isiTel5" résultat souhaité : "2019 07 17 Partenariat isiTel5"

Ces 150 fichiers sont dans le même dossier.

Je ne sais "fichtrement" pas faire ça et je n'ai pas trouvé sur le net !
Auriez-vous la solution ?
Avec mes remerciements,
Amicalement,
lionel,

 

[TooFatBoy]

lol OUI très sérieux

Alors je te propose une génialissime astuce à ne pas divulguer partout : si la date de modif est la même que la date de création, eh bien que tu utilises l'une ou l'autre ça donnera le même résultat, alors dans ce cas de figure utilise plutôt la date de modif.

 

[Usine à gaz]

LOL et ça marche :

Sub Renommer_gérard()
Dim chemin$, fso As Object, f As Object, fn$, p%
chemin = ThisWorkbook.Path & "\" 'dossier à adapter

Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next 'si un fichier est ouvert
For Each f In fso.GetFolder(chemin).Files
    If f.Name <> ThisWorkbook.Name And f.Name Like "*.*" Then
        Workbooks(f.Name).Close False 'si le fichier est ouvert on le ferme
        fn = chemin & f.Name
        p = InStrRev(fn, "\")
        'If f.DateCreated = f.DateLastModified Then
        'Name fn As Left(fn, p) & Format(f.DateCreated, "yyyy mm dd ") & Mid(fn, p + 1)
        'Else
        Name fn As Left(fn, p) & Format(f.DateLastModified, "yyyy mm dd ") & Mid(fn, p + 1)
        'End If
    End If
Next
End Sub

 

[Usine à gaz]

Merci Marcel

 

[ChTi160]

Ok !
Merci lol

 

[TooFatBoy]

LOL et ça marche

Étonnant, non !?!

 

[laurent950]

Étonnant, non !?!

@Marcel32 Chat Alors !!

 

[Usine à gaz]

LOL étonnant avec moi

 

[job75]

J'ai l'impression que le titre du fil au début était "ajouter date de CREATION…"

J'ai eu la berlue ou pas ?

 

[laurent950]

@job75 je pense aussi la même chose il nous hypnotisé

 

[TooFatBoy]

J'ai l'impression que le titre du fil au début était "ajouter date de CREATION…"

J'ai eu la berlue ou pas ?

C'est possible car le message a été édité, et c'est bien pour cela que j'avais précisé "actuellement" dans mon message.
(message que j'ai supprimé suite à la suppression du tien)

 

[job75]

Si le fichier est renommé avec f.DateLastModified il vaut mieux ce code pour la macro RAZ :

Sub RAZ()
Dim chemin$, fso As Object, f As Object, fn$
chemin = ThisWorkbook.Path & "\" 'dossier à adapter
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next 'si un fichier est ouvert
For Each f In fso.GetFolder(chemin).Files
    If f.Name <> ThisWorkbook.Name And f.Name Like "#### ## ## *.xl*" Then
        Workbooks(f.Name).Close False 'si le fichier est ouvert on le ferme
        fn = f.Name
        While fn Like "#### ## ## *": fn = Mid(fn, 12): Wend
        Name chemin & f.Name As chemin & fn
    End If
Next
End Sub

 

[Usine à gaz]

OK, Merci Gérard
lionel,

 

[patricktoulon]

re
Lionel si tu défini pas le chemin pour "DIR" ça risque pas de fonctionner bien évidemment
c'est comme pour le menu tu recopie sans réfléchir a adapter
bref tu préfère scriptingfilesystemobject pas de souci je passe a autre chose
j'insisterais plus avec toi
bon courage

 

[Usine à gaz]

Re-Patrick,

Comme te faire comprendre que ce n'est pas une question de préférence ou pas ?
C'es tout simplement que je ne sais pas adapter ton code pour y insérer mon chemin de fichier : C:\Users\lionel\Desktop\Prospects CaCh envoyes en attente1\

Sub Renommer_Patrick()
    Dim chemin$, fichiers, thedate
    chemin = ThisWorkbook.Path & "\" 'dossier à adapter
    fichiers = Dir(chemin & "*.*")
    Do While fichiers <> ""
        'MsgBox IsDate(Left(fichiers, 10))
        If ThisWorkbook.Name <> Fichier Then
            If Not IsDate(Left(fichiers, 10)) Then
                thedate = Format(FileDateTime(chemin & fichiers), "yyyy mm dd ")
                Name chemin & fichiers As chemin & thedate & "-" & fichiers
            End If
        End If
        fichiers = Dir
    Loop
End Sub

Merci quand même Patrick
Bonne fin de journée
lionel,

 

[TooFatBoy]

C'es tout simplement que je ne sais pas adapter ton code pour y insérer mon chemin de fichier

Visiblement, ton chemin est tout simplement égal à
"C:\Users\lionel\Desktop\Prospects CaCh envoyes en attente2\"