Microsoft 365 ajouter date de MODIFICATION devant le nom du fichier

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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"
Sans titre.jpg
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,
 
Dernière édition:
Solution
Si l'on veut revenir en arrière en supprimant la date de création du fichier utiliser cette macro :
VB:
Sub RAZ()
Dim chemin$, fso As Object, f As Object
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
        Name chemin & f.Name As chemin & Replace(f.Name, Format(f.DateCreated, "yyyy mm dd "), "")
    End If
Next
End Sub

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Marcel, le Forum,
merci à toi :)

J'ai fait comme ça :
VB:
Sub Renommer_Patrick()
    Dim chemin$, fichiers, thedate
    chemin = "C:\Users\lionel\Desktop\Prospects CaCh envoyes en attente" & "*.*" '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
Surement que je me plante,ça ne fonctionne pas ... j'abandonne ..... je laisse tomber :)
A bientôt,
lionel,
 

TooFatBoy

XLDnaute Barbatruc
Ne manquerait-il pas un "\" entre la fin du chemin et le nom de fichier ?... ;)

chemin = "C:\Users\lionel\Desktop\Prospects CaCh envoyes en attente\" & "*.*"

Rem 1 : et, soit dit en passant, si tu comptes laisser fixe le "*.*" (ne pas le remplacer par une variable), autant l'inclure dans le reste :
chemin = "C:\Users\lionel\Desktop\Prospects CaCh envoyes en attente\*.*"

Rem 2 : tu peux aussi utiliser la variable d'environnement comme indiqué par @patricktoulon.
 
Dernière édition:

TooFatBoy

XLDnaute Barbatruc
Ah oui, effectivement, j'étais resté sur la première erreur et n'avais même pas regardé le reste du code... :(

@arthour973 :
As-tu compris ce qu'est une concaténation de chaînes de caractères ?
As-tu compris ce qu'est un "chemin" d'accès (à des fichiers ou à des dossiers) ?
As-tu compris la syntaxe d'un chemin absolu ?
 

patricktoulon

XLDnaute Barbatruc
re

chemin = "C:\Users\lionel\Desktop\Prospects CaCh envoyes en attente\" 'dossier à adapter
fichiers = Dir(chemin & "*.*")

traduction
chemin = "C:\Users\lionel\Desktop\Prospects CaCh envoyes en attente\" 'dossier à adapter

fichiers = Dir(chemin & "nimporte quel nom . nimporte quel extension ")

'Do While fichiers <> ""
faire tant que fichiers <> ""

'fichiers=dir
fichiers = suivant
Loop
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bon Gérard, merci pour ton oeil de lynx :)

Re-Patrick et Marcel,

Suite aux observations, j'ai fait ceci :
VB:
Sub Renommer_Patrick()
    Dim chemin$, fichiers, thedate
    chemin = "C:\Users\lionel\Desktop\Prospects CaCh envoyes en attente\" '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
ça coince là : "Name chemin & fichiers As chemin & thedate & "" & fichiers",
Je commence à fatiguer lol,
lionel,
 

Discussions similaires

Statistiques des forums

Discussions
311 741
Messages
2 082 055
Membres
101 882
dernier inscrit
XaK_