Bonjour à tous,

j'essaie dans un userform de mettre une date et de la faire changer via un spinbutton. Cela fonctionne, mon problème est qu'ensuite je veux ré-utiliser cette date dans une fonction pour savoir qu'elle est le jour de la semaine et par rapport à ce jour il m'affiche ou non des feuilles spécifiques.
Mon problème est que ma date je veux la voir en format complet "vendredi 1 janvier 2014" et elle est donc mise en format String.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Label1.Caption = Format(Date + SpinButton1.Value, "dddd d mmmm yyyy")
et quand je veux la remettre en format date impossible ça bug.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim DateLabel As Date
 
DateLabel = CDate(Label1.Caption)
 
If DatePart("w", DateLabel, vbSunday) = 2 Then
 Sheets("EPI").Visible = True
        Else
        Sheets("EPI").Visible = False
 
 End If
Pouvez-vous me donner un petit coup de pouce SVP ?

Merci, cdlt.
PLV