Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1353 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  msgbox [VBA]

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

msgbox [VBA]

n°1591942
myelmehdi
Posté le 26-07-2007 à 16:50:16  profilanswer
 

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

mood
Publicité
Posté le 26-07-2007 à 16:50:16  profilanswer
 

n°1591958
myelmehdi
Posté le 26-07-2007 à 17:12:23  profilanswer
 

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é

n°1591960
jpcheck
Pioupiou
Posté le 26-07-2007 à 17:17:05  profilanswer
 

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

n°1591967
myelmehdi
Posté le 26-07-2007 à 17:23:27  profilanswer
 

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.

n°1592018
myelmehdi
Posté le 26-07-2007 à 19:39:32  profilanswer
 

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

n°1592023
galopin01
Posté le 26-07-2007 à 19:50:24  profilanswer
 

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

n°1592028
myelmehdi
Posté le 26-07-2007 à 20:09:41  profilanswer
 

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

n°1592143
pyrof
Posté le 27-07-2007 à 08:00:32  profilanswer
 

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

n°1592167
myelmehdi
Posté le 27-07-2007 à 08:51:11  profilanswer
 

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

n°1592170
pyrof
Posté le 27-07-2007 à 08:56:57  profilanswer
 

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

mood
Publicité
Posté le 27-07-2007 à 08:56:57  profilanswer
 

n°1592171
myelmehdi
Posté le 27-07-2007 à 09:01:01  profilanswer
 

"mea colpa". bien joué :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  msgbox [VBA]

 

Sujets relatifs
[VBA] Word, En tête différent pour chaque page[VBA] Cours/Ressource VBA "correcte", ca existe ?
[VBA] Monter Descendre ListBoxVBA [Résolu] Passer une fonction en paramètre
VBA [Résolu] Placer du texte obtenu par VBA dans un formulaire Outlook[VBA] Probleme de requete
[VBA] Travailler avec un retour (via le presse-papiers) ?[VBA] Msgbox image
VBA Excel instruction pour desactiver les Msgbox() ?[VBA pour ACCESS 2000] Formatage des Msgbox
Plus de sujets relatifs à : msgbox [VBA]


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR