messagebox à l'ouverture

Bonsoir,

insère le code suivant dans le module 'ThisWorkbook' :

Avant de sauvegarder, on insère les différentes données.

'*************

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.Calculate

Range("a4").Value = Application.UserName
Range("a6").Value = Format(Now(), "dd/mm/yyyy")
Range("a8").Value = Format(Now(), "hh:mm")

End Sub

'*************

Private Sub Workbook_Open()

Dim MAVALEUR As String
Dim MAVALEUR2 As String
Dim MAVALEUR3 As String

MAVALEUR = Range("a4").Value
MAVALEUR2 = Range("a6").Value
MAVALEUR3 = Range("a8").Value

MsgBox " Dernier enregistrement par " & MAVALEUR & " le " & format(MAVALEUR2,"dd/mm/yyyy") & " à " & format(MAVALEUR3,"hh:mm") & ""

End Sub

'****************

Pour changer l'affichage des éléments (notament heure et date), utilise la fonction format(variable, format).
Note qu'il peut être très intéressant de nommer tes cellules plus que d'indiquer les références...!

Bon courage !

Clément

"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème."

merci Clement pour ton aide

en plus je viens de m'appercevoir que ma messagebox dans le fichier joint était complètement fausse aprés mauvaise manip

merci encore

bonjour forum et Clément en particulier qui m'a bien aidé

j'ai une autre question au sujet d'un messagebox à l'ouverture d'un classeur.

Est il possible d'afficher également, dans ce messageBox, le nom des cellule qui ont été modifiées lors du dernier enregistrement.

merci pour votre aide

re boujour à tous

je viens de trouver une explication sur un suivi de mofification de cellule par:
Outils / Suivi des modifications
cela marche pour une modif de valeur dans la cellule par un affichage de commentaire (c'est pas mal)

Mais je recherche plutôt une modif de la couleur des cellules
rouge<---->bleu
mes cellules sont bleu et change au rouge et inversement manuellement pour signaler un évènement.

si vous avez une idée ou plus Merci