Bonjour =E0 tous
J'ai cr=E9e un classeur excel contenant des plannings=20
pr=E9visionnels d'activit=E9s mois par mois pour 2004 (une=20
feuille =3D 1 mois). Je souhaite que pour chaque feuille en=20
cellule A3 apparaisse la date de derni=E8re modification=20
(soit parce que l'on a rentr=E9 une donn=E9e dans une cellule,=20
soit parce que l'on a chang=E9 la couleur de la cellule) de=20
la feuille.
J'ai coll=E9 le code suivant (merci Excelabo!), avec un=20
sheets array des feuilles, dans le this workbook mais la=20
m=EAme date apparait partout quand on modifie une seule=20
feuille. Ce qui ne m'=E9tonne qu'a moiti=E9!
Comment peut on l'am=E9liorer pour que les dates, sur chaque=20
feuille, soit r=E9ellemnt celle de la modification de la=20
feuille?
Public Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A3").Select 'A3 =E9tant la cellule o=F9 le texte=20
s'inscrit.
ActiveCell.Value =3D "Derni=E8re mise =E0 jour le " & Format
(Date, _
"dd/mm/yyyy")
End Sub
En vous remerciant de l'aide apport=E9e
Cordialement,
Ga=EBl
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour GAELB,
...(soit parce que l'on a rentré une donnée dans une cellule, soit parce que l'on a changé la couleur de la cellule
J'ouvre un classeur, je modifie le contenu de certaines cellules, j'applique une couleur de fond différente sur d'autres... je ferme sans enregistrer: le classeur a-t-il été modifié pour autant ? Partant du principe que non, mais en laissant toutefois l'information sur le dernier accès à ce classeur en A4, en plus de l'info demandée en A3...
(dans la feuille de code de ThisWorkbook)
Private Sub Workbook_Open() Application.ScreenUpdating = False For Each sH In Worksheets sH.[A3] = "Dernier enregistrement : le " _ & Format(ActiveWorkbook.BuiltinDocumentProperties(12), _ "dd/mm/yyyy hh:mm") sH.[A4] = "Accédé : le " & Format(Now, _ "dd/mm/yyyy hh:mm") Next sH End Sub
ChrisV
"GAELB" a écrit dans le message de news: 13c4801c3f7c1$f80fce00$ Bonjour à tous J'ai crée un classeur excel contenant des plannings prévisionnels d'activités mois par mois pour 2004 (une feuille = 1 mois). Je souhaite que pour chaque feuille en cellule A3 apparaisse la date de dernière modification (soit parce que l'on a rentré une donnée dans une cellule, soit parce que l'on a changé la couleur de la cellule) de la feuille. J'ai collé le code suivant (merci Excelabo!), avec un sheets array des feuilles, dans le this workbook mais la même date apparait partout quand on modifie une seule feuille. Ce qui ne m'étonne qu'a moitié! Comment peut on l'améliorer pour que les dates, sur chaque feuille, soit réellemnt celle de la modification de la feuille? Public Sub Workbook_BeforeClose(Cancel As Boolean) Range("A3").Select 'A3 étant la cellule où le texte s'inscrit. ActiveCell.Value = "Dernière mise à jour le " & Format (Date, _ "dd/mm/yyyy") End Sub
En vous remerciant de l'aide apportée Cordialement, Gaël
Bonjour GAELB,
...(soit parce que l'on a rentré une donnée dans une cellule,
soit parce que l'on a changé la couleur de la cellule
J'ouvre un classeur, je modifie le contenu de certaines cellules, j'applique
une couleur de fond différente sur d'autres... je ferme sans enregistrer:
le classeur a-t-il été modifié pour autant ?
Partant du principe que non, mais en laissant toutefois l'information sur le
dernier accès à ce classeur en A4, en plus de l'info demandée en A3...
(dans la feuille de code de ThisWorkbook)
Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each sH In Worksheets
sH.[A3] = "Dernier enregistrement : le " _
& Format(ActiveWorkbook.BuiltinDocumentProperties(12), _
"dd/mm/yyyy hh:mm")
sH.[A4] = "Accédé : le " & Format(Now, _
"dd/mm/yyyy hh:mm")
Next sH
End Sub
ChrisV
"GAELB" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 13c4801c3f7c1$f80fce00$a401280a@phx.gbl...
Bonjour à tous
J'ai crée un classeur excel contenant des plannings
prévisionnels d'activités mois par mois pour 2004 (une
feuille = 1 mois). Je souhaite que pour chaque feuille en
cellule A3 apparaisse la date de dernière modification
(soit parce que l'on a rentré une donnée dans une cellule,
soit parce que l'on a changé la couleur de la cellule) de
la feuille.
J'ai collé le code suivant (merci Excelabo!), avec un
sheets array des feuilles, dans le this workbook mais la
même date apparait partout quand on modifie une seule
feuille. Ce qui ne m'étonne qu'a moitié!
Comment peut on l'améliorer pour que les dates, sur chaque
feuille, soit réellemnt celle de la modification de la
feuille?
Public Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A3").Select 'A3 étant la cellule où le texte
s'inscrit.
ActiveCell.Value = "Dernière mise à jour le " & Format
(Date, _
"dd/mm/yyyy")
End Sub
En vous remerciant de l'aide apportée
Cordialement,
Gaël
...(soit parce que l'on a rentré une donnée dans une cellule, soit parce que l'on a changé la couleur de la cellule
J'ouvre un classeur, je modifie le contenu de certaines cellules, j'applique une couleur de fond différente sur d'autres... je ferme sans enregistrer: le classeur a-t-il été modifié pour autant ? Partant du principe que non, mais en laissant toutefois l'information sur le dernier accès à ce classeur en A4, en plus de l'info demandée en A3...
(dans la feuille de code de ThisWorkbook)
Private Sub Workbook_Open() Application.ScreenUpdating = False For Each sH In Worksheets sH.[A3] = "Dernier enregistrement : le " _ & Format(ActiveWorkbook.BuiltinDocumentProperties(12), _ "dd/mm/yyyy hh:mm") sH.[A4] = "Accédé : le " & Format(Now, _ "dd/mm/yyyy hh:mm") Next sH End Sub
ChrisV
"GAELB" a écrit dans le message de news: 13c4801c3f7c1$f80fce00$ Bonjour à tous J'ai crée un classeur excel contenant des plannings prévisionnels d'activités mois par mois pour 2004 (une feuille = 1 mois). Je souhaite que pour chaque feuille en cellule A3 apparaisse la date de dernière modification (soit parce que l'on a rentré une donnée dans une cellule, soit parce que l'on a changé la couleur de la cellule) de la feuille. J'ai collé le code suivant (merci Excelabo!), avec un sheets array des feuilles, dans le this workbook mais la même date apparait partout quand on modifie une seule feuille. Ce qui ne m'étonne qu'a moitié! Comment peut on l'améliorer pour que les dates, sur chaque feuille, soit réellemnt celle de la modification de la feuille? Public Sub Workbook_BeforeClose(Cancel As Boolean) Range("A3").Select 'A3 étant la cellule où le texte s'inscrit. ActiveCell.Value = "Dernière mise à jour le " & Format (Date, _ "dd/mm/yyyy") End Sub
En vous remerciant de l'aide apportée Cordialement, Gaël
Jacky
Bonjour Chris, bonjour Gaelb Si tu ne veux pas avoir la même date dans toutes les feuilles ce qui, si je ne me trompes pas, est le cas avec le code de Chris.(il ne manquera pas de me rectifier)
Dans chaque module de chaque feuille: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) [a3].Value = "Dernière mise à jour le " & Format(Date, "dd/mm/yyyy") End Sub
Salutations JJ
"GAELB" a écrit dans le message news: 13c4801c3f7c1$f80fce00$ Bonjour à tous J'ai crée un classeur excel contenant des plannings prévisionnels d'activités mois par mois pour 2004 (une feuille = 1 mois). Je souhaite que pour chaque feuille en cellule A3 apparaisse la date de dernière modification (soit parce que l'on a rentré une donnée dans une cellule, soit parce que l'on a changé la couleur de la cellule) de la feuille. J'ai collé le code suivant (merci Excelabo!), avec un sheets array des feuilles, dans le this workbook mais la même date apparait partout quand on modifie une seule feuille. Ce qui ne m'étonne qu'a moitié! Comment peut on l'améliorer pour que les dates, sur chaque feuille, soit réellemnt celle de la modification de la feuille? Public Sub Workbook_BeforeClose(Cancel As Boolean) Range("A3").Select 'A3 étant la cellule où le texte s'inscrit. ActiveCell.Value = "Dernière mise à jour le " & Format (Date, _ "dd/mm/yyyy") End Sub
En vous remerciant de l'aide apportée Cordialement, Gaël
Bonjour Chris, bonjour Gaelb
Si tu ne veux pas avoir la même date dans toutes les feuilles ce qui, si je
ne me trompes pas, est le cas avec le code de Chris.(il ne manquera pas de
me rectifier)
Dans chaque module de chaque feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[a3].Value = "Dernière mise à jour le " & Format(Date, "dd/mm/yyyy")
End Sub
Salutations
JJ
"GAELB" <anonymous@discussions.microsoft.com> a écrit dans le message news:
13c4801c3f7c1$f80fce00$a401280a@phx.gbl...
Bonjour à tous
J'ai crée un classeur excel contenant des plannings
prévisionnels d'activités mois par mois pour 2004 (une
feuille = 1 mois). Je souhaite que pour chaque feuille en
cellule A3 apparaisse la date de dernière modification
(soit parce que l'on a rentré une donnée dans une cellule,
soit parce que l'on a changé la couleur de la cellule) de
la feuille.
J'ai collé le code suivant (merci Excelabo!), avec un
sheets array des feuilles, dans le this workbook mais la
même date apparait partout quand on modifie une seule
feuille. Ce qui ne m'étonne qu'a moitié!
Comment peut on l'améliorer pour que les dates, sur chaque
feuille, soit réellemnt celle de la modification de la
feuille?
Public Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A3").Select 'A3 étant la cellule où le texte
s'inscrit.
ActiveCell.Value = "Dernière mise à jour le " & Format
(Date, _
"dd/mm/yyyy")
End Sub
En vous remerciant de l'aide apportée
Cordialement,
Gaël
Bonjour Chris, bonjour Gaelb Si tu ne veux pas avoir la même date dans toutes les feuilles ce qui, si je ne me trompes pas, est le cas avec le code de Chris.(il ne manquera pas de me rectifier)
Dans chaque module de chaque feuille: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) [a3].Value = "Dernière mise à jour le " & Format(Date, "dd/mm/yyyy") End Sub
Salutations JJ
"GAELB" a écrit dans le message news: 13c4801c3f7c1$f80fce00$ Bonjour à tous J'ai crée un classeur excel contenant des plannings prévisionnels d'activités mois par mois pour 2004 (une feuille = 1 mois). Je souhaite que pour chaque feuille en cellule A3 apparaisse la date de dernière modification (soit parce que l'on a rentré une donnée dans une cellule, soit parce que l'on a changé la couleur de la cellule) de la feuille. J'ai collé le code suivant (merci Excelabo!), avec un sheets array des feuilles, dans le this workbook mais la même date apparait partout quand on modifie une seule feuille. Ce qui ne m'étonne qu'a moitié! Comment peut on l'améliorer pour que les dates, sur chaque feuille, soit réellemnt celle de la modification de la feuille? Public Sub Workbook_BeforeClose(Cancel As Boolean) Range("A3").Select 'A3 étant la cellule où le texte s'inscrit. ActiveCell.Value = "Dernière mise à jour le " & Format (Date, _ "dd/mm/yyyy") End Sub
En vous remerciant de l'aide apportée Cordialement, Gaël
ChrisV
Bonjour Jacky,
...est le cas avec le code de Chris
Tout à fait... et c'est effectivement une erreur de ma part, et qui ne répond pas à la demande (après relecture attentive...!) !
Le problème reste cependant (AMA ) similaire avec de plus, la particularité ou difficulté supplémentaire qu'une feuille modifiée n'est pas "enregistrable" indépendamment du classeur (à moins bien sûr de créer un nouveau classeur avec cette feuille...) Je me dirigerai donc d'avantage du côté de la fonction "Suivi des modifications" qui finalement devrait convenir d'avantage à GAELB.
ChrisV
"Jacky" a écrit dans le message de news:
Bonjour Chris, bonjour Gaelb Si tu ne veux pas avoir la même date dans toutes les feuilles ce qui, si je
ne me trompes pas, est le cas avec le code de Chris.(il ne manquera pas de me rectifier)
Dans chaque module de chaque feuille: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) [a3].Value = "Dernière mise à jour le " & Format(Date, "dd/mm/yyyy") End Sub
Salutations JJ
"GAELB" a écrit dans le message news:
13c4801c3f7c1$f80fce00$ Bonjour à tous J'ai crée un classeur excel contenant des plannings prévisionnels d'activités mois par mois pour 2004 (une feuille = 1 mois). Je souhaite que pour chaque feuille en cellule A3 apparaisse la date de dernière modification (soit parce que l'on a rentré une donnée dans une cellule, soit parce que l'on a changé la couleur de la cellule) de la feuille. J'ai collé le code suivant (merci Excelabo!), avec un sheets array des feuilles, dans le this workbook mais la même date apparait partout quand on modifie une seule feuille. Ce qui ne m'étonne qu'a moitié! Comment peut on l'améliorer pour que les dates, sur chaque feuille, soit réellemnt celle de la modification de la feuille? Public Sub Workbook_BeforeClose(Cancel As Boolean) Range("A3").Select 'A3 étant la cellule où le texte s'inscrit. ActiveCell.Value = "Dernière mise à jour le " & Format (Date, _ "dd/mm/yyyy") End Sub
En vous remerciant de l'aide apportée Cordialement, Gaël
Bonjour Jacky,
...est le cas avec le code de Chris
Tout à fait... et c'est effectivement une erreur de ma part, et qui ne
répond pas à la demande (après relecture attentive...!) !
Le problème reste cependant (AMA ) similaire avec de plus, la particularité
ou difficulté supplémentaire qu'une feuille modifiée n'est pas
"enregistrable" indépendamment du classeur (à moins bien sûr de créer un
nouveau classeur avec cette feuille...)
Je me dirigerai donc d'avantage du côté de la fonction "Suivi des
modifications" qui finalement devrait convenir d'avantage à GAELB.
ChrisV
"Jacky" <Jackyenlevez.jaeg@wanadoo.fr> a écrit dans le message de news:
OoBGej89DHA.1052@TK2MSFTNGP12.phx.gbl...
Bonjour Chris, bonjour Gaelb
Si tu ne veux pas avoir la même date dans toutes les feuilles ce qui, si
je
ne me trompes pas, est le cas avec le code de Chris.(il ne manquera pas de
me rectifier)
Dans chaque module de chaque feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[a3].Value = "Dernière mise à jour le " & Format(Date, "dd/mm/yyyy")
End Sub
Salutations
JJ
"GAELB" <anonymous@discussions.microsoft.com> a écrit dans le message
news:
13c4801c3f7c1$f80fce00$a401280a@phx.gbl...
Bonjour à tous
J'ai crée un classeur excel contenant des plannings
prévisionnels d'activités mois par mois pour 2004 (une
feuille = 1 mois). Je souhaite que pour chaque feuille en
cellule A3 apparaisse la date de dernière modification
(soit parce que l'on a rentré une donnée dans une cellule,
soit parce que l'on a changé la couleur de la cellule) de
la feuille.
J'ai collé le code suivant (merci Excelabo!), avec un
sheets array des feuilles, dans le this workbook mais la
même date apparait partout quand on modifie une seule
feuille. Ce qui ne m'étonne qu'a moitié!
Comment peut on l'améliorer pour que les dates, sur chaque
feuille, soit réellemnt celle de la modification de la
feuille?
Public Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A3").Select 'A3 étant la cellule où le texte
s'inscrit.
ActiveCell.Value = "Dernière mise à jour le " & Format
(Date, _
"dd/mm/yyyy")
End Sub
En vous remerciant de l'aide apportée
Cordialement,
Gaël
Tout à fait... et c'est effectivement une erreur de ma part, et qui ne répond pas à la demande (après relecture attentive...!) !
Le problème reste cependant (AMA ) similaire avec de plus, la particularité ou difficulté supplémentaire qu'une feuille modifiée n'est pas "enregistrable" indépendamment du classeur (à moins bien sûr de créer un nouveau classeur avec cette feuille...) Je me dirigerai donc d'avantage du côté de la fonction "Suivi des modifications" qui finalement devrait convenir d'avantage à GAELB.
ChrisV
"Jacky" a écrit dans le message de news:
Bonjour Chris, bonjour Gaelb Si tu ne veux pas avoir la même date dans toutes les feuilles ce qui, si je
ne me trompes pas, est le cas avec le code de Chris.(il ne manquera pas de me rectifier)
Dans chaque module de chaque feuille: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) [a3].Value = "Dernière mise à jour le " & Format(Date, "dd/mm/yyyy") End Sub
Salutations JJ
"GAELB" a écrit dans le message news:
13c4801c3f7c1$f80fce00$ Bonjour à tous J'ai crée un classeur excel contenant des plannings prévisionnels d'activités mois par mois pour 2004 (une feuille = 1 mois). Je souhaite que pour chaque feuille en cellule A3 apparaisse la date de dernière modification (soit parce que l'on a rentré une donnée dans une cellule, soit parce que l'on a changé la couleur de la cellule) de la feuille. J'ai collé le code suivant (merci Excelabo!), avec un sheets array des feuilles, dans le this workbook mais la même date apparait partout quand on modifie une seule feuille. Ce qui ne m'étonne qu'a moitié! Comment peut on l'améliorer pour que les dates, sur chaque feuille, soit réellemnt celle de la modification de la feuille? Public Sub Workbook_BeforeClose(Cancel As Boolean) Range("A3").Select 'A3 étant la cellule où le texte s'inscrit. ActiveCell.Value = "Dernière mise à jour le " & Format (Date, _ "dd/mm/yyyy") End Sub
En vous remerciant de l'aide apportée Cordialement, Gaël
GAELB
Bonjour! Merci beaucoup pour les améliorations suggerées. Gaël
-----Message d'origine----- Bonjour Jacky,
...est le cas avec le code de Chris
Tout à fait... et c'est effectivement une erreur de ma part, et qui ne
répond pas à la demande (après relecture attentive...!) !
Le problème reste cependant (AMA ) similaire avec de plus, la particularité
ou difficulté supplémentaire qu'une feuille modifiée n'est pas
"enregistrable" indépendamment du classeur (à moins bien sûr de créer un
nouveau classeur avec cette feuille...) Je me dirigerai donc d'avantage du côté de la fonction "Suivi des
modifications" qui finalement devrait convenir d'avantage à GAELB.
ChrisV
"Jacky" a écrit dans le message de news:
Bonjour Chris, bonjour Gaelb Si tu ne veux pas avoir la même date dans toutes les feuilles ce qui, si
je
ne me trompes pas, est le cas avec le code de Chris.(il ne manquera pas de
me rectifier)
Dans chaque module de chaque feuille: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[a3].Value = "Dernière mise à jour le " & Format (Date, "dd/mm/yyyy")
End Sub
Salutations JJ
"GAELB" a écrit dans le message
news:
13c4801c3f7c1$f80fce00$ Bonjour à tous J'ai crée un classeur excel contenant des plannings prévisionnels d'activités mois par mois pour 2004 (une feuille = 1 mois). Je souhaite que pour chaque feuille en
cellule A3 apparaisse la date de dernière modification (soit parce que l'on a rentré une donnée dans une cellule,
soit parce que l'on a changé la couleur de la cellule) de
la feuille. J'ai collé le code suivant (merci Excelabo!), avec un sheets array des feuilles, dans le this workbook mais la même date apparait partout quand on modifie une seule feuille. Ce qui ne m'étonne qu'a moitié! Comment peut on l'améliorer pour que les dates, sur chaque
feuille, soit réellemnt celle de la modification de la feuille? Public Sub Workbook_BeforeClose(Cancel As Boolean) Range("A3").Select 'A3 étant la cellule où le texte s'inscrit. ActiveCell.Value = "Dernière mise à jour le " & Format
(Date, _ "dd/mm/yyyy") End Sub
En vous remerciant de l'aide apportée Cordialement, Gaël
.
Bonjour!
Merci beaucoup pour les améliorations suggerées.
Gaël
-----Message d'origine-----
Bonjour Jacky,
...est le cas avec le code de Chris
Tout à fait... et c'est effectivement une erreur de ma
part, et qui ne
répond pas à la demande (après relecture attentive...!) !
Le problème reste cependant (AMA ) similaire avec de
plus, la particularité
ou difficulté supplémentaire qu'une feuille modifiée
n'est pas
"enregistrable" indépendamment du classeur (à moins bien
sûr de créer un
nouveau classeur avec cette feuille...)
Je me dirigerai donc d'avantage du côté de la
fonction "Suivi des
modifications" qui finalement devrait convenir d'avantage
à GAELB.
ChrisV
"Jacky" <Jackyenlevez.jaeg@wanadoo.fr> a écrit dans le
message de news:
OoBGej89DHA.1052@TK2MSFTNGP12.phx.gbl...
Bonjour Chris, bonjour Gaelb
Si tu ne veux pas avoir la même date dans toutes les
feuilles ce qui, si
je
ne me trompes pas, est le cas avec le code de Chris.(il
ne manquera pas de
me rectifier)
Dans chaque module de chaque feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As
Excel.Range)
[a3].Value = "Dernière mise à jour le " & Format
(Date, "dd/mm/yyyy")
End Sub
Salutations
JJ
"GAELB" <anonymous@discussions.microsoft.com> a écrit
dans le message
news:
13c4801c3f7c1$f80fce00$a401280a@phx.gbl...
Bonjour à tous
J'ai crée un classeur excel contenant des plannings
prévisionnels d'activités mois par mois pour 2004 (une
feuille = 1 mois). Je souhaite que pour chaque feuille
en
cellule A3 apparaisse la date de dernière modification
(soit parce que l'on a rentré une donnée dans une
cellule,
soit parce que l'on a changé la couleur de la cellule)
de
la feuille.
J'ai collé le code suivant (merci Excelabo!), avec un
sheets array des feuilles, dans le this workbook mais la
même date apparait partout quand on modifie une seule
feuille. Ce qui ne m'étonne qu'a moitié!
Comment peut on l'améliorer pour que les dates, sur
chaque
feuille, soit réellemnt celle de la modification de la
feuille?
Public Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A3").Select 'A3 étant la cellule où le texte
s'inscrit.
ActiveCell.Value = "Dernière mise à jour le " &
Format
(Date, _
"dd/mm/yyyy")
End Sub
En vous remerciant de l'aide apportée
Cordialement,
Gaël
Bonjour! Merci beaucoup pour les améliorations suggerées. Gaël
-----Message d'origine----- Bonjour Jacky,
...est le cas avec le code de Chris
Tout à fait... et c'est effectivement une erreur de ma part, et qui ne
répond pas à la demande (après relecture attentive...!) !
Le problème reste cependant (AMA ) similaire avec de plus, la particularité
ou difficulté supplémentaire qu'une feuille modifiée n'est pas
"enregistrable" indépendamment du classeur (à moins bien sûr de créer un
nouveau classeur avec cette feuille...) Je me dirigerai donc d'avantage du côté de la fonction "Suivi des
modifications" qui finalement devrait convenir d'avantage à GAELB.
ChrisV
"Jacky" a écrit dans le message de news:
Bonjour Chris, bonjour Gaelb Si tu ne veux pas avoir la même date dans toutes les feuilles ce qui, si
je
ne me trompes pas, est le cas avec le code de Chris.(il ne manquera pas de
me rectifier)
Dans chaque module de chaque feuille: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[a3].Value = "Dernière mise à jour le " & Format (Date, "dd/mm/yyyy")
End Sub
Salutations JJ
"GAELB" a écrit dans le message
news:
13c4801c3f7c1$f80fce00$ Bonjour à tous J'ai crée un classeur excel contenant des plannings prévisionnels d'activités mois par mois pour 2004 (une feuille = 1 mois). Je souhaite que pour chaque feuille en
cellule A3 apparaisse la date de dernière modification (soit parce que l'on a rentré une donnée dans une cellule,
soit parce que l'on a changé la couleur de la cellule) de
la feuille. J'ai collé le code suivant (merci Excelabo!), avec un sheets array des feuilles, dans le this workbook mais la même date apparait partout quand on modifie une seule feuille. Ce qui ne m'étonne qu'a moitié! Comment peut on l'améliorer pour que les dates, sur chaque
feuille, soit réellemnt celle de la modification de la feuille? Public Sub Workbook_BeforeClose(Cancel As Boolean) Range("A3").Select 'A3 étant la cellule où le texte s'inscrit. ActiveCell.Value = "Dernière mise à jour le " & Format
(Date, _ "dd/mm/yyyy") End Sub
En vous remerciant de l'aide apportée Cordialement, Gaël
.
GAELB
Bonjour Chris! Je teste de ce pas et te remercie! Gaël
-----Message d'origine----- Bonjour GAELB,
...(soit parce que l'on a rentré une donnée dans une cellule,
soit parce que l'on a changé la couleur de la cellule
J'ouvre un classeur, je modifie le contenu de certaines cellules, j'applique
une couleur de fond différente sur d'autres... je ferme sans enregistrer:
le classeur a-t-il été modifié pour autant ? Partant du principe que non, mais en laissant toutefois l'information sur le
dernier accès à ce classeur en A4, en plus de l'info demandée en A3...
(dans la feuille de code de ThisWorkbook)
Private Sub Workbook_Open() Application.ScreenUpdating = False For Each sH In Worksheets sH.[A3] = "Dernier enregistrement : le " _ & Format (ActiveWorkbook.BuiltinDocumentProperties(12), _
"dd/mm/yyyy hh:mm") sH.[A4] = "Accédé : le " & Format(Now, _ "dd/mm/yyyy hh:mm") Next sH End Sub
ChrisV
"GAELB" a écrit dans le message de
news: 13c4801c3f7c1$f80fce00$ Bonjour à tous J'ai crée un classeur excel contenant des plannings prévisionnels d'activités mois par mois pour 2004 (une feuille = 1 mois). Je souhaite que pour chaque feuille en cellule A3 apparaisse la date de dernière modification (soit parce que l'on a rentré une donnée dans une cellule, soit parce que l'on a changé la couleur de la cellule) de la feuille. J'ai collé le code suivant (merci Excelabo!), avec un sheets array des feuilles, dans le this workbook mais la même date apparait partout quand on modifie une seule feuille. Ce qui ne m'étonne qu'a moitié! Comment peut on l'améliorer pour que les dates, sur chaque feuille, soit réellemnt celle de la modification de la feuille? Public Sub Workbook_BeforeClose(Cancel As Boolean) Range("A3").Select 'A3 étant la cellule où le texte s'inscrit. ActiveCell.Value = "Dernière mise à jour le " & Format (Date, _ "dd/mm/yyyy") End Sub
En vous remerciant de l'aide apportée Cordialement, Gaël
.
Bonjour Chris!
Je teste de ce pas et te remercie!
Gaël
-----Message d'origine-----
Bonjour GAELB,
...(soit parce que l'on a rentré une donnée dans une
cellule,
soit parce que l'on a changé la couleur de la cellule
J'ouvre un classeur, je modifie le contenu de certaines
cellules, j'applique
une couleur de fond différente sur d'autres... je ferme
sans enregistrer:
le classeur a-t-il été modifié pour autant ?
Partant du principe que non, mais en laissant toutefois
l'information sur le
dernier accès à ce classeur en A4, en plus de l'info
demandée en A3...
(dans la feuille de code de ThisWorkbook)
Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each sH In Worksheets
sH.[A3] = "Dernier enregistrement : le " _
& Format
(ActiveWorkbook.BuiltinDocumentProperties(12), _
"dd/mm/yyyy hh:mm")
sH.[A4] = "Accédé : le " & Format(Now, _
"dd/mm/yyyy hh:mm")
Next sH
End Sub
ChrisV
"GAELB" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 13c4801c3f7c1$f80fce00$a401280a@phx.gbl...
Bonjour à tous
J'ai crée un classeur excel contenant des plannings
prévisionnels d'activités mois par mois pour 2004 (une
feuille = 1 mois). Je souhaite que pour chaque feuille en
cellule A3 apparaisse la date de dernière modification
(soit parce que l'on a rentré une donnée dans une cellule,
soit parce que l'on a changé la couleur de la cellule) de
la feuille.
J'ai collé le code suivant (merci Excelabo!), avec un
sheets array des feuilles, dans le this workbook mais la
même date apparait partout quand on modifie une seule
feuille. Ce qui ne m'étonne qu'a moitié!
Comment peut on l'améliorer pour que les dates, sur chaque
feuille, soit réellemnt celle de la modification de la
feuille?
Public Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A3").Select 'A3 étant la cellule où le texte
s'inscrit.
ActiveCell.Value = "Dernière mise à jour le " & Format
(Date, _
"dd/mm/yyyy")
End Sub
En vous remerciant de l'aide apportée
Cordialement,
Gaël
Bonjour Chris! Je teste de ce pas et te remercie! Gaël
-----Message d'origine----- Bonjour GAELB,
...(soit parce que l'on a rentré une donnée dans une cellule,
soit parce que l'on a changé la couleur de la cellule
J'ouvre un classeur, je modifie le contenu de certaines cellules, j'applique
une couleur de fond différente sur d'autres... je ferme sans enregistrer:
le classeur a-t-il été modifié pour autant ? Partant du principe que non, mais en laissant toutefois l'information sur le
dernier accès à ce classeur en A4, en plus de l'info demandée en A3...
(dans la feuille de code de ThisWorkbook)
Private Sub Workbook_Open() Application.ScreenUpdating = False For Each sH In Worksheets sH.[A3] = "Dernier enregistrement : le " _ & Format (ActiveWorkbook.BuiltinDocumentProperties(12), _
"dd/mm/yyyy hh:mm") sH.[A4] = "Accédé : le " & Format(Now, _ "dd/mm/yyyy hh:mm") Next sH End Sub
ChrisV
"GAELB" a écrit dans le message de
news: 13c4801c3f7c1$f80fce00$ Bonjour à tous J'ai crée un classeur excel contenant des plannings prévisionnels d'activités mois par mois pour 2004 (une feuille = 1 mois). Je souhaite que pour chaque feuille en cellule A3 apparaisse la date de dernière modification (soit parce que l'on a rentré une donnée dans une cellule, soit parce que l'on a changé la couleur de la cellule) de la feuille. J'ai collé le code suivant (merci Excelabo!), avec un sheets array des feuilles, dans le this workbook mais la même date apparait partout quand on modifie une seule feuille. Ce qui ne m'étonne qu'a moitié! Comment peut on l'améliorer pour que les dates, sur chaque feuille, soit réellemnt celle de la modification de la feuille? Public Sub Workbook_BeforeClose(Cancel As Boolean) Range("A3").Select 'A3 étant la cellule où le texte s'inscrit. ActiveCell.Value = "Dernière mise à jour le " & Format (Date, _ "dd/mm/yyyy") End Sub
En vous remerciant de l'aide apportée Cordialement, Gaël
