Insertion de date automatique

G

Graas P-E

Guest
Bonjour,

Je cherche à savoir s'il existe une formule pour insérer automatiquement la date de la dernière modification, ou celle de la dernière impression... par exemple.
Dans word, la formule existe pour les entêtes et pieds de page, mais pour excel?
 
G

Gérard DEZAMIS

Guest
Bonjour Graas P-E

"Dans la feuille de code de l'onglet ou tu désires l'information:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[A1] = "Date de la dernière modification : " & Date
End Sub

dixit Benead"

Regarde si cela te convient

@+
GD
 
G

Graas P-E

Guest
Hum, merci beaucoup, mais là, je suis complètement largué...
J'ai bien trouvé les codes, j'ai collé celui sue tu as indiqué plus haut, mais...
Ca ne fait rien de spécial...

Je ne sais pas du tout comment on fait, en fait...

Je joins le fichier excel que j'ai....

Merci d'avance pour l'aide que vous pourrez m'apporter...
 

Pièces jointes

  • Classeur2.zip
    4.9 KB · Affichages: 23
  • Classeur2.zip
    4.9 KB · Affichages: 25
  • Classeur2.zip
    4.9 KB · Affichages: 21
G

Gérard DEZAMIS

Guest
Re Grass

Pas de panique mois aussi , souvent je nage dans mes baskets !

Faire alt F11, on se trouve dans l'éditeur de Visual Basic
Affichage de l'explorateur de projet
Cliquer sur Thisworkbook de ton classeur
et coller :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[A1] = "Date de la dernière modification : " & Date
End Sub
Si tu le veux à un autre endroit tu changes [A1] ... pourqoi pas [C22]
Pas très pratique mais celà permet de faire une expérience ... toujours bénéfique
Ne pas coller le code dans un module ni sur la feuil1 !

@+
GD
 
G

Graas P-E

Guest
Bien le bonjour...

J'ai collé le code, et tout et tout, mais je ne vois rien...

J'ai fait une copie d'écran pour que vous voyiez bien si j'ai fait tout correctement et joint le fichier excel dans lequel le collage a été fait...

Y a-t-il une commande spécifique après avoir collé le texte??

Merci d'avance de l'aide que vous pourrez m'apporter...

P-E Graas
 

Pièces jointes

  • Bureau.zip
    27 KB · Affichages: 26
  • Bureau.zip
    27 KB · Affichages: 32
  • Bureau.zip
    27 KB · Affichages: 22
G

Graas P-E

Guest
Merci, superbe...
Encore juste une question : Pour appliquer ce code à une autre feuille, dans un autre document, comment dois-je faire?
J'ai bien essayé de coller le code, mais je ne vois pas dans le menu déroulant : "Before save"...
Je suis litéralement largué, à nouveau... :-(

Merci d'avance...
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 162
Messages
2 106 603
Membres
109 637
dernier inscrit
lafforest