Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Derniere Ouverture

Derniere Ouverture

4 réponses
Avatar
Pascal
Bonjour,
A l'ouverture d'un fichier j'aimerais avoir la date de dernière modification
dans une boite de dialogue. Est-ce possible?

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-3, 18/02/2007
Analyse le : 18/02/2007 10:09:00
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Rai
Bonjour,
A l'ouverture d'un fichier j'aimerais avoir la date de dernière modification
dans une boite de dialogue. Est-ce possible?

Merci
Pascal


Bonjour


Une solution pourrait consister à utiliser le code ci-dessous (à
intégrer dans 'ThisWorkbook'

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
LastUse = FileDateTime(ThisWorkbook.Name)
With ThisWorkbook.CustomDocumentProperties
.Add Name:="LastUse", _
LinkToContent:úlse, _
Type:=msoPropertyTypeDate, _
Value:=LastUse
End With
CustomDocumentProperties.Item("LastUse") = LastUse
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
MsgBox "Dernier Accès " & CustomDocumentProperties.Item("LastUse")
End Sub



Cela convient-il ??

Bonne journée.

--
Rai
Email :
descendre les poubelle pour répondre...

Avatar
LSteph
Bonjour,
Cela figure dans builtinproperties ou autrement dit dans
les propriétés du classeur, sauf dès qu'on l'ouvre c'est
la date et heure d'ouverture qui apparaît, sinon il y a "accèdé le".
Si on considère que la modif correspond à l'enregistrement
je te propose modifier par le code un label de ce userform à l'enregitrement
(modifier si besoin le niveau de sécurité des macros dans excel
(~Xl2003) Outils Macro Sécurité Onglet Editeurs approuvés cocher
" Faire confiance ")

Dans VBE ajoute un Userform à ton projet
dans celui-ci ajout un label
puis dans le thisworkbook de ton projet:

'''''*****
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)

ThisWorkbook.VBProject.VBComponents("UserForm1") _
.Designer.Controls("Label1") = Format(Now, _
"dd/mm/yyyy-hh:nn:ss")


End Sub

Private Sub Workbook_Open()
UserForm1.Show
End Sub
'''''*****

Cordialement.

lSteph

Bonjour,
A l'ouverture d'un fichier j'aimerais avoir la date de dernière modification
dans une boite de dialogue. Est-ce possible?

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-3, 18/02/2007
Analyse le : 18/02/2007 10:09:00
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





Avatar
Pascal
Parfait. Merci c'est juste ce qu'il me fallait.
pascal

"Rai" a écrit dans le message de
news: 45d8233b$0$25931$
Bonjour,
A l'ouverture d'un fichier j'aimerais avoir la date de dernière
modification dans une boite de dialogue. Est-ce possible?

Merci
Pascal


Bonjour


Une solution pourrait consister à utiliser le code ci-dessous (à intégrer
dans 'ThisWorkbook'

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
LastUse = FileDateTime(ThisWorkbook.Name)
With ThisWorkbook.CustomDocumentProperties
.Add Name:="LastUse", _
LinkToContent:úlse, _
Type:=msoPropertyTypeDate, _
Value:=LastUse
End With
CustomDocumentProperties.Item("LastUse") = LastUse
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
MsgBox "Dernier Accès " & CustomDocumentProperties.Item("LastUse")
End Sub



Cela convient-il ??

Bonne journée.

--
Rai
Email :
descendre les poubelle pour répondre...


---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000714-3, 18/02/2007
Analyse le : 18/02/2007 15:27:46
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-3, 18/02/2007
Analyse le : 18/02/2007 15:33:37
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Avatar
Pascal
Merci vos deux réponses me conviennent.
Pascal

"LSteph" a écrit dans le message de news:

Bonjour,
Cela figure dans builtinproperties ou autrement dit dans
les propriétés du classeur, sauf dès qu'on l'ouvre c'est
la date et heure d'ouverture qui apparaît, sinon il y a "accèdé le".
Si on considère que la modif correspond à l'enregistrement
je te propose modifier par le code un label de ce userform à
l'enregitrement
(modifier si besoin le niveau de sécurité des macros dans excel (~Xl2003)
Outils Macro Sécurité Onglet Editeurs approuvés cocher
" Faire confiance ")

Dans VBE ajoute un Userform à ton projet
dans celui-ci ajout un label
puis dans le thisworkbook de ton projet:

'''''*****
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)

ThisWorkbook.VBProject.VBComponents("UserForm1") _
.Designer.Controls("Label1") = Format(Now, _
"dd/mm/yyyy-hh:nn:ss")


End Sub

Private Sub Workbook_Open()
UserForm1.Show
End Sub
'''''*****

Cordialement.

lSteph

Bonjour,
A l'ouverture d'un fichier j'aimerais avoir la date de dernière
modification dans une boite de dialogue. Est-ce possible?

Merci
Pascal ---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-3, 18/02/2007
Analyse le : 18/02/2007 10:09:00
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000714-3, 18/02/2007
Analyse le : 18/02/2007 15:26:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-3, 18/02/2007
Analyse le : 18/02/2007 15:33:38
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com