Date de modification fichier Excel

Bonjour,

Je cherche à insérer dans une ou plusieurs cellules la date et l'heure de derniere modification de fichier excel.

Merci pour votre aide

MAthieu

Bonjour,

Le plus simple est d'utiliser l'option Excel disponible dans OUTILS - SUIVI DE MODIFICATIONS

Amicalement

Merci pour cette réponse

En fait je souhaiterais que l'heure et la date de la dernière modif du fichier soit indiquée dans une cellule bien précise

Je pense que c'est faisable avec une macro, mais étant novice je ne sais la construire...

Merci d'avance !

Mathieu

re,

Essaie ceci :

Dim ok As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Macro Dan pour Mathieu le 12/09/2010
If ok = True Then
Sheets("Feuil1").Range("A1") = FileDateTime(ThisWorkbook.Name)
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Macro Dan pour Mathieu le 12/09/2010
ok = True
Sheets("Feuil1").Range("A1") = FileDateTime(ThisWorkbook.Name)
End Sub

Pour placer le code au bon endroit :

• ALT + F11 pour aller dans VBA
• CTRL + R pour afficher la fenetre VBA project
• Double clique sur THISWORKBOOK

Si ok, n'oublie pas de cloturer le fil en cliquant sur le V vert.

Amicalement

Merci pour cette réponse !

J'ai le message d'erreur suivant "Erreur 53"

Et le debogage surligne la ligne suivante : "Sheets("Feuil1").Range("A1") = FileDateTime(ThisWorkbook.Name)"

Merci encore !

Mathieu

re,

Le débogage se produit dans quel code ??

Le nom de ta feuille est bien "Feuil1" ??

Voila le message d'erreur exact :

erreur 53 fichier introuvable

et le code :

Dim ok As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Macro Dan pour Mathieu le 12/09/2010

If ok = True Then

Sheets("Feuil1").Range("A1") = FileDateTime(ThisWorkbook.Name)

End If

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

'Macro Dan pour Mathieu le 12/09/2010

ok = True

Sheets("Feuil1").Range("A1") = FileDateTime(ThisWorkbook.Name)

End Sub

Je me demande si ca vient pasd du fait que j'ai enregistré le document en xltm comme me l'a proposé excel pour sauvegarde des macros....?

Merci encore

Bonsoir

Le sujet est traité en détail ici:

https://forum.excel-pratique.com/viewtopic.php?t=1760

Cordialement

re,

Je me demande si ca vient pasd du fait que j'ai enregistré le document en xltm comme me l'a proposé excel pour sauvegarde des macros....?

Enregistre un fichier au format,*.xls pour faire un test.

A te relire