msgbox

Oui, on voit. Et tu es novice en "Forum" aussi.

Mais ce n'est pas grave. Va lire les règles, applique-les et je suis sûr que tu obtiendras une réponse.

bonjour zeb,
j'ai lu les règles, et je ne voie pas trop où se situe mon erreur, à part le faite que j'ai oublié de mettre [code] . C'est ça?

voui ! Sinon, le tutoiement est de rigueur. Et en voilà encore un qui me dit "monsieur"  
(Marsien va encore se foutre de ma gueule)

Allez, dépêche-toi de mettre ton premier message en conformité que je puisse te répondre.

Voilà mister. merci

Sub bonjour() 
MsgBox "Bonjour", vbOKOnly 
 
End Sub

Moderator dixit: il faut tout faire soit-même   Et modifier directement le premier post, cela n'aurait pas été plus sympa ?

il faut mettre [/code] a la fin ^^

désolé

[code]
Sub bonjour()
MsgBox "Bonjour", vbOKOnly

End Sub
[code]

Sub bonjour()  

MsgBox "Bonjour", vbOKOnly  

 
End Sub

lol c'est mieux comme ça ^^

Avec le temps je prendrai l'habitude. C'est ma première aujourd'hui.

et bien c'est un bon début ^^ moi c'était la meme chose

Oups, je t'ai oublié, myelmehdi.

  BiereBlanche

Un fichier excel s'appelle un classeur, soit en anglais, Workbook. Donc c'est dans l'événement Workbook_Open qu'il te faut gérer ton message.

C'est pas grave.
Donc il faut pas que je le gère dans un module?
il faut que j'aille sur "thisworkbook"?
sinon concernant la deuxième partie du probème, c'est possible d'afficher des messages selon l'heure d'ouverture?
thx

Dans le module de thisworkbook, dans la combo Objet (à gauche) tu choisis workbook, dans la combo procédure (celle de droite) tu choisis open et ça t'écrit

Private Sub Workbook_Open()
 
End Sub

tout seul.
Tu y es ?

Maintenant, avec des If Then Else, ou mieux avec un beau Select Case (voir l'aide de VBA pour la syntaxe), tu affiches un message en fonction de l'heure. Voir la fonction Time pour connaître l'heure.

Le temps est un nombre en VBA. C'est le nombre de jour depuis le 30 déc. 1899. Pour les heures, on met les jours à 0 et on utilise la valeur après la virgule :

Dim t_zero As Date
Dim t_midi As Date
Dim t_minuit As Date
 
t_zero = 0
t_midi = 0.5
t_minuit = 0.99999
MsgBox t_zero & " " & t_midi & " " & t_minuit

merci zeb, mais honnetement j'ai pas tro bien compri, mais je v me pencher dessus.
sinon j'ai trouvé un aute code:

Private Sub Workbook_Open()

MsgBox IIf(Hour(Now) < 12, "Bonjour", "Bonsoir")

End Sub

slt
toujours par rapport à mon problème, est ce c'est possible de sophistiquer mon code, en ajoutant des intervalles exp:
<12 bonjour, entre 12 et 14 "bon ap", entre 14 et 17 bonjour, >18 bonsoir
thx

Bonjour,
j'ai trouvé une réponse satisafaisante

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

bonne journée à tous

oups désolé pour le langage "sms".

elle est pas mal la réponse sauf que workbook s'écrit avec 3 "o"

Et BeforeClose avec 3 "e"  
Et satisfaisante avec 3 "a" seulement  
....

Bien ta réponse satisfaisante ! C'est ce que j'appelle un "beau Select Case"  
( cf. http://www.presence-pc.com/forum/ppc/Programmation/msgb... )

Merci à tous