Calcul sur Date [Résolu]

[arjo54]

Bonjour à tous
Je cherche sur les forums ma solution, mais ne trouvant rien ou je ne vais pas au bon endroit je vous pose mon problème :

Voilà je cherche à récupérer l'année -1

Code :

1
2
3
4
5
6
7
8
9
10
11
 
    Dim nAnnee, nAnnee1 As Integer
    Dim cAnnee,cSource,cSauvegarde as String
 
    cSource = "NoelPourTous.mdb"
    nAnnee = Year(Date)
    nAnne1 = nAnnee -1
    cAnnee = CStr(nAnnee) & CStr(nAnnee1)
    cSauvegarde = "Campagne" & cAnnee
 
    MsgBox (cSauvegarde)

Mon problème est que j'ai toujour 0 dans nAnnee1 alors que je devrais avoir : 2006

Ca doit être tout "con" mais je ne vois pas.

Merci de votre aide

Joël

[Heureux-oli]

Essaie de mettre des debug.print dans ton code, parce que chez moi ça passe !

Essaie de modifier ta variable

Code :

1
2
3
4
5
6
7
8
9
10
Dim nAnnee, nAnnee1 As Integer
    Dim cAnnee,cSource,cSauvegarde as String
 
    cSource = "NoelPourTous.mdb"
    nAnnee = Year(Date)
    nAnne1 = nAnnee -1
    cAnnee = CStr(nAnnee) & CStr(nAnnee1)
    cSauvegarde = "Campagne" & cAnnee
    
    MsgBox (cSauvegarde)

Si tu as fait un copier coller de ton code, ton erreur est là

Code :

1
2
3
4
5
6
7
8
 
    Dim cAnnee,cSource,cSauvegarde as String
 
    cSource = "NoelPourTous.mdb"
    cAnnee = CStr(Year(Date)) & CStr(nAnnee -1)
    cSauvegarde = "Campagne" & cAnnee
 
    MsgBox (cSauvegarde)

Par contre, tu peux gagner quelques lignes.

tu dois impérativement mettre dans ton module

Code :

Option Explicit