date de mise à jour

[fanny]

reboujour,

je me demande comment fait-on pour insérer une date de mise à jour sur une fichier EXCEL

merci d'avance

 

[Riddick]

Bonjour a toi le forum

Si tu veux le faire par le code (VBA):
Je ne connais pas ton niveau alors je vais essayer de détailler:

Tu vas mettre cette date dans une cellule (ici A1 de la feuille Feuil1)

dans VBA (Alt+F11)
Double click sur This workbook
Cole dans la fenetre de droite

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets('Feuil1').Range('A1') = Now
End Sub

Ca te donnera la date et l'heure du dernier enregistrement effectué

Si tu veux que la date

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets('Feuil1').Range('A1') = MID(Now,1,10)
End Sub

Si tu es en réseau et que tu veux le login de la personne qui a effectué l'enregistrement on peut le faire, dis moi le je t'explique...

 

[fanny]

merci beaucou je vais tester si ca marche je te tiens au courant

 

[fanny]

j'ai fini d'écrire la formule mais comment fait on pour retourner sur excel et que ca s'enregistre

 

[Riddick]

Soit tu enregistre directement de VBA Fichier enregistrer
Soit tu fermes VBA et tu enregistre d'Excel
ca enregistre aussi le code!

 

[fanny]

merci bocou de m'aider mai il me dise ke c pas bon et quan je retourne sur la feuille excel il n'y a rien du tout faut-il faire une macro au préalable?

 

[Riddick]

Si tu veux m'envoyer ton fichier zippé <50 Ko avec un nom sans
accent je te met le code et les commentaires

sinon il te suffit de coller

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets('Feuil1').Range('A1') = MID(Now,1,10)
End Sub
Remplace Feuil1 par le nom de lafeuille ou tu veux que ca s'inscrive et A1 par la cellule ou tu veux que ca s'ecrive

dans VBA Alt+ F11
This Workbook

Lorsque tu sauvegarde la date doit se mettre

 

[MARIE74]

Bonjour fanny Riddick B)

RIddick je suis tres interessée par ça


'Si tu es en réseau et que tu veux le login de la personne qui a effectué l'enregistrement on peut le
faire, dis moi le je t'explique... '


D'avance gros merci

 

[fanny]

merci beaucoup ca marche c'est super

 

[Riddick]

Re Fanny
Bonjour Marie 74

74 de haute Savoie????

Bon si ca t'interresse regarde dans ThisWorkbook et dans Module1
Ce code n'est pas tout de moi mais c'est le resultat qui compte

A chaque en registrement ca reporte en Haut de la page1
La date
L'Heure
Le login

 

[MARIE74]

Re salut Riddick


EH oui de Haute Savoie pres de Megeve


Merci pour l'infos je l'essai ce W..End


Bonne chance a Fanny


Bon W..End a tous

 

[fanny]

merci beaucou pour cette aide ca marche c'est trés bien je suis très contente à bientôt et bon week end

 

[Riddick]

Mais de rien Mesdemoiselles Riddick est a votre service..... B)

LOL ca va avec mon avatar mais pas avec moi cette phrase...
J'ai fait mes etudes a Annecy c'est pour cela que je demande....

Content d'avoir rendu service
Bon Week end a toutes les deux
@u Plai$ir