MsgBox à l'ouverture du fichier

Bonjour à tous

Besoin de votre aide

Je veux faire une deuxième MsgBox qui s'ouvre à l'ouverture du classeur avec un message qui s'affiche contenant le texte d'une cellule sur une autre feuille

Private Sub Workbook_Open()
If ActiveSheet.Name <> "ACCCEUIL" Then Sheets("ACCEUIL").Activate
MsgBox ("Bienvenue dans votre tableau de suivi de bons de commande 2023." & Chr(10) & _
"Quelques petits changements, les tableaux ont été modifiés (suivi crédit et disponible, mise en forme, accès aux synthèses)" & vbLf & _
"Vous pouvez aussi ajouter directement un bon de commande à partir de cette page et vous avez la possibilité d'aller sur le suivi des tranches en cliquant sur les cases correspondantes mais aussi par le menu")


et la je voudrais mettre une deuxième Msgbox qui va chercher une valeur texte d'une cellule sur une autre feuille


Merci pour votre aide

Bonjour,

Tu peux accéder à une cellule d'une autre feuille comme ceci.

Code:

---

Msgbox Sheets("nom_de_ta_feuille").Range("adresse_de_ta_cellule")

---

Exemple pour afficher le contenu de "B5" de ta feuille "test"

Code:

---

Msgbox Sheets("test").Range("B5")

---

Pour égayer un peu vous pouvez également ajouter un "logo" et un titre en complétant un peu

Code:

---

Msgbox Sheets("test").Range("B5"),vbInformation,"A savoir"

---

A plus