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
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
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
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