Modification de code

Bonjours,

J'ai une code VBA qui fonctionnerai bien mais seulement avec un format pour la date dans les textbox comme ceci:

(dd/mm/yyyy) 

Alors que mois j'aimerai avoir ceci:

(" dddd DD mmmm yyYY") 

Ci joint mon formulaire qui sera plus explicatif

Cordialement

Max

Bonjour

Remplaces ta macro par celle-ci : Pas mieux

Private Sub DiffDate()
Dim DateDep As Date
Dim DateFin As Date

    On Error GoTo Fin 'gere l'erreur du textbox par encore rempli
    DateDep = DateValue(Mid(TextBox1, InStr(1, Trim(TextBox1), " ") + 1))
    DateFin = DateValue(Mid(TextBox2, InStr(1, Trim(TextBox2), " ") + 1))

    TextBox3 = DateDiff("d", DateDep, DateFin, 2, 2) & " jours"
    TextBox4 = DateDiff("m", DateDep, DateFin, 2, 2) & " Mois"
    TextBox5 = DateDiff("ww", DateDep, DateFin, 2, 2) & " Semaine(s)"
    TextBox6 = DateDiff("q", DateDep, DateFin, 2, 2) & " Trimestre(s)"
    TextBox7 = DateDiff("yyyy", DateDep, DateFin, 2, 2) & " Année(s)"
    TextBox8 = DateDiff("h", DateDep, DateFin, 2, 2) & " Heure(s)"
    TextBox9 = DateDiff("n", DateDep, DateFin, 2, 2) & " Minutes(s)"
    TextBox10 = DateDiff("s", DateDep, DateFin, 2, 2) & " Seconde(s)"
Fin:

End Sub

Bonjour Banzai

Je te remercie NICKEL.......

@+

Max