Utilisation de DateDiff

[Toug]

Bonjour, c'est moi a nouveau, le boulet:

Alors cette fois si je voudrais calculer le nombre de jours entre deux date qui sont dans des cellules de la feuille excel.
Ma routine me semble bonne, mais lorsque je l'exécute j'ai une erreur:

Sub opened_since()

Dim datestate As Date
Dim opendate As Date
Dim openedsince As Long
Sheets("Feuil1").Select
datestate = ActiveSheet.Cells(2, 1)
MsgBox datestate
opendate = ActiveSheet.Cells(1, 1)
MsgBox opendate

openedsince = DateDiff(d, opendate, datestate)
MsgBox openedsince


End Sub

Je ne comprend pas d'ou vient mon erreur.

 

[Dull]

Re : Utilisation de DateDiff

Salut Toug, le Forum

j'ai pas ouvert ton fichier mais si tu entoures le d par des guillemets "d" et ça devrait aller

Bonne Journée

 

[gilbert_RGI]

Re : Utilisation de DateDiff

bonjour

juste comme ça

openedsince = DateDiff("d", opendate, datestate)

 

[Toug]

Re : Utilisation de DateDiff

Merci, ça marche!

Peut-on faire le calcul en ne comptant pas les weekend. Juste les jours ouvrés.

 

[gilbert_RGI]

Re : Utilisation de DateDiff

il y a une fonction pour ça
NB.JOURS.OUVRES

 

[Toug]

Re : Utilisation de DateDiff

Oui je la connais mais je voulais savoir si y'a une fonction dans les macros qui le calculait également.

 

[gilbert_RGI]

Re : Utilisation de DateDiff

il n'y a pas de fonction macro pour ça mais un solution en cliquant ici