Message box

J.-P. · 14 Décembre 2009

Salut,

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

Merci

A+

tototiti2008 · 14 Décembre 2009

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 · 14 Décembre 2009

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/m-box.132717/

Code:

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

Message box

J.-P.

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

Discussions similaires

Message box

J.-P.

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency