msgbox [VBA]

msgbox [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 26-07-2007 à 16:50:16    

Bonjour,  
j'ai 2  petites questions.
1.est ce que c'est possible de créé une macro [VBA]ki permet d'affiche un message (exemple "au revoir" ) quand on ferme le fichier excel
2.est ce que ce message peut changer selon l'heure de fermeture (exp"bonne journée " s'il est fermé entre 6h et 17h, et "bonne soirée" s'il est fermé entre 18h et 22h, et "bonne nuit" aprés 22h"
 
merci beaucoup.
 

Code :
  1. Sub bonjour()
  2. MsgBox "Bonjour", vbOKOnly
  3. End Sub

Reply

Marsh Posté le 26-07-2007 à 16:50:16   

Reply

Marsh Posté le 26-07-2007 à 17:12:23    

j'ai trouvé pour ma 1ere question  
il faut aller dans " Private Sub Workbook_BeforeClose(Cancel As Boolean)".
Par contre la deux, j'ai pas encore trouvé

Reply

Marsh Posté le 26-07-2007 à 17:17:05    

ben tu fais un test sur l'horaire :)
 
if format(now(),"hh" )<18 then
 
etc.

Reply

Marsh Posté le 26-07-2007 à 17:23:27    

merci pour ton aide.mais j'ai oublié de dire ke j'étais un peu novice.
là je quitte mon bureau, je chekerai une fois chez moi.

Reply

Marsh Posté le 26-07-2007 à 19:39:32    

bonsoir,  
j'a essayé de faire ce que tu m'as dit, mais je pense queje me suis planté pcq ça marche pas

Code :
  1. Private Sub Workbook_Open()
  2. If Format(Now(), "hh" ) < 18 Then MsgBox "bonjour", vbOKOnly
  3. Else: MsgBox "bonsoir", vbOKOnly
  4. End If
  5. End Sub

Reply

Marsh Posté le 26-07-2007 à 19:50:24    

Bonsoir,
 
Sub test()
MsgBox IIf(Hour(Now) < 12, "Bonjour", "Bonsoir" )
End Sub
 
A+

Reply

Marsh Posté le 26-07-2007 à 20:09:41    

merci galopin01
jepousee peut etre le bouchon tro loin, si je veux avoir 4 intervalles : <12 bonjour,  entre 12 et 14 "bon ap", entre 14 et 17 bonjour, >18 bonsoir
thx

Reply

Marsh Posté le 27-07-2007 à 08:00:32    

Bonjour voilà la macro qu'il faut placer dans Thisworbook
 
 
Private Sub Workbouk_BforeClose(Cancel As Boolean)
msg = "bon réveil"
Select Case Hour(Now)
    Case 7 To 12:   msg = "Bone journée"
    Case 13 To 17: msg = "Bone am"
    Case 18 To 21: msg = "Bon soiré"
    Case 22 To 24: msg = "Bone nuit"
End Select
MsgBox msg
End Sub

Reply

Marsh Posté le 27-07-2007 à 08:51:11    

merci pyrof.
A noter que vous essayez et que ça marche pas , c'est qui'l faut ajouter un petit "e" entre "b" et "fore":   Private Sub Workbook_BeforeClose(Cancel As Boolean)
bonne journée

Reply

Marsh Posté le 27-07-2007 à 08:56:57    

Voila l'intéret d'écrire en bon français (ki permet) et non en sms (c'était fait exprès)

Reply

Marsh Posté le 27-07-2007 à 08:56:57   

Reply

Marsh Posté le 27-07-2007 à 09:01:01    

"mea colpa". bien joué :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed