message accueil

[nisuc]

bonjour,
je voudrais qu'à l'ouverture d'un fichier la date inscrite en A1 par exemple soit repris dans le phrase "mise à jour au (date en A1)" à l'ouverture.
mes recherches sur le forum sont restées sans succès, j'ai excel 2003 et vous remercie d'avance de votre aide,
Philippe🙂

 

[Cousinhub]

Re : message accueil

Bonsoir, tu peux coller ceci dans le code du classeur :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[A1] = Date
End Sub

Private Sub Workbook_Open()
MsgBox "Sauvegarde à jour du : " & [A1]
End Sub

edit : bonsoir, également, Skoobi

 

[skoobi]

Re : message accueil

Bonsoir,

en supposant que la date se trouve sur la feuille1:

Private Sub Workbook_Open()
MsgBox "Mise à jour au " & Sheets(1).Range("A1").Value
End Sub

Edit: bonsoir bhbh 🙂

 

[nisuc]

Re : message accueil

merci pour vos réponses qui vont beaucoup m'aider
bonne soirée😉