Message d'un fichier Excel

[Le Docteur]

Bonjour, voilà mon ti soucis ^^

J'aimerai, lorsque j'ouvre mon fichier Excel, qu'une fenetre apparaissent automatiquement avec un texte (quelquonque, c'est pour l'exemple), et que quand je clique sur un bouton OK, ca m'emmene sur un feuillet précis du fichier... C'est possible ça ?

Merci d'avance pour vos réponses.

 

[wilfried_42]

Re : Message d'un fichier Excel

Bonjour

oui oui c'est possible.

à placer dans thisWorBook

Private Sub Workbook_Open()
    MsgBox "Bla bla bla..bla bla" & vbCrLf & "Bla bla!"
    Sheets("Feuil1").Select
End Sub

 

[Le Docteur]

Re : Message d'un fichier Excel

Et thisworbook, ça se trouve où ?

 

[Staple1600]

Re : Message d'un fichier Excel

Bonsoir



Ici
--> Faire un clic-droit sur la feuille de ton classeur -> [ Visualiser le code]

(Image de @+Thierry )

 

[Le Docteur]

Re : Message d'un fichier Excel

Ok, merci, j'ai trouvé ^^ Dernière question par rapport à mon texte, comment puis-je mettre des couleurs, centrer le tout, et mettre en gras et souligner certaines parties ?

 

[Staple1600]

Re : Message d'un fichier Excel

Re



Ce n'est pas possible avec une MsgBox classique.

Issue de l'aide de VBA

[font=Courier New][color=darkblue]Sub[/color] messagebox()
[color=darkblue]Dim[/color] Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Souhaitez-vous continuer?"    [color=green]' Définit le message.[/color]
Style = vbYesNo + vbCritical + vbDefaultButton2    [color=green]' Définit les boutons.[/color]
Title = "Démonstration de MsgBox "    [color=green]' Définit le titre.[/color]
Help = "DEMO.HLP"    [color=green]' Définit le fichier d'aide.[/color]
Ctxt = 1000    [color=green]' Définit le contexte de[/color]
                [color=green]' la rubrique.[/color]
' Affiche le message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
[color=darkblue]If[/color] Response = vbYes [color=darkblue]Then[/color]    [color=green]' L'utilisateur a choisi Oui.[/color]
    MyString = "Oui"    [color=green]' Effectue une action.[/color]
[color=darkblue]Else[/color]    [color=green]' L'utilisateur a choisi Non.[/color]
    MyString = "Non"    [color=green]' Effectue une action.[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]

End [color=darkblue]Sub[/color][/font]

 

[Le Docteur]

Re : Message d'un fichier Excel

Ok, je vais voir ça ^^

Merci pour toute l'aide que m'avez apporté ^^