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]
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]