Bonjour à tous,

J'ai besoin d'afficher la date du mois précédent dans une cellule.
Pour cela j'éxécute le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim X As Long
    Windows("2010 - Suivi Support-V2.xls").Activate
    Sheets("Cases par filiale").Select
    Set f = Workbooks("2010 - Suivi Support-V2.xls").Sheets(2)
    X = f.Range("A65536").End(xlUp).Row
    Cells(X + 1, "A").NumberFormat = "mmmm-YY"
    Cells(X + 1, "A").Value = Date
Or en utilisant ce code le mois affiché est "May-10" alors que j'ai besoin d'afficher le mois "April-10".
Que dois-je modifier dans mon code pour arriver au résultat escompté ?

Merci pour votre aide
Cordialement