Visual Basic/Excel | Condition avec "Date"

Résolu/Fermé

Marounda - 28 janv. 2011 à 10:29
Marounda - 28 janv. 2011 à 17:45

Bonjour,

J'ai créé un outil de calcul pour mon travail.

Il est pas mal et j'aimerais le protéger et je bloc sur un truc tout con.

Le tout se situe dans VBA project => Microsoft Excel Objetcts => ThisWorkbook

Je passe par là, car à l'ouverture du fichier, je lui demande de comparer la date, si la date du jour est supérieure au 25/03/2010 (pour exemple), alors je désire qu'il me charge un UserForm précis, qui imposera un mot de passe pour pouvoir faire fonctionner le fichier Excel, sinon je fais fermer le fichier Excel !

Bref, alors dans ThisWorkbook j'ai mis ce code :

Private Sub Workbook_Open()
Application.WindowState = xlMaximized 'Je demande à agrandir la fenêtre par esthétisme
Sheets("Accueil").Select 'Je désire que l'outil s'ouvre sur ma page d'accueil

If Date > "25/03/2011" Then 'Ici je pose ma condition
UserForm10.Show 'Je lance un UserForm si la condition est remplie
Else:
UserForm1.Show 'Sinon, je lance cet UserForm
End If

End Sub

Si je met Date > "27/01/2011", je vais avoir le premier UserForm, si je met Date > "28/01/2011" j'ai le 2ème UserForm (car on est le 28), donc j'ai envie de dire tout est parfait !

Mais dès que je met Date > "25/03/2011" (ou même 20/02/2011), enfin dès que je sors de Janvier, j'ai l'impression que ça ne fonctionne plus et il me charge en permanence le premier UserForm...

A croire qu'il ne connait pas la date du jour...

Comment puis-je modifier ce bout de code qui me paraît juste afin qu'il fonctionne quelque soit la date limite fixée ?

Un très grand merci par avance, en espérant que vous saurez m'aider :)

Merci à tous !

A voir également:

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 28/01/2011 à 10:48

Salut,
Je pense que ton problème tiens dans le type de variable. Tu compares Date qui est du type date avec "......" qui serait du type string.
Essaye ceci :

Sub test() 
If CDate(Date) > CDate("25/03/2012") Then 
    MsgBox "Date du jour supérieure à date indiquée" 
Else 
    MsgBox "Date du jour inférieure à date indiquée" 
End If 
End Sub

Cela fonctionne en changeant la date entre ""
"Laissez-moi deviner... Votre surnom, c'est «Bande Passante»? "
- Le Tribunal des flagrants délires- P.Desproges -

Discussions similaires

nombre de cellules selon leur couleurs

code renvoi à la ligne sous VBA Excel

Copier des valeurs sans formules [VB]

envoie 1 feuille spécifique excel vers messag

Syntaxe VBA Sheets.Range avec Range variable

Creer une nouvelle feuille VBA EXCEL

Discussions similaires

Newsletters