Nombre de jours entre deux dates (format jj/mmmm/yyyy)

Bonjour,

Je souhaite calculer le nombre de jours entre deux dates sachant que ces dernières sont au format "jj/mmmm/aaaa".

Ci-dessous mon code :


Function duree() As Integer

Dim datedeb As String, datefin As String
'datedeb est la date de début
'datefin est la date de fin

datedeb = CStr(UserForm1.jour1.Value) & " " & UserForm1.mois1.Value & " " & CStr(UserForm1.annee1.Value)
datefin = CStr(UserForm1.jour2.Value) & " " & UserForm1.mois2.Value & " " & CStr(UserForm1.annee2.Value)

duree = DateDiff("dateinterval.day", datedeb, datefin)

'La durée dans le modèle est calculé en nombre de jour
End Function


le problème intervient au niveau du calcul de la durée, le debug m'indique "type mismatch".
Pour info, datedeb donne ici "30 Mars 2016" et datefin "30 Mars 2017".

Les données jour, mois et année sont selectionnées dans un userform dans lequel j'ai rentré les jours de 1 à 30, les mois de janvier à décembre etc de facon manuelle dans une liste déroulante.

Merci !