Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Utilisation de DateDiff

Toug

XLDnaute Junior
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:
Code:
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.
 

Pièces jointes

  • Classeur1.xls
    32 KB · Affichages: 69
  • Classeur1.xls
    32 KB · Affichages: 72
  • Classeur1.xls
    32 KB · Affichages: 70
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…