Insérer dernière date d'enregistrement Excel [Résolu/Fermé]

Signaler
Messages postés
66
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
9 octobre 2013
-
 William Wallace -
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




7 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 099
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+
8
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57161 internautes nous ont dit merci ce mois-ci


Meeeerciiiiii ! ;-)
Messages postés
16174
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
6 août 2020
3 000
bonjour

le classeur sur lequel tu travailles ou un autre ou tous ceux dans un dossier ?
Messages postés
2539
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
524
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.
Messages postés
66
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
9 octobre 2013
1
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 ...
Messages postés
2539
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
524
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.
Messages postés
66
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
9 octobre 2013
1
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.
Messages postés
2539
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
524
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.