XL 2010 Problème de date en changeant de mois

ClemG

XLDnaute Nouveau
Bonjour à tous, j'ai un petit problème dans un code VBA mais je n'arrive pas à savoir où il se trouve.
Pour faire court, j'ai créé un fichier de suivi pour le CA de mon entreprise sous forme de plusieurs userforms. Ce fichier lance directement un userform "de base" servant de console générale et regroupant des infos et des accès autres userforms.
Dans le code d'initialisation de cette "console" j'ai des remplissages de labels qui se font en fonction de la date du jour en allant piocher dans des classeurs en d'après le mois en cours (fonction month(date))
Tout fonctionnait très bien lors de la création du fichier (en novembre, fonctionnait tous les jours) mais aujourd'hui, passage en décembre, le fichier me renvoie:
1606841780982.png

Voici un extrait de mon code:

Me.LabelDateJour = Date
Me.LabelMoisDate = Val(Month(Date))

Dim moisencours
moisencours = Me.LabelMoisDate.Caption
Dim pagemois


If moisencours = "1" Then
pagemois = "JourJanvier"
End If
If moisencours = "2" Then
pagemois = "JourFevrier"
End If
If moisencours = "3" Then
pagemois = "JourMars"
End If
If moisencours = "4" Then
pagemois = "JourAvril"
End If
If moisencours = "5" Then
pagemois = "JourMai"
End If
If moisencours = "6" Then
pagemois = "JourJuin"
End If
If moisencours = "7" Then
pagemois = "JourJuillet"
End If
If moisencours = "8" Then
pagemois = "JourAout"
End If
If moisencours = "9" Then
pagemois = "JourSeptembre"
End If
If moisencours = "10" Then
pagemois = "JourOctobre"
End If
If moisencours = "11" Then
pagemois = "JourNovembre"
End If
If moisencours = "12" Then
pagemois = "JourDecembre"
End If

Me.LabelEstCA.Caption = Format(Sheets(pagemois).Range("N4"), "# ##0")
Me.LabelAvN.Caption = Round(Sheets(pagemois).Range("N5"), 2)
Me.LabelAvObj.Caption = Round(Sheets(pagemois).Range("N7"), 2)
Me.LabelMgeCum.Caption = Round(Sheets(pagemois).Range("J24"), 2)

J'espère que vous pourrez m'aider, c'est un fichier ultra pratique mais s'il ne fonctionne pas c'est du temps perdu. J'ai pas mal cherché sur les forums mais sans succès pour ce sujet bien spécifique...

Merci

Clément
 
Solution
Bonjour à tous.
Je rejoins JM27 sur sa remarque. Peut être Décembre à-t-il été orthographié avec un accent ???
Cependant, j'ai juste modifié ton code car à mon sens plus lisible que tous ces IF ENDIF
VB:
..........
    Me.LabelDateJour = Date
    Me.LabelMoisDate = Val(Month(Date))
    
    Dim MoisEnCours
    Dim PageMois

    MoisEnCours = Me.LabelMoisDate.Caption
    Select Case MoisEnCours
        Case Is = 1:            PageMois = "JourJanvier"
        Case Is = 2:            PageMois = "JourFevrier"
        Case Is = 3:            PageMois = "JourMars"
        Case Is = 4:            PageMois = "JourAvril"
        Case Is = 5:            PageMois = "JourMai"
        Case Is = 6:            PageMois = "JourJuin"
        Case Is =...

Lolote83

XLDnaute Barbatruc
Bonjour à tous.
Je rejoins JM27 sur sa remarque. Peut être Décembre à-t-il été orthographié avec un accent ???
Cependant, j'ai juste modifié ton code car à mon sens plus lisible que tous ces IF ENDIF
VB:
..........
    Me.LabelDateJour = Date
    Me.LabelMoisDate = Val(Month(Date))
    
    Dim MoisEnCours
    Dim PageMois

    MoisEnCours = Me.LabelMoisDate.Caption
    Select Case MoisEnCours
        Case Is = 1:            PageMois = "JourJanvier"
        Case Is = 2:            PageMois = "JourFevrier"
        Case Is = 3:            PageMois = "JourMars"
        Case Is = 4:            PageMois = "JourAvril"
        Case Is = 5:            PageMois = "JourMai"
        Case Is = 6:            PageMois = "JourJuin"
        Case Is = 7:            PageMois = "JourJuillet"
        Case Is = 8:            PageMois = "JourAout"
        Case Is = 9:            PageMois = "JourSeptembre"
        Case Is = 10:            PageMois = "JourOctobre"
        Case Is = 11:            PageMois = "JourNovembre"
        Case Is = 12:            PageMois = "JourDecembre"
    End Select
..............
@+ Lolote83
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG