Discussion :

[ninikosim]

bonjour,
lors de mon import que créer un fichier donc le nom est "2011-03 toto".
le problème que cette import est effectuer au début de chaque mois
alors que dans le nom je veux que sa figure le mois d'avant donc au lieu d'avoir "2011-03 toto" j'ai "2011-04 toto".
pour le moment j'utilise se code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(Format(Now, "yyyy-mm") & " toto")

[Theze]

Bonjour,

Une piste (je ne suis pas trop calé en date) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Workbooks (Year(Now) & "-" & Format(Month(Now) - 1, "00") & " toto")

Hervé.

[Philippe Tulliez]

Bonjour,
Comme ceci aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Format(DateSerial(Year(Now), Month(Now) - 1, 1), "yyyy-mm") & " Toto"

[Jean-Philippe André]

Hello,

je me permets de vous indiquer que si on arrive a janvier 2012, il faudra mettre decembre 2011, donc je propose plutot une approche avec DateAdd

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub piou()
Debug.Print Format(DateAdd("m", -1, Date), "yyyy-mm") & " toto"
End Sub

[Philippe Tulliez]

Bonjour,
Tu as tout à fait raison Jean-Philippe, voilà ce qui arrive quand on répond trop vite.
En fait avec DateSerial, il suffit de mettre le jour à 0 pour obtenir le dernier jour du mois qui précède et donc, j'aurais du proposer ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim wDate As Date
  wDate = DateSerial(2012, 1, 15)
  MsgBox Format(DateSerial(Year(wDate), Month(wDate), 0), "yyyy-mm") & " Toto"

C'est la même chose avec la fonction Date d'excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());0)