fenêtre à l'ouverture

[lolo44]

Bonjour à tous,
Est-il possible qu'une fenêtre s'affiche (avec un message) lorsque l'on ouvre un fichier?
Merci pour vos réponses
Lolo

 

[gimli]

Re : fenêtre à l'ouverture

Bonjour,
je pense que tu peux mettre un msgbox dans ThisWorkbook.

 

[Dull]

Re : fenêtre à l'ouverture

Salut lolo44, le Forum

Oui c'est tout a fait Possible

dans le ThisWorkbook met y ce Code

Private Sub Workbook_Open()
MsgBox "Bonjour " & Application.UserName & Chr(10) & "nous sommes le " & Date & Chr(10) & "il est " & Time
End Sub

Juste à titre d'exemple 😉

EDITION: Salut gimli

Bonjour Dull,

je t'ai devancé de quelques secondes 😛

Mêmepas 🙄 à la même seconde😛
Bonne Journée

 

[gimli]

Re : fenêtre à l'ouverture

Bonjour Dull,

je t'ai devancé de quelques secondes 😛

 

[lolo44]

Re : fenêtre à l'ouverture

Merci pour la réponse mais je ne suis pas très fort,
que veut dire : dans le ThisWorkbook met y ce Code
Pouvez vous si vous avez le temps me détailler cequ'il faut faire?
Comment et où je peux mettre le code donné
Merci beaucoup
Lolo

 

[gimli]

Re : fenêtre à l'ouverture

re,

tu peux faire ALT+F11 pour acceder a la partie code, sur la gauche tu verras ThisWorkbook 😉
après tu colles le code de Dull, tu sauvegardes, tu quittes et tu relance ton fichier, et voilà 🙂

 

[Dull]

Re : fenêtre à l'ouverture

Re le Fil

Essaye ce Fichier

Pour comprendre fait Alt+F11 et regarde le Code de le ThisWorkBook (Double Click sur ce Fichier)



Re gimli LaOui😀


Bonne Journée

 

[lolo44]

Re : fenêtre à l'ouverture

Merci beaucoup
je fais un essai dès ce soir
Lolo

 

[lolo44]

Re : fenêtre à l'ouverture

c'est très bien, ça fonctionne
quelques détails : si après le mot "bonjour" je veux continuer une prase en allant à la ligne?
Pourquoi à la fin de ma phrase, il aparaît mon prénom?
Merci pour votre aide
Lolo

 

[Macpoy]

Re : fenêtre à l'ouverture

bonsoir le forum, les participants au fil,

Pourquoi à la fin de ma phrase, il aparaît mon prénom?

en fait c'est ici (mis en rouge ) que la macro met ton username.

Private Sub Workbook_Open()
MsgBox "Bonjour " & [B][COLOR=Red]Application.UserName [/COLOR][/B]& Chr(10) & "nous sommes le " & Date & Chr(10) & "il est " & Time
End Sub

@plus

 

[lolo44]

Re : fenêtre à l'ouverture

merci
et pour aller à la ligne?
encore merci

 

[JCGL]

Re : fenêtre à l'ouverture

Bonjour à tous,

Pour aller à la ligne :

& Chr(10) &

A+ à tous

PS : Pour l'ami Dull et au vu de sa capture d'écran : Lien supprimé

 

[lolo44]

Re : fenêtre à l'ouverture

Merci à Tous
c'est parfait