Menu

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

Messages postés
66
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
9 octobre 2013
- - Dernière réponse :  William Wallace - 23 déc. 2014 à 16:31
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




Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
27 janvier 2014
959
7
Merci
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+

Dire « Merci » 7

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

CCM 41834 internautes nous ont dit merci ce mois-ci

-
Meeeerciiiiii ! ;-)
Messages postés
15865
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 juin 2019
2743
1
Merci
bonjour

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