Macro à l'ouverture Excel

Bonsoir,

Je vous explique mon probleme. Un fichier excel est présent dans un compte commun. Ce fichier peut être ouvert par tout le monde et contient des procédures. Je recherche une macro qui permettrai l'affichage d'un pop up (ou peut-être une MsgBox) à l'ouverture de ce classeur pour indiquer les modifications qui ont été ajoutés à ce fichier.

A noter que les modifications apportées seraient rédigées par moi meme sur un fichier .txt ou .doc. La macro prendrait donc en compte les modifications sur ces fichiers et les afficherait sous forme d'un pop up à l'ouverture du fichier excel.

Merci de votre aide:D:D:D

Hello

Tu ouvres le classeurs voulu, puis tu ouvres l'éditeur de macro (ALT+F11), tu ouvres l'explorateur de projet (CTRL+R) , tu clique sur ThisWorkbook du classeur voulu et tu saisi

Code:

---

1 2 3 4 5

Private Sub Workbook_Open()   MsgBox "Contenu de ton message."   End Sub

---

Voilà...

Bonjour,

En complément à la réponse de landi440, pour afficher le texte contenu dans une MsgBox, tu peux essayer ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Workbook_Open() Dim intFic As Integer, strLig As String, strMes As String   intFic = FreeFile Open "D:\essai\monfichier.txt" For Input As intFic   While Not EOF(intFic) Line Input #intFic, strLig strMes = strMes & Chr(10) & strLig Wend   Close intFic MsgBox strMes End Sub

---