Microsoft 365 ajouter date de MODIFICATION devant le nom du fichier

patricktoulon

XLDnaute Barbatruc

• 13 Mai 2020

• #61

Marcel32 à dit:

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

Cliquez pour agrandir...

merci Marcel32 tu a répondu a ma place 😉
ce chemin on peut le traduire comme ça aussi
chemin= environ("userprofile") &"Desktop\Prospects CaCh envoyes en attente2\"

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 13 Mai 2020

• #62

Bonjour Macel32

Bonjour le Fil ,le Forum
Patrick : il ne faut pas de "\" environ("userprofile") &" Ici Desktop
Bonne journée
Jean marie
Prenez Soin e vous !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Mai 2020

• #63

re
bonjour ChTi160
oui tu a raison un oubli de ma part 😉

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 13 Mai 2020

• #64

Bjr Marcel,

Oui ,c'est bien ça mais mais je ne sais plus o^le mettre dans son code lol 🙂
Bonne journée,
lionel,

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Mai 2020

• #65

Tu as une seule ligne commençant par chemin = et en plus elle t'a été signalée dans différents messages, donc ça ne devrait pas être trop dur de la retrouver. 😉

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 13 Mai 2020

• #66

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,

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Mai 2020

• #67

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: 13 Mai 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Mai 2020

• #68

@lionel
tu le fait exprès c'est pas possible !!!???
regarde ce que tu fait bong sang
il n'y a pas quelque chose qui te gêne là

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Mai 2020

• #69

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 ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 13 Mai 2020

• #70

RBjr patrick, Re- Marcjem,

Désolé, je ne comprends pas et je ne sais pas faire 😡

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Mai 2020

• #71

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Mai 2020

• #72

Le monsieur te fait remarquer que tu mets deux fois le "*.*". 😉

La rectification la plus simple et de supprimer le "*.*" de ton chemin (chemin qui doit se terminer par un "\"), et de ne pas toucher à fichiers.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Mai 2020

• #73

Bonjour,

Juste en passant If ThisWorkbook.Name <> Fichier Then ne va pas.

Remplacer Fichier par fichiers.

A+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Mai 2020

• #74

re
bien vu job75 je l'avais pas vu celle là

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 13 Mai 2020

• #75

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,

 

Vote positif 0 Vote négatif