Date de modification du fichier dans une cellule

[wizard0147]

Bonjour à tous,

Je cherche à automatiser le changement de la date de modification d'un document excel.

Imaginons par exemple que je modifie le document le 25/02/2011. Je souhaiterais que cette date apparaissent automatiquement en cellule B44.

Comment faire ?

Un grand merci

 

[bpol]

Re : Date de modification du fichier dans une cellule

bonjour,

avec cette macro par exemple

Private Sub Workbook_BeforeClose(Cancel As Boolean)

sheets("feuil?").range("B44") = Format(Now, "dd.m.yyyy")
End Sub

a essayer

Bpol

 

[Robert]

Re : Date de modification du fichier dans une cellule

Bonjour Wizard, bonjour le forum,

Je te propose la macro événementielle Change ci-dessous à placer dans le composant (l'onglet ou se trouve B44), Feuil1(Feuil1) par exemple :

Private Sub Worksheet_Change(ByVal Target As Range)
Range("B44").Value = Format(Date, "dd/mm/yyyy")
End Sub

Édition :

Bonjour Bpol on s'est croisé. Juste une remarque on peut ouvrir un classeur sans le modifier et dans ce cas ton code afficherait une nouvelle date...

 

[wizard0147]

Re : Date de modification du fichier dans une cellule

Merci à vous deux.

En effet Robert, je ne souhaite changer la date qu'en cas de modification du document.Ta macro est donc parfaite.

Un grand merci pour votre aide.