Valeur dans msgbox

[jean paul]

Bonjour à tous
Je souhaite integrer la valeur d'une date dans un message d'une Msgbox, je n'arrive pas à mettre cette valeur dans la ligne de code , je dois manquer quelque chose .
message souhaité

ATTENTION CETTE JOURNEE du 21 novembre 2008 N'A PAS ETE VALIDEEE" Valider pour continuer"


ci joint code avant modif

Dim reponse
Dim ActivationEvents As Long
ActivationEvents = Application.EnableEvents
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect


reponse = MsgBox(" AVEZ VOUS SELECTIONNER LA BONNE DATE ?", vbYesNo + vbQuestion, "IMPORTER")
If reponse = vbNo Then GoTo 1

If Worksheets("feuil1").Range("j13") = "validation non faite" Then
'reponse = MsgBox("ATTENTION CETTE JOURNEE N'A PAS ETE VALIDEEE" & Chr(13) & "" & Chr(13) & " Valider pour continuer" & Chr(13) & " " & Chr(13), vbOKOnly + vbCritical, " IMPORTER")


If reponse = vbOK Then GoTo 1
End If





ci joint code modifier



Dim valeur
Dim reponse
Dim ActivationEvents As Long
ActivationEvents = Application.EnableEvents
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect
With Sheets("impression").Range("x1")
valeur = Format(.Value, " dddd dd mmmm yyyy")
End With



reponse = MsgBox(" AVEZ VOUS SELECTIONNER LA BONNE DATE ?", vbYesNo + vbQuestion, "IMPORTER")
If reponse = vbNo Then GoTo 1
If Worksheets("feuil1").Range("j13") = "validation non faite" Then


reponse = MsgBox("ATTENTION CETTE JOURNEE DU"&valeur,"N'A PAS ETE VALIDEEE" & Chr(13) & "" & Chr(13) & " Valider pour continuer" & Chr(13) & " " & Chr(13), vbOKOnly + vbCritical, " IMPORTER")


If reponse = vbOK Then GoTo 1
End If

Merci pour vos réponses

 

[RENAUDER]

Re : Valeur dans msgbox

Bonjour,

Resp = MsgBox("ATTENTION CETTE JOURNEE du " & Format(Date, "dd mmmm yy") & " N'A PAS ETE VALIDEEE" & vbCr & " Valider pour continuer", vbInformation + vbkonly)

 

[jean paul]

Re : Valeur dans msgbox

Merci pour votre réponse et bonne soirée

 

[Papou-net]

Re : Valeur dans msgbox

Bonsoir jean paul, RENAUDER,

Ou tout simplement comme celà :

reponse = MsgBox("ATTENTION CETTE JOURNEE DU" & valeur & "N'A PAS ETE VALIDEEE" & Chr(13) & "" & Chr(13) & " Valider pour continuer" & Chr(13) & " " & Chr(13), vbOKOnly + vbCritical, " IMPORTER")

Cordialement.

 

[jean paul]

Re : Valeur dans msgbox

Bonsoir à tous les deux

En effet cette reponse me convient parce que elle prend bien en compte la valeur definie plus haut
merci à tous