Discussion :

[nft46]

Bonjour à tous

Help ! je craque. J'ai écrit un petit bout de prog qui fonctionne très bien sur ma machine (W7 Pro et Excel 2010) et dès que je le passe sur une autre j'ai un problème de date.

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Datend As Date
Datend = DateValue("24/09/2016")
Format (Datend), "dd/mm/yyyy"        'Mise au format date
 
If Date > Datend Then
'MsgBox ("Bonjour, la licence d'utiisation du programme est expirée"")

Le message renvoyé par le système est le suivant :

Erreur de compilation
projet ou bibliothèque introuvable

En fait dès que j'utilise Date j'ai le même problème.

Merci de m'aider

[Invité]

Salut,

Et comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Dim Datend As Date
  Datend = Format(CDate("24/09/2016"), "dd/mm/yyyy")
  If Date > Datend Then MsgBox ("Bonjour, la licence d'utiisation du programme est expirée")

[Marc-L]

Bonjour,

VBA code en interne les dates sous le format anglo-saxon. Pas besoin de variable pour une date en dur :

If Date > #9/24/2016# Then MsgBox ("Bonjour, la licence d'utilisation du programme est expirée") …


Si l'erreur persiste, il faudrait penser à vérifier les Références (via le menu Outils) cochées ou pas du projet.

Et merci d'utiliser la prochaine fois l'icône # dévolue au code !

[Docmarti]

Si tu veux utiliser une variable, tu as 2 possibilités passe-partout:

1) Utiliser le format de date international

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Datend = CDate("2016/9/24")

2) Utiliser la commande DateSerial

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Datend = DateSerial(2016, 9, 24)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Datend As Date
 
Datend = DateSerial(2016, 9, 24)
 
If Date > Datend Then
 MsgBox ("Bonjour, la licence d'utiisation du programme est expirée")
End If

Docmarti