Indiqué dans un fichier la date et heure de modification.

[Pasqi]

Bonjour,

Comment faire pour que, lorsqu'on ouvre un fichier, apparaisse dans une cellule ou un mémo qui apparait, la date et l'heure de la dernière modification du fichier ?
(Je sais qu'on le voit dans l'explorateur, mais je voudrais que cela apparaisse dans le fichier).

Merci d'avance et bonne journée.

 

[deudecos]

Re : Indiqué dans un fichier la date et heure de modification.

Salut Pasqi, le forum, dans vba Alt+F11

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Range("A1") = Now
End Sub

Ca te donne la date et l'heure du moment M dans la cellule A1 de ta feuille (A adapter bien sur)

Bonne journee

Olivier

 

[PascalXLD]

Re : Indiqué dans un fichier la date et heure de modification.

Bonjour

Voir du coté de DateLastModified

 

[Pasqi]

Re : Indiqué dans un fichier la date et heure de modification.

Salut Pasqi, le forum, dans vba Alt+F11

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Range("A1") = Now
End Sub

Ca te donne la date et l'heure du moment M dans la cellule A1 de ta feuille (A adapter bien sur)

Bonne journee

Olivier

Re-bonjour et merci d'avoir répondu à ma demande.
Néanmoins, j'ai un problème , rien n'apparait dans ma cellule après avoir suivi votre procédure.
Donc, voici comment j'ai procédé :
Fichier ouvert, ensuite Alt F11 --> VBA
J'ai recopié la formule en remplaçant "feuil1" par le nom de ma feuille et j'ai modifié la cellule également.

Dans VBA Project et dans Properties Sheet 1, dois-je modifier ou séléctionner qqchose ?

Si vous voyez où est l'erreur, merci de m'éclairer.

Bonne journée

 

[deudecos]

Re : Indiqué dans un fichier la date et heure de modification.

re Pasqi

Je suppose que tu n'as pas du recopier la formule au bon endroit, d'ou probleme...

Donc la procedure a suivre est la suivante :
1 tu ouvre vba Alt+F11
2 tu clique sur ThisWorkbook
3 dans la partie superieure de ta page, tu as deux listes, la premiere a gauche, tu choisis "Workbook", et dans l'autre liste tu choisis "Before Close"
4 entre "Private Sub Workbook_BeforeClose(Cancel As Boolean)" et "End Sub"
tu recopie ca :
Sheets("Feuil1").Range("a1") = Now (Que tu peux modifier a souhait)
5 tu ferme le tout
et au moment de quitter, La date et l'heure viendront s'inscrirent dans la cellule choisie.

Bonne journee

Olivier

 

[Pasqi]

Re : Indiqué dans un fichier la date et heure de modification.

Merci beaucoup Olivier,

C'est ok, ça fonctionne, tout est Nickel ;-).

Bonne journée.

Pasqi

 

[Dull]

Re : Indiqué dans un fichier la date et heure de modification.

Salut Pasqi, Deudecos, Pascal, le Forum

Une autre façon de faire sur un Fichier .Txt et sur une idée de jeanpierre 🙂

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Open ThisWorkbook.Path & "\TonFichier.txt" For Append As #1 'ThisWorkbook.Path pour mettre le fichier Texte _
dans le même dossier sinon met un chemin en dur "C:\Mes Documents..."
Print #1, Application.UserName, Now 'Application.UserName pour le nom de la _
personne qui à ouvert le fichier et Now pour la date et l'heure de la fermeture
Close #1
End Sub

Juste pour l'ouverture car même s'il n'y a pas de modif le simple fait de l'ouvrir et de le fermer inscrira les infos dans le fichier Texte

Pour les Modifs je te conseil un Fichier de BOISGONTIER que j'ai vu passer recemment qui m'a l'air pas mal du tout
Ah le Voila

Bonne Journée

 

[jeanpierre]

Re : Indiqué dans un fichier la date et heure de modification.

Bonjour Pasqi, Olivier, Pascal et Dull (qui se fait un peu rare), re tous,

Es-tu sûr que l'idée est de moi, je pencherais plutôt pour l'ami PierreJean...

Bon après-midi à vous.

Jean-Pierre

 

[PascalXLD]

Re : Indiqué dans un fichier la date et heure de modification.

Re

Ce qui m'étonne un peu c'est que tout le monde part sur la date de fermeture du fichier alors que la question parlait de la dernière modification. Pour moi c'est différent car tu peux ouvri un fichier et le refermer sans le modifier et dans ce cas là vous n'aurez pas le bon résultat. Mais bon mon lastdatemodified n'ayant que peu de succès 🙄

 

[Dull]

Re : Indiqué dans un fichier la date et heure de modification.

Re le Fil, Salut Jeanpierre

Si si, je persiste et Signe... c'est bien toi 😛

Re Pascal: tu as tout à fait raison

le pourquoi du

Juste pour l'ouverture car même s'il n'y a pas de modif le simple fait de l'ouvrir et de le fermer inscrira les infos dans le fichier Texte

mais je ne connait pas le DateLastModified intéréssant au demeurant

Re Bonne Journée

 

[jeanpierre]

Re : Indiqué dans un fichier la date et heure de modification.

Re Dull,

Ce qui veut dire, donc, que la mémoire n'est pas en cause (ce qui me rassure un peu), mais que le souci est de s'en rappeler....

Amitiés.

Jean-Pierre