Insérer dernière date d'enregistrement Excel Résolu

Question

Bonjour, 

Je souhaiterai insérer dans une cellule d'une feuille excel la date du dernier enregistrement du fichier excel.
Je sais qu'il faut passer par une macro et VBA.
Mais je n'y connais absolument rien dans VBA.
Quelqu'un pourrait-il me guider et m'aider en m'expliquant simplement les choses ?

Merci d'avance




Configuration: Windows 7 / Firefox 8.0.1

lermite222 · Accepted Answer

Bonjour,
Je ne sais pas si g est encore en ligne ?
Si non..
Tu n'est pas sur la bonne "feuille"
Dans la fenêtre du projet tu double clic sur ThisWorkbook et c'est dans cette fenêtre que tu copie le code mais il faudrait préciser le feuille où sauver et pour cela mettre le code ci-dessous..
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Feuil1").Range("A1") = Now
    ThisWorkbook.Save
End Sub
Et il n'y a strictement rien d'autre à faire.
Referme le classeur et réouvre le, tu y verras la date et l'heure en feuil1 cellule A1
A+

michel_m · Answer

bonjour

 le classeur sur lequel tu travailles ou un autre ou tous ceux dans un dossier ?

g · Answer

Bonjour,

Pour date en A1 avec enregistrement manuel, copier dans le module ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1") = Now
End Sub

Pour date en A1 avec enregistrement automatique, copier dans le module ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1") = Now
ActiveWorkbook.Save
End Sub

Bonne journée.

rem18 · Answer

OK, c'est gentil de répondre, mais VBA je n'y connais strictement rien.
Bon je vais essayer (pour info je travaille sur Excel 2010):
1) je me met sur la case A1 de ma feuille
2) dans l'onglet développeur je clic sur Visual Basic
3) dans la petite fenêtre en haut à gauche "Projet - VBAProject" je suis sur ma "feuil1" dans lequel je travail (j'ai plusieurs feuille dans mon classeur) - je clic dessus
4) une fenêtre s'ouvre avec le nom de mon classeur et le nom de ma feuille, en dessous barre de défilement "(Général)", en dessous dans l'espace libre je copie le texte que tu m'as donné.

Et après je ne sais pas ...

Si quelqu'un peut m'aider ...

g · Answer

Re,

Dans la fenêtre "Projet - VBAProject" tu cliques deux fois sur ThisWorkbook et tu colles le code qui te convient dans la partie droite (blanche).

Il ne faut pas coller le code dans le module de Feuille.

Bonne suite.

rem18 · Answer

OK sa marche nikel, sans abuser de vos services il y a possibilité de changer le format de la date et heure ?

Autre question à tout hasard, est-ce possible une fonction qui ôterai la protection de l'ensemble des feuilles de mon classeur, et qui referai-apparaître "la barre de formule et les titres" (onglet affichage) toujours dans l'ensemble des feuilles ?

Merci.

g · Answer

Pour la date, tu utilises le formatage classique de la cellule comme s'il n'y avait pas de macro.
Pour la protection il suffit que tu la désactives... ou alors je ne comprends pas ce que tu souhaites.

A plus.

Insérer dernière date d'enregistrement Excel

7 réponses

Discussions similaires

Newsletters