Discussion :

[Orientationis]

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

[landi440]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_Open()
 
MsgBox "Contenu de ton message."
 
End Sub

Voilà...

[fring]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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