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

définir la variable mois

JEFF77

XLDnaute Occasionnel
Bonjour le forum
J'ai toujour des problèmes avec mon prog.Fait sous XP Excel2003 marche nickel,sous Win2000,Excel97 bloque à plusieurs place.les erreurs sont:
1er:dans Workbook:'erreur de compilation'au niveau de DATE Private Sub Workbook_Open()
Sheets('feuil1').Select
MsgBox 'Nous sommes le ' & Date & _
' il est ' _
& Time, vbInformation, 'Bonjour mon petit Franck'
afficheuf
End Sub
2eme:erreur de compil au niveau de QUESTION:'Option Explicit
'Dim question As Byte
Private Sub Workbook_BeforeClose(Cancel As Boolean)
question = MsgBox('Avez vous tous remplis correctement!!', vbYesNo, 'Contrôle')

If question = 7 Then Cancel = True
End Sub
3eme:erreur de compil au niveau de monthname dans DONNEES: mois = MonthName(Month(DATE1)) 'définit la variable mois

Merci de votre aide [file name=Planar_20060115124640.zip size=40417]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Planar_20060115124640.zip[/file]
 

Pièces jointes

  • Planar_20060115124640.zip
    39.5 KB · Affichages: 9

myDearFriend!

XLDnaute Barbatruc
Bonjour JEFF77, le Forum,

Concernant ta 3ème erreur de compilation : cette fonction MonthName n'existe pas dans XL97 (et je suppose que dans XL2000 non plus). Tu devrais pouvoir remplacer ta ligne :
mois = MonthName(Month(DATE1)) 'définit la variable mois
par :
mois = Format(CDate(DATE1), 'mmmm') 'définit la variable mois

Concernant les 2 autres erreurs, je ne vois pas le problème. A prioris, ça fonctionne sous XL97.

Par ailleurs, je te conseille fortement de déclarer TOUTES les variables que tu utilises (Option Explicit devrait apparaître en tête de chacun de tes modules de code et ne devrait en aucun cas être mis en commentaire comme dans ton code ci-dessus). Pour information, la valeur renvoyée par la fonction MsgBox() est une valeur du type Integer et non Byte (ta variable 'question').

Cordialement,
 

JEFF77

XLDnaute Occasionnel
merci à toi MyDearFriend! pourrai tu essayer de modifier mon fichier je ne comprends pas bien se que tu veux dire pour la 1ere et 2eme erreur.
Je fait l'éssai pour la 3eme. [file name=Planar_20060115142532.zip size=40417]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Planar_20060115142532.zip[/file]
 

Pièces jointes

  • Planar_20060115142532.zip
    39.5 KB · Affichages: 14

myDearFriend!

XLDnaute Barbatruc
Re JEFF77,

Pas la peine de rejoindre le fichier si c'est le même que dans ton précédent post et que tu n'y a encore rien modifié.

Ce que j'entends par 1ère et 2ème erreur ce sont les erreurs que tu qualifies toi-même par 1ère erreur et 2ème erreur dans ton premier post !  

Donc je recommence : mis à part le problème de la fonction MonthName() qui n'existe pas dans XL97, le reste semble fonctionner sans soucis dans cette version. Aucune erreur de compilation dans les procédures Workbook_Open() et Workbook_BeforeClose() chez moi.

Cordialement,
 

JEFF77

XLDnaute Occasionnel
Re MydearFriend!
Je viens de tester ta réponse pour la fonction MonthName()fait un copier coller de la ligne que tu m'a laissé ne marche pas.
procédures Workbook_Open() et Workbook_BeforeClose() bloquent toujours.
 

JEFF77

XLDnaute Occasionnel
Je te remerçie qunad même de ton aide.
je vais essayer de refaire mon prog. sous ex97.

Bon dimanche.

PS:Comment fait tu pour fair apparaitre ta signature en bleu clignotant en fin de méssage
 

myDearFriend!

XLDnaute Barbatruc
Ma signature est un simple Gif animé.

Si tu veux insérer ta propre signature automatiquent à chacun de tes posts, je te conseille vivement la lecture du fil Lien supprimé dans lequel notre amie Brigitte te dévoile tout sur le sujet.

Cordialement,
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…