• Initiateur de la discussion Initiateur de la discussion XeL1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

X

XeL1

Guest
Bonjour,

Je travaille sur un fichier client (niveau basique, puisque je n'est aucune connaissance d'Excel)

J'aimerais donc qu'une cellule en haut des fiches puisse indiquer la date de la dernière mise a jour de cette feuille.

Est-ce possible, si oui génial ! comment ?

Merci !
 
Re : Insertion date

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Range("a1") = Format(Date, "dd mmmm yyyy")
End Sub


il faut remplacer les guillemets avec le code d'Abel ca fonctionné pas
 
Dernière édition:
Re : Insertion date

Bonjour,
merci pour ce lien,
mais je cherche à avoir dans chaque feuille (un client par feuille) une formule mettant la date à laquelle cette feuille a été modifiée !

Et pas tout le document.

/e au pire, et peut être que ca simplifie, est ce que dans le code donné précédemment, je peut mettre le nombre de cellule que je veux ?
Comme ca chaque feuille dans la cellule X s'intègre la date de MAJ ?

Encore mieux, cela est il possible de ne pas le mettre dans une cellule mais dans l'entête ou le pied de page ?

Merci !
 
Dernière modification par un modérateur:
Re : Insertion date

Bonjour XeL1, olive323, le forum,

Voici un essai avec ce code à placer dans ThisWorkbook :
VB:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.PageSetup.LeftHeader = Format(Now, "dd/mm/yyyy - hh:nn")
End Sub

A+
 
Re : Insertion date

Bonjour Olive323, mromain, le forum

J'ai essayé le code de mromain, qui avait l'air de correspondre à mes attentes, mais visiblement, cela ne marche pas.

Dois-je ajouter quelque chose de spécifique dans l'en-tête ?

Cordialement,
XeL1
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
854
Retour