Date année derniere

Bonjour,

nous sommes le 02/10/2012 et je voudrais pour l'actualisation d'un fichier par requête MSQuery obtenir la plage de date suivante :

Date début : 01/09/2011 au format 20110901

Date fin : 30/09/2012 au format 20120930

Pouvez-vous m'aider à traduire ceci en VBA ?

Merci de votre aide

Bonjour,

Sub ChDate()
Dim rDd As String, rDf As String
Dim D As Long
    D = DateSerial(Year(Date) - 1, Month(Date) - 1, 1)
    rDd = Year(D) & Right("0" & Month(D), 2) & "01"
    D = DateSerial(Year(Date) - 1, Month(Date), 1) - 1
    rDf = Year(D) & Right("0" & Month(D), 2) & Day(D)
End Sub

Tes données dans rDd (début) et rDf (fin)

A+

EDIT : Correction pour 2012 sur date fin...

Sub ChDate()
Dim rDd As String, rDf As String
Dim D As Long
    D = DateSerial(Year(Date) - 1, Month(Date) - 1, 1)
    rDd = Year(D) & Right("0" & Month(D), 2) & "01"
    D = DateSerial(Year(Date), Month(Date), 1) - 1
    rDf = Year(D) & Right("0" & Month(D), 2) & Day(D)
End Sub

Super, c'est exactement ce que je voulais.

Merci