XL 2013 Retrouver répertoires du type \YYYY\MM\DD

[Wyrgle]

Bonjour à tous,

J'ai un petit problème avec cette ligne de code :

         File_Location = Cells(Ligne, 5).Value & "\" & Format(Now(), "yyyy") & "\" & Format(Now(), "mm") & "\" & Format(Now(), "dd") + Day_Offset & "\"

qui me donne R:\Download\TEST_MACRO 2\Trades\2016\11\3\ alors que je souhaite cela :
R:\Download\TEST_MACRO 2\Trades\2016\11\03\
(avoir 2 digits pour tous les jours du mois).
Je dois en effet chercher des fichiers dans des répertoires du type \YYYY\MM\DD qui existent déjà, je ne les crée pas.

J'ai déjà essayé avec Format(Now(), "ddd" et Format(Now(), "dddd" mais ca ne marche pas...

De même cette ligne est-elle valable pour les mois entre janvier et septembre (1--->9) ??

Help ! -------------> Bisous !!

 

[Jacky67]

Bonjour à tous,

J'ai un petit problème avec cette ligne de code :

         File_Location = Cells(Ligne, 5).Value & "\" & Format(Now(), "yyyy") & "\" & Format(Now(), "mm") & "\" & Format(Now(), "dd") + Day_Offset & "\"

qui me donne R:\Download\TEST_MACRO 2\Trades\2016\11\3\ alors que je souhaite cela :
R:\Download\TEST_MACRO 2\Trades\2016\11\03\
(avoir 2 digits pour tous les jours du mois).
Je dois en effet chercher des fichiers dans des répertoires du type \YYYY\MM\DD qui existent déjà, je ne les crée pas.

J'ai déjà essayé avec Format(Now(), "ddd" et Format(Now(), "dddd" mais ca ne marche pas...

De même cette ligne est-elle valable pour les mois entre janvier et septembre (1--->9) ??

Help ! -------------> Bisous !!

Bonjour,
Si Day_offset est une variable qui doit s'ajouter ou se soustraire aux jours la syntaxe serait

File_Location = Cells(Ligne, 5).Value & "\" & Format(Now(), "yyyy") & "\" & Format(Now(), "mm") & "\" & Format(Now() + Day_Offset, "dd") & "\"

 

[Modeste geedee]

Bonsour®

Bonjour,
Si Day_offset est une variable qui doit s'ajouter ou se soustraire aux jours la syntaxe serait

File_Location = Cells(Ligne, 5).Value & "\" & Format(Now(), "yyyy") & "\" & Format(Now(), "mm") & "\" & Format(Now() + Day_Offset, "dd") & "\"

heu .... pourquoi pas simplement :

File_Location = Cells(Ligne, 5).Value & "\" & Format(Now()+Day_Offset, "yyyy\mm\dd") & "\"

 

[Jacky67]

Bonsour®
heu .... pourquoi pas simplement :
Hello Modeste
Parce que cela retourne

 R:\Download\TEST_MACRO 2\Trades\2016m11d5\

 

[eriiic]

Bonjour,

alors en plagiant honteusement Modeste :

File_Location = Cells(ligne, 5).Value & "\" & Format(Date + Day_Offset, "yyyy""\""mm""\""dd") & "\"

eric

 

[Jacky67]

Bonjour,

alors en plagiant honteusement Modeste :

Bonjour
Bon Plagiat

 

[Wyrgle]

Bonjour,
Si Day_offset est une variable qui doit s'ajouter ou se soustraire aux jours la syntaxe serait

File_Location = Cells(Ligne, 5).Value & "\" & Format(Now(), "yyyy") & "\" & Format(Now(), "mm") & "\" & Format(Now() + Day_Offset, "dd") & "\"

Jacky je prends ton code. Et tu as droit à un bisou.
Merci à tous pour vos réponses !

Wyrgle.

 

[Jacky67]

Jacky je prends ton code. Et tu as droit à un bisou.
Merci à tous pour vos réponses !

Wyrgle.

Re...
Celle d'Eric , plus courte (la formule) fonctionne très bien aussi.

Et tu as droit à un bisou.

Que des promesses

 

[Modeste geedee]

Bonsour®

Bonjour,

alors en plagiant honteusement Modeste :

File_Location = Cells(ligne, 5).Value & "\" & Format(Date + Day_Offset, "yyyy""\""mm""\""dd") & "\"

eric

File_Location = Cells(ligne, 5).Value & "\" & Format(Date + Day_Offset, "yyyy\\mm\\dd") & "\"

Plus courte , fonctionne très bien aussi.
En utilisant un séparateur antislash le caractère suivant est considéré comme texte. Dans ce cas, les guillemets ne sont pas nécessaires:

 

[Jacky67]

Bonsour®

File_Location = Cells(ligne, 5).Value & "\" & Format(Date + Day_Offset, "yyyy\\mm\\dd") & "\"

Plus courte , fonctionne très bien aussi.
En utilisant un séparateur antislash le caractère suivant est considéré comme texte. Dans ce cas, les guillemets ne sont pas nécessaires:

RE..
Parfait
Merci modeste
Je te transfère le bisous de Wyrgle