XL 2010 Problème de date en changeant de mois

ClemG · 1 Décembre 2020

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:

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

Lolote83 · 1 Décembre 2020

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 =...

JM27 · 1 Décembre 2020

Bonjour
Sans fichier difficile de t'aider
mais pour moi il ne trouve pas l'onglet JourDecembre ( il est peut être mal orthographié ou il n'existe pas)

Lolote83 · 1 Décembre 2020

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

XL 2010 Problème de date en changeant de mois

ClemG

XLDnaute Nouveau

Lolote83

JM27

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Discussions similaires