Message box

[J.-P.]

Salut,

J'aimerais qu'un message s'affiche lorsque un onglet est ouvert si le fichier à déjà été ouvert le même jour.

Merci de votre aide.

Jean-Pierre

 

[Guiv]

Re : Message box

Bonjour,
En réservant 1 cellule de la feuille pour l'affichage de la date (en A1 par exemple) et en copiant

Private Sub Worksheet_Activate()

If Date = Range("A1") Then
MsgBox "Cet onglet a déjà été ouvert aujourd'hui"
Else
Range("A1") = Date
End If

End Sub

dans le code de la feuille.

Cordialement,
Guiv

 

[J.-P.]

Re : Message box

Salut mais je ne sais pas comment concrétisser ta solution, pourrais-tu me faire un exemple su run fichier.

Merci

A+

 

[Dull]

Re : Message box

Salut J.-P., le Forum

Essaye ce Fichier avec en A1 la Date du jour par VBA

il faut au préalable enregistrer le fichier sur ton Disque Dur

EDITION: Salut masterdisco et Guiv. Comme j'avais déjà fait le Fichier...

Re Edith: évite le multipostage ici
Bonne Journée

 

[Cousinhub]

Re : Message box

Bonsoir,

sans utilisation d'une cellule quelconque....

à l'ouverture du fichier, on insère un nom, ayant pour valeur la date du jour...

Private Sub Workbook_Open()
Dim nms As Name
For Each nms In ActiveWorkbook.Names
    If nms.Name = "last_open" And Val(Right(nms, Len(nms) - 1)) = Date Then
        MsgBox "déjà ouvert ce jour"
    End If
Next nms
ActiveWorkbook.Names.Add Name:="last_open", RefersToR1C1:=Date
End Sub

ceci étant, bien entendu, sous-entendu que l'utilisateur valide les macros....

Bonne soirée

 

[jp14]

Re : Message box

Bonjour le fil

Une autre version qui utilise les propriétés du classeur.
La procédure mémorise le nombre de visites de la journée, même si on ferme le classeur. Le compteur est remis à zéro le lendemain.

A tester
P S il faut créer dans l'option propriétés du menu fichier onglet Personnalisation une variable avec le nom "Nombre enregistrement" , type nombre valeur 0 et bouton ajouter.

JP

 

[Guiv]

Re : Message box

Évidemment, quand les Barbatrucs s'en mêlent...
Bravo à bhbh et JP14, les deux solutions sont très astucieuses!
Bonne journée
Guiv