Problème avec la fonction Date

[LeMarchand]

Bonjour à tous,
Mon fichier marche très bien ainsique toutes ces macro sauf la macro auto-open.

Sub auto_open()
'Affichage de l'écran initial du formulaire
Dim DAT As Date
'...
'...
'...
DAT = "30/04/2011"
If Date >= DAT Then
rep = MsgBox("Vous allez utiliser une nouvelle version du fichier." & Chr(10) & "Le fichier de base est toujours le même." & Chr(10) & " Seule une colonne N° de LUP a été ajoutée" & Chr(10) & " Toutes vos remarques sont à comminiquer à:" & Chr(10) & " Jenny Lemée Tel: 21862.", 16, "Information fichier")
End If
'...
'...
End Sub

J'ai une erreur a DAT mais quand je n'oublie pas de déclarer cette variable par
Dim DAT As String
ou
Dim DAT As Date

J'ai une Erreur sur Date ce fichier venant de Excel 2003. Je ne peux la déclarer comme une variable car celle-ci est une fonction.

Pouvez-vous m'aidez a résoudre ce problème ? svp

Merci, si vous voulez plus de renseignement je suis dispo quasi toute la journée je regarde ce forum toutes les heures environ.

 

[Dull]

Re : Problème avec la fonction Date

Salut LeMarchand, le Forum

Peux-tu essayer de remplacer

DAT = "30/04/2011"

par

DAT = CDate("30/04/2011")

à tester

Bonne Journée

 

[ERIC S]

Re : Problème avec la fonction Date

Bonjour

peut-être avec

dat=cdate("1/5/2012")

edit : bonjour Dull

 

[LeMarchand]

Re : Problème avec la fonction Date

Merci je viens d'essayer mais je n'ai plus d'erreur surn DATE mais sur Date , ce que tu m'as donnée ne change rien ni en mieux ni en pire ^^

 

[ERIC S]

Re : Problème avec la fonction Date

re

essaie de faire tourner ta macro en pas à pas pour voir où cela pose pb (fn F8) ou sinon en début de macro ecris
msgbox date
pour vérifier, mais je ne vois pas pourquoi date poserait pb
ou envoie un fichier test simplifié

 

[LeMarchand]

Re : Problème avec la fonction Date

Bon alors effectivement je ne comprends plus rien quand je mets que le auto_open tout seul dans un fichier test cela marche tres bien je suis perdu.

Si vous avez d'autre idée ...
Je vous envoie quand même ce que j'ai testé et le fichier d'origine.
Merci de me répondre même si vous ne trouvé rien .

 

[ERIC S]

Re : Problème avec la fonction Date

Re

sur ton exemple :

il faut déclarer Dat as date et non as string

sur ton fichier d'origine, vba protégé par mot de passe, donc je ne vois pas grand chose

 

[LeMarchand]

Re : Problème avec la fonction Date

Excuse j'avais modifier cela apres et toujours rien le mdp est Jenny avec un J majuscule
J'ai bien mis Dim Dat As Date dans mes fichier excuse moi encore s'il ne sont pas a jour de la dernière sauvegarde.

 

[Dull]

Re : Problème avec la fonction Date

Re le fil

De plus auto_open n'a plus court depuis Excel 95 si je ne m'abuse
préfère lui

Private Sub Workbook_Open()
'TonCode
End Sub

dans le Module ThisWorkbook

sur ton fichier d'origine, vba protégé par mot de passe, donc je ne vois pas grand chose

et donc on ne peux y faire quoi que ce soit.

Bonne Journée

 

[LeMarchand]

Re : Problème avec la fonction Date

Je vais essayé ce que tu m'a dit et je te dedit que le mdp est : Jenny enfin j'essaye ça et je te redit ^^

 

[LeMarchand]

Re : Problème avec la fonction Date

Je viens d'essyer ce que ma dit de mettre dans le ThisWorkbook

Et cela ne chaneg pas mon erreur

Erreur de compilation:

Projet ou bibliothèque introuvable

sur le Date
If Date >= DAT Then

 

[ERIC S]

Re : Problème avec la fonction Date

Re

https://www.excel-downloads.com/threads/bibliotheque-introuvable-ds-macro.70225/

un lien parlant des bibliothèques introuvables
sur ton fichier, en allant dans références, il y a effectivement une ligne MANQUANT dans les 10 premières de la fenêtre, je l'ai décochée et cela a l'air de marcher

Vérifie mais chapeau à MichelXLD

 

[LeMarchand]

Re : Problème avec la fonction Date

oui merci je viens d'essayer un truc pareille et cela marche j'ai mit DateTime.Date ou lieu de Date
J'ai remplacer les Chr(10) par vbCrLfcar il ne prenait plus Chr(10) je ne sais pourquoi.
Enfin J'ai déclarer le rep de la MsgBox

Merci de ton aide

 

[ERIC S]

Re : Problème avec la fonction Date

Re

au lieu de remplacer (ce que j'ai commencé par faire) j'ai décoché la référence indiquée MANQUANT et cela à résolu et le date et le chr (je ne suis pas allé plus loin)
C'est propre à ton fichier origine puisque la ligne MANQUANT n'apparait pas dans ton fichier exemple. il me semble plus propre de décocher la référence que de corriger, au fur et à mesure de l'apparition des erreurs

 

[LeMarchand]

Re : Problème avec la fonction Date

Effectivement c'est plus propre mais un autre soucis vien d'arriver c'est que je mets une minute a ouvrir une fenetre de dialogue alors que je mettais qq seconde sur Excel2003 a tu une idée ?