problème de lancement d'application

[JEFF77]

Bonjour le forum
Après l'aide de plusieurs personnes du forum mon prog.marche bien sur mon pc XP media center EXCEL 2003.
Je veut le mettre à mon boulot Win 2000 sp4,excel 97 sr2 et la 2 problèmes se posent.
1er:l'application se bloque au niveau 'donnée' à la ligne de commande'mois = MonthName(Month(DATE1)) 'définit la variable mois'.
2eme:dans THISwhorkbook la commande 'Private Sub Workbook_Open()' ne marche pas.

Je vous remerçie de votre aide. [file name=Planar.zip size=40417]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Planar.zip[/file]

 

[Jacques87]

Bonsoir Jeff

Ton problème est du au fait que tu passes d'une version 2003 avec laquelle je suppose que tu as construis ton produit, vers une version ancienne (Excel 97)

Autant tu peux monter (97 vers 2000 vers 2003) impossible de descendre (2003 97) car tu dois utiliser certaines commandes qui n'existaient pas avec 97

Bonne soirée

Message édité par: Jacques87, à: 12/01/2006 20:17

 

[JEFF77]

Je suis d'accord avec toi Jacques87 mais je le lance sur mon portable Win98 SE excel 97 sr2 et il fonctionne sauf dans 'Donnée' impossible de rentrer une date.

 

[Jacques87]

Je n'ai aucun problème pour rentrer une date
Windows XP
Excel 2003

fais donc une recherche pas à pas pour voir de où viens ton erreur

A+

 

[JEFF77]

sous XP et excel2003 OK
sous 98 SE excel 97 sr2,fonctionne sauf dans \\'Donnée\\' impossible de rentrer une date.
sous Win2000 excel 97 sr2,1er:l'application se bloque au niveau \\'donnée\\' à la ligne de commande\\'mois =
MonthName(Month(DATE1)) 'définit la variable mois\\'.
2eme:dans THISwhorkbook la commande 'Private Sub Workbook_Open()' ne marche pas.

 

[Jacques87]

Jeff, chez moij'ai les 3 versions d'excel 97, 2000 et 2003

Je viens de constater que la fonction MonthName qui a pour but de renvoyer le nom du mois, n'est pas reconnue par 97
je continue à chercher

suite de mes recherches :
sous 2000, cette fonction est connue
Maintenant en ce qui concerne la procédure évènementielle This WorkBook, pourrais tu détailler :
se lance -t-elle ?
si oui où bloque -t-elle?
si non que se passe-t-il ? message d'erreur ou autre

Message édité par: Jacques87, à: 12/01/2006 21:26

 

[JEFF77]

pour la procédure évènementielle This WorkBook je vais voir demain au boulot je post la réponse demain.

merci de aide.

 

[JEFF77]

Jacques87 j'ai essayé à mon boulot,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 compilau niveau de monthname dans DONNEES: mois = MonthName(Month(DATE1)) 'définit la variable mois [file name=Planar_20060113200953.zip size=40417]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Planar_20060113200953.zip[/file]

 

[Jacques87]

Bonsoir Jeff

Je viens d'essayer de chercher la (ou les) raison(s) qui provoquent tes erreurs

1) pour les 2 premières, aucune erreur n'est déclenchée chez moi sous Excel 97

2) comme je te l'ai dit hier, Excel 97 ne connait pas la fonction MonthName
La solution serait de 'biaiser' avec les possibilités d'excel 97 'qui seront automatiquement acceptées par toute version suivante)

sinon je ne vois pas comment faire

Bonne soiré Jeff

 

[JEFF77]

Jacques87
que veux tu dire par 'biaiser'?

Pour les 2 premiéres ça fonctionne bien cher moi avec XP,par contre au boulot j'ai Win2000 et Excel 97.
Win2000 pourrait il poser un problème?

 

[Jacques87]

comme Excel 97 n'accepte pas cette fonction, je propose de 'biaiser' c'est à dire de contourner la difficulté en créant une petite procédure avec les moyens de Excel 97 qui donnerait le même résultat

 

[JEFF77]

Merci Jacques87
je vais tenter de faire un éssai mais pas convaincu de mes capacités.

@ + et bonne soirée.