Bonsoir le forum

je cherche de l'aide sur ce forum que je trouve génial.

j'ai créer (à l'aide de modèle) sur un userform un calendrier.

Sur la feuil1 j'ai :
en A1 la date choisie à l'aide de mon calendrier qui s'affiche trés bien (ex: lundi 05 mai 2013)
en A2 =A1+7
en A3 je souhaite avoir le N° semaine.

Voiçi mon souci:
La cellule A2 m'affiche #VALEUR! sachant que j'ai mis la cellule en date personnalisé jjjj jj mmmm aaaa.

Voilà les codes du calendrier sur mon UserForm.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub Calendar1_click()
MsgBox"La date est elle correcte ?", vbYesNo, "Date"
Unload Me
ActiveCell.Value=Format(calendar1.Value, "dddd dd mmmm yyyy")
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Privat Sub UserForm Initialize
Calendar1.Value=Date
End Sub
Merci de votre aide.