Message box

[J.-P.]

Salut,

J'aimerais qu'un message vienne si le fichier à déjà été ouvert ce jour.

Merci

A+

 

[tototiti2008]

Re : Message box

Bonjour JP,

et donc, où coinces-tu ?

Moi je ferais comme ça : si le fichier est ouvert, je teste la valeur d'une cellule (IV1 par exemple), si IV1 = aujourdhui, Message, puis je note la date du jour dans IV1 et j'enregistre....

 

[jp14]

Re : Message box

Bonjour J.-P
Salut tototiti2008


En reprenant la même idée que sur ce fil
https://www.excel-downloads.com/threads/message-box.132717/

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.BuiltinDocumentProperties("Comments").Value = CStr(Format(Now, "dd/mm/yyyy"))
End Sub

Private Sub Workbook_Open()
Sheets("Feuil1").Select
If CStr(Format(Now, "dd/mm/yyyy")) = ThisWorkbook.BuiltinDocumentProperties("Comments").Value Then

Call MsgBox("Le fichier déjà été ouvert", vbInformation, Application.Name)

End If
End Sub

A tester

JP