OVH Cloud OVH Cloud

Date réelle mise à jour

5 réponses
Avatar
mca
Bonjour =E0 tous

Sur un tableau je fais des modifications r=E9guli=E8rement=20
mais pas tous les jours. Je voudrais ajouter un champ mise=20
=E0 jour. Si j'ajoute la fonction AUJOURD'HUI ou MAINTENANT,=20
il m'affichera syst=E9matiquement la date d'ouverture du=20
fichier m=EAme si je n'ai pas fait de MAJ.

Comment =E9viter ce probl=E8me car j'aimerais que la date=20
affich=E9e soit vraiment celle d'une MAJ dans le fichier ?

Merci de votre aide
MCA

5 réponses

Avatar
Nicolas B.
Salut,

A placer dans ThisWorkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
[A1] = "Mise à jour : " & Date
End Sub


A+
--
Nicolas B.


Bonjour à tous

Sur un tableau je fais des modifications régulièrement
mais pas tous les jours. Je voudrais ajouter un champ mise
à jour. Si j'ajoute la fonction AUJOURD'HUI ou MAINTENANT,
il m'affichera systématiquement la date d'ouverture du
fichier même si je n'ai pas fait de MAJ.

Comment éviter ce problème car j'aimerais que la date
affichée soit vraiment celle d'une MAJ dans le fichier ?

Merci de votre aide
MCA


Avatar
papou
Bonjour
Sans macro :
Ctrl + ;
Cordialement
Pascal

"mca" a écrit dans le message de
news:203d001c45909$3e3f2580$
Bonjour à tous

Sur un tableau je fais des modifications régulièrement
mais pas tous les jours. Je voudrais ajouter un champ mise
à jour. Si j'ajoute la fonction AUJOURD'HUI ou MAINTENANT,
il m'affichera systématiquement la date d'ouverture du
fichier même si je n'ai pas fait de MAJ.

Comment éviter ce problème car j'aimerais que la date
affichée soit vraiment celle d'une MAJ dans le fichier ?

Merci de votre aide
MCA
Avatar
mca
Peux-tu me donner plus de détails car je ne connais pas
trop le VBA
Merci
MCA
-----Message d'origine-----
Salut,

A placer dans ThisWorkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As

Boolean)
[A1] = "Mise à jour : " & Date
End Sub


A+
--
Nicolas B.


Bonjour à tous

Sur un tableau je fais des modifications régulièrement
mais pas tous les jours. Je voudrais ajouter un champ
mise


à jour. Si j'ajoute la fonction AUJOURD'HUI ou
MAINTENANT,


il m'affichera systématiquement la date d'ouverture du
fichier même si je n'ai pas fait de MAJ.

Comment éviter ce problème car j'aimerais que la date
affichée soit vraiment celle d'une MAJ dans le fichier ?

Merci de votre aide
MCA



.




Avatar
Nicolas B.
Dans ton classeur, tu fais ALT + F11. Dans la partie gauche de la fenêtre,
tu as normalement quelque chose qui ressemble à un explorateur. Dedans, tu
double clique sur ThisWorkbook. Une page blanche s'ouvre à droite. C'est là
que tu dois coller les quelques lignes de code. Tu peux ensuite fermer
l'éditeur VBA. En enregistrant alors ton classeur, la date sera affichée en
A1.


A+
--
Nicolas B.


Peux-tu me donner plus de détails car je ne connais pas
trop le VBA
Merci
MCA
-----Message d'origine-----
Salut,

A placer dans ThisWorkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As

Boolean)
[A1] = "Mise à jour : " & Date
End Sub


A+
--
Nicolas B.


Bonjour à tous

Sur un tableau je fais des modifications régulièrement
mais pas tous les jours. Je voudrais ajouter un champ mise
à jour. Si j'ajoute la fonction AUJOURD'HUI ou MAINTENANT,
il m'affichera systématiquement la date d'ouverture du
fichier même si je n'ai pas fait de MAJ.

Comment éviter ce problème car j'aimerais que la date
affichée soit vraiment celle d'une MAJ dans le fichier ?

Merci de votre aide
MCA



.





Avatar
mca
OK MERCI ça marche
MCA

-----Message d'origine-----
Dans ton classeur, tu fais ALT + F11. Dans la partie
gauche de la fenêtre,

tu as normalement quelque chose qui ressemble à un
explorateur. Dedans, tu

double clique sur ThisWorkbook. Une page blanche s'ouvre
à droite. C'est là

que tu dois coller les quelques lignes de code. Tu peux
ensuite fermer

l'éditeur VBA. En enregistrant alors ton classeur, la
date sera affichée en

A1.


A+
--
Nicolas B.


Peux-tu me donner plus de détails car je ne connais pas
trop le VBA
Merci
MCA
-----Message d'origine-----
Salut,

A placer dans ThisWorkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As

Boolean)
[A1] = "Mise à jour : " & Date
End Sub


A+
--
Nicolas B.


Bonjour à tous

Sur un tableau je fais des modifications régulièrement
mais pas tous les jours. Je voudrais ajouter un champ
mise




à jour. Si j'ajoute la fonction AUJOURD'HUI ou
MAINTENANT,




il m'affichera systématiquement la date d'ouverture du
fichier même si je n'ai pas fait de MAJ.

Comment éviter ce problème car j'aimerais que la date
affichée soit vraiment celle d'une MAJ dans le
fichier ?





Merci de votre aide
MCA



.




.