comment Afficher L'heure de la dernière sauvegarde

Le
Nistan
Bonjour,

Je voudrais voir apparaître dans une cellule l'heure de la dernière
sauvegarde.

Es ce possible par une Formule de type "=INFORMATIONS(xxx)" ?

Ou alors cela n'est uniquement disponible par une Macro ?

Merci.
Cordialement.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #21266561
bonjour Nistan,

tu pourrais utiliser une fonction perso,

Function DateEnregistrement() As Date
Application.Volatile
DateEnregistrement = ActiveWorkbook.BuiltinDocumentProperties(12)
End Function

sur la feuille :

ÚteEnregistrement()

isabelle


Le 2010-02-25 10:32, Nistan a écrit :
Bonjour,

Je voudrais voir apparaître dans une cellule l'heure de la dernière
sauvegarde.

Es ce possible par une Formule de type "=INFORMATIONS(xxx)" ?

Ou alors cela n'est uniquement disponible par une Macro ?

Merci.
Cordialement.



Daniel.C
Le #21266951
Bonjour.
A ma connaissance, tu ne peux la récupérer que par macro :

MsgBox ThisWorkbook.BuiltinDocumentProperties(12)

Daniel

Nistan a écrit :
Bonjour,

Je voudrais voir apparaître dans une cellule l'heure de la dernière
sauvegarde.

Es ce possible par une Formule de type "=INFORMATIONS(xxx)" ?

Ou alors cela n'est uniquement disponible par une Macro ?

Merci.
Cordialement.


eneric
Le #21266941
bonjour au forum
il y a eu (pas longtemps un post il me semble de ......
voici le code vba
Sub Attribut_Fichier()
Dim objShell As Object, objFolder As Object
Dim objFolderItem As Object, A As Integer
Dim Folder As Variant, Fichier As String
On Error Resume Next
'***********Variables*************
Folder = "C:Documents and SettingsuserMes documentsrepertoire"
Fichier = "xxxx.xls"
'**********************************

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(Folder)

If Not objFolder Is Nothing Then
Set objFolderItem = objFolder.ParseName(Fichier)
If Not objFolderItem Is Nothing Then
With Worksheets("xxxxx")
.Range("AA1") = "toto"
.Range("AB1") = Fichier
For A = 1 To 14
.Range("AA" & A + 1) =
objFolder.GetDetailsOf(objFolder.items, A)
.Range("AB" & A + 1) =
objFolder.GetDetailsOf(objFolderItem, A)
Next
.Range("AA:AB").EntireColumn.AutoFit
End With
End If
Set objFolderItem = Nothing
End If

Set objFolder = Nothing
Set objShell = Nothing
End Sub
bien sur a adapter
il fonctionne bien
salutations

--
eneric
Publicité
Poster une réponse
Anonyme