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,

 

[patricktoulon]

re
@laurent tant mieux tu est trop dispersé et tu a raison break un peu

 

[laurent950]

@patricktoulon merci ensuite je vais revenir en pleine forme est motivé sur Evaluate et ma boite de Userform, pour l'instant je laisse cela de coté.

Ps : Rien a voir mais j'ai fais une recherche avec Netflix est les séries (je mis retrouve pas) et j'ai retrouvé des sous catégories avec des codes et le comble c'est un fichier excel (mais un internet excel indépendant de ton excel a toi sur ton ordinateur) j'ai rien compris mais c'est super bien fait ! tu savais que cela existais sous cette forme !
classé par type de série (action) et sous catégorie action( classé par théme) etc.

 

[Usine à gaz]

re-Patrick
"oui enlève le msgbox"
J'avais déjà enlevé

"si ça renomme pas c'est qu'il y a déjà une chaîne de 10 caractères étant une date devant"
Il n'y a aucune date devant et ça ne renomme pas LOL

"pourquoi avec toi tout est de suite plus compliqué ? "
J'en sais rien Patrick

nota : j'ai mis le fichier dans le dossier avec les fichiers à renommer
lionel

 

[patricktoulon]

oui je le savais
et tu devrait pouvoir aller sur les dites page sans passer par le excel

 

[patricktoulon]

voir si tes fichier ne sont pas propriété d'un autre compte windows ça aussi ça peu influer
mais bon là je peux plus rien pour toi
quelque chose d'aussi simple ne saurait l’être plus

 

[TooFatBoy]

Bonjour,

Arthour, si ton chemin d'accès aux fichiers n'est pas bon ça ne va rien renommer, et si tu as un Resume Next l'erreur ne te sera pas signalée.

 

[Usine à gaz]

Re-Patrick,
c'est curieux car avec le code de Job75 ça fonctionne :

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, "\")
        Name fn As Left(fn, p) & Format(f.DateCreated, "yyyy mm dd ") & Mid(fn, p + 1)
    End If
Next
End Sub

et le tien tel que je l'ai mis :

Sub Renommer_Patrick()
    Dim chemin$, fichiers, thedate
   
    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

Ne fonctionne pas

edit : Bonjour Marcel

 

[ChTi160]

Bonjour
Dans la procédure de Patrick (telle que tu l'as mise) je ne vois pas la définition de la Variable Chemin !
jean marie

 

[job75]

J'ai supprimé mon dernier message.

Dans mes macros j'utilise f.DateCreated qui est la date/heure de création du fichier, c'est plus logique.

Si l'on veut la date/heure de dernière modification utiliser f.DateLastModified.

 

[Usine à gaz]

Merci Gérard
c'est la date de modification dont j'avais besoin
lionel,

 

[ChTi160]

Re
c'est ce que je dis lol

Telle que tu l'as mise

c'est donc surement de là que vient son problème !
Jean marie

 

[Usine à gaz]

Re-Gérard,
LOL, je vais corser l'affaire car il me faudrait une nuance en plus :

Est-il possible ?
- Si la date de création est la même que la date de modification = prendre la date de création
- Si la date de création est différente la date de modification = prendre la date de modification.

Je sais ce que vous pensez LOL

 

[TooFatBoy]

Est-il possible ?
- Si la date de création est la même que la date de modification = prendre la date de création
- Si la date de création est différente la date de modification = prendre la date de modification.

Euh... t'es sérieux là, ou c'est pour une caméra cachée ??? LOL

 

[Usine à gaz]

lol OUI très sérieux

 

[ChTi160]

Re
Donc pas besoin de définir la Variable Chemin (si tu passes à autre chose Lol)
et en plus tu n'avais besoin que de la Date ol
c'est fou non ?
jean marie