1-Forcé l'enregistrement Dans le classeur en question '--------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) [a1] = Now ThisWorkbook.Close True End Sub '----------------
2- Dans un fichier tiers ".txt" sur l'ordinateur de ton choix . Dans un module standard du classeur en question, que tu appelles à l'ouverture par: Call mouchard Ceci crée un répertoire nommé "Mouchard", y crée un fichier texte (a l'endroit défini par "Repertoire") avec chaque ouverture du classeur ou il est placé avec le nom de l'utilisateur et le nom du pc '---------------- Sub mouchard() Dim Repertoire As String, nom As String On Error Resume Next Repertoire = "BureauMesDocsMouchard" ' a adapter If Dir(Repertoire, 16) = "" Then MkDir Repertoire If Err = 0 Then nom = Repertoire & "Mouchard de " & ThisWorkbook.Name & ".txt" Open nom For Append As #1 Print #1, ThisWorkbook.Name & " Accedé le " & Format(Date, "ddd dd mmm yyyy") & " à " & Time _ & " par " & Environ("username") & " sur le pc "; Environ("COMPUTERNAME") Close #1 End If On Error GoTo 0 End Sub '-----------------
-- Salutations JJ
"magic-dd" a écrit dans le message de news:
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellule, je n'enregistre pas mon classeur mais la date reste celle inscrite
Bonsoir;
Je te propose 2 solutions
1-Forcé l'enregistrement
Dans le classeur en question
'---------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
[a1] = Now
ThisWorkbook.Close True
End Sub
'----------------
2- Dans un fichier tiers ".txt" sur l'ordinateur de ton choix .
Dans un module standard du classeur en question, que tu appelles à l'ouverture
par: Call mouchard
Ceci crée un répertoire nommé "Mouchard", y crée un fichier texte (a l'endroit défini par "Repertoire") avec
chaque ouverture du classeur ou il est placé avec le nom de l'utilisateur et le nom du pc
'----------------
Sub mouchard()
Dim Repertoire As String, nom As String
On Error Resume Next
Repertoire = "\BureauMesDocsMouchard" ' a adapter
If Dir(Repertoire, 16) = "" Then MkDir Repertoire
If Err = 0 Then
nom = Repertoire & "Mouchard de " & ThisWorkbook.Name & ".txt"
Open nom For Append As #1
Print #1, ThisWorkbook.Name & " Accedé le " & Format(Date, "ddd dd mmm yyyy") & " à " & Time _
& " par " & Environ("username") & " sur le pc "; Environ("COMPUTERNAME")
Close #1
End If
On Error GoTo 0
End Sub
'-----------------
--
Salutations
JJ
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de news:
d2106570-8e33-4bb6-9d97-ede3240df2b0@googlegroups.com...
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellule, je n'enregistre pas mon
classeur mais la date reste celle inscrite
1-Forcé l'enregistrement Dans le classeur en question '--------------- Private Sub Workbook_BeforeClose(Cancel As Boolean) [a1] = Now ThisWorkbook.Close True End Sub '----------------
2- Dans un fichier tiers ".txt" sur l'ordinateur de ton choix . Dans un module standard du classeur en question, que tu appelles à l'ouverture par: Call mouchard Ceci crée un répertoire nommé "Mouchard", y crée un fichier texte (a l'endroit défini par "Repertoire") avec chaque ouverture du classeur ou il est placé avec le nom de l'utilisateur et le nom du pc '---------------- Sub mouchard() Dim Repertoire As String, nom As String On Error Resume Next Repertoire = "BureauMesDocsMouchard" ' a adapter If Dir(Repertoire, 16) = "" Then MkDir Repertoire If Err = 0 Then nom = Repertoire & "Mouchard de " & ThisWorkbook.Name & ".txt" Open nom For Append As #1 Print #1, ThisWorkbook.Name & " Accedé le " & Format(Date, "ddd dd mmm yyyy") & " à " & Time _ & " par " & Environ("username") & " sur le pc "; Environ("COMPUTERNAME") Close #1 End If On Error GoTo 0 End Sub '-----------------
-- Salutations JJ
"magic-dd" a écrit dans le message de news:
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellule, je n'enregistre pas mon classeur mais la date reste celle inscrite
magic-dd
Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cel lule, je n'enregistre pas mon classeur mais la date reste celle inscrite
Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cel lule, je n'enregistre pas mon classeur mais la date reste celle inscrite
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
LSteph
Bonjour magic -dd et JJ,
Petite attention tout de même, Call à l'ouverture utilise sans doute le Workbook_open donc méfiance si l'utilisateur répond non à l'activation des macros, adios mouchard...
Cordialement.
-- LSteph
"magic-dd" a écrit dans le message de news: Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellule, je n'enregistre pas mon classeur mais la date reste celle inscrite
Bonjour magic -dd et JJ,
Petite attention tout de même,
Call à l'ouverture utilise sans doute le Workbook_open
donc méfiance si l'utilisateur répond non à l'activation des macros, adios
mouchard...
Cordialement.
--
LSteph
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de
news:ea097fee-36a0-4c5c-948f-efe496747e3c@googlegroups.com...
Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci
n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une
cellule, je n'enregistre pas mon classeur mais la date reste celle
inscrite
Petite attention tout de même, Call à l'ouverture utilise sans doute le Workbook_open donc méfiance si l'utilisateur répond non à l'activation des macros, adios mouchard...
Cordialement.
-- LSteph
"magic-dd" a écrit dans le message de news: Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellule, je n'enregistre pas mon classeur mais la date reste celle inscrite
Jacky
Hello Steph
Call à l'ouverture utilise sans doute le Workbook_open
A l'activation de la feuille.... Q"il faut prendre soin de rendre non visible à la fermeture(Workbook_BeforeClose) et rendre visible à l'ouverture (Workbook_Open) Saluton mouchard......;o)) -- Salutations JJ
"LSteph" a écrit dans le message de news: kt52or$uu$
Bonjour magic -dd et JJ,
Petite attention tout de même, Call à l'ouverture utilise sans doute le Workbook_open donc méfiance si l'utilisateur répond non à l'activation des macros, adios mouchard...
Cordialement.
-- LSteph
"magic-dd" a écrit dans le message de news: Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellule, je n'enregistre pas mon classeur mais la date reste celle inscrite
Hello Steph
Call à l'ouverture utilise sans doute le Workbook_open
A l'activation de la feuille....
Q"il faut prendre soin de rendre non visible à la fermeture(Workbook_BeforeClose) et rendre visible à
l'ouverture (Workbook_Open)
Saluton mouchard......;o))
--
Salutations
JJ
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news: kt52or$uu$1@speranza.aioe.org...
Bonjour magic -dd et JJ,
Petite attention tout de même,
Call à l'ouverture utilise sans doute le Workbook_open
donc méfiance si l'utilisateur répond non à l'activation des macros, adios mouchard...
Cordialement.
--
LSteph
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de
news:ea097fee-36a0-4c5c-948f-efe496747e3c@googlegroups.com...
Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellule, je n'enregistre pas mon
classeur mais la date reste celle inscrite
Call à l'ouverture utilise sans doute le Workbook_open
A l'activation de la feuille.... Q"il faut prendre soin de rendre non visible à la fermeture(Workbook_BeforeClose) et rendre visible à l'ouverture (Workbook_Open) Saluton mouchard......;o)) -- Salutations JJ
"LSteph" a écrit dans le message de news: kt52or$uu$
Bonjour magic -dd et JJ,
Petite attention tout de même, Call à l'ouverture utilise sans doute le Workbook_open donc méfiance si l'utilisateur répond non à l'activation des macros, adios mouchard...
Cordialement.
-- LSteph
"magic-dd" a écrit dans le message de news: Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellule, je n'enregistre pas mon classeur mais la date reste celle inscrite
MichD
Bonjour,
Un fichier Exemple : NB: C'est un fichier de macros complémentaires contenant un module de classe.
Et dans les options d'Excel / Compléments / Tu coches la macro complémentaire appelée "MichClasse". Si le complément est absent de la liste, tu dois utiliser le bouton parcourir pour remonter dans l'arborescence des fichiers jusqu'au répertoire où tu l'as enregistré.
"MichClasse" est le nom de la propriété du module VBA du classeur.
Pour retrouver la valeur du nom "LaDate" dans une procédure : MsgBox Format(CDate([LaDate]), "D MMM YYYY H:MM:SS")
Cette manière de faire va s'appliquer à tous les classeurs que l'usager ouvre même s'il n'active pas les macros.
Un fichier Exemple :
NB: C'est un fichier de macros complémentaires contenant
un module de classe.
http://cjoint.com/?CGDo1ivAYJn
Tu copies le fichier dans ce répertoire :
C:UsersTon ProfilAppDataRoamingMicrosoftAddIns
Et dans les options d'Excel / Compléments / Tu coches la macro
complémentaire appelée "MichClasse". Si le complément est absent de la
liste, tu dois utiliser le bouton parcourir pour remonter dans
l'arborescence des fichiers jusqu'au répertoire où tu l'as enregistré.
"MichClasse" est le nom de la propriété du module VBA du classeur.
Pour retrouver la valeur du nom "LaDate" dans une procédure :
MsgBox Format(CDate([LaDate]), "D MMM YYYY H:MM:SS")
Cette manière de faire va s'appliquer à tous les classeurs que l'usager
ouvre même s'il n'active pas les macros.
Et dans les options d'Excel / Compléments / Tu coches la macro complémentaire appelée "MichClasse". Si le complément est absent de la liste, tu dois utiliser le bouton parcourir pour remonter dans l'arborescence des fichiers jusqu'au répertoire où tu l'as enregistré.
"MichClasse" est le nom de la propriété du module VBA du classeur.
Pour retrouver la valeur du nom "LaDate" dans une procédure : MsgBox Format(CDate([LaDate]), "D MMM YYYY H:MM:SS")
Cette manière de faire va s'appliquer à tous les classeurs que l'usager ouvre même s'il n'active pas les macros.
"Jacky" a écrit dans le message de news:kt5m6k$mkb$
Hello Steph
Call à l'ouverture utilise sans doute le Workbook_open
A l'activation de la feuille.... Q"il faut prendre soin de rendre non visible à la fermeture(Workbook_BeforeClose) et rendre visible à l'ouverture (Workbook_Open) Saluton mouchard......;o)) -- Salutations JJ
"LSteph" a écrit dans le message de news: kt52or$uu$
Bonjour magic -dd et JJ,
Petite attention tout de même, Call à l'ouverture utilise sans doute le Workbook_open donc méfiance si l'utilisateur répond non à l'activation des macros, adios mouchard...
Cordialement.
-- LSteph
"magic-dd" a écrit dans le message de news: Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellule, je n'enregistre pas mon classeur mais la date reste celle inscrite
;o)
On avance déjà mieux là....
Amicales Salutations.
"Jacky" <Dupond@marcel.fr> a écrit dans le message de
news:kt5m6k$mkb$1@speranza.aioe.org...
Hello Steph
Call à l'ouverture utilise sans doute le Workbook_open
A l'activation de la feuille....
Q"il faut prendre soin de rendre non visible à la
fermeture(Workbook_BeforeClose) et rendre visible à l'ouverture
(Workbook_Open)
Saluton mouchard......;o))
--
Salutations
JJ
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
kt52or$uu$1@speranza.aioe.org...
Bonjour magic -dd et JJ,
Petite attention tout de même,
Call à l'ouverture utilise sans doute le Workbook_open
donc méfiance si l'utilisateur répond non à l'activation des macros,
adios mouchard...
Cordialement.
--
LSteph
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de
news:ea097fee-36a0-4c5c-948f-efe496747e3c@googlegroups.com...
Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci
n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une
cellule, je n'enregistre pas mon classeur mais la date reste celle
inscrite
"Jacky" a écrit dans le message de news:kt5m6k$mkb$
Hello Steph
Call à l'ouverture utilise sans doute le Workbook_open
A l'activation de la feuille.... Q"il faut prendre soin de rendre non visible à la fermeture(Workbook_BeforeClose) et rendre visible à l'ouverture (Workbook_Open) Saluton mouchard......;o)) -- Salutations JJ
"LSteph" a écrit dans le message de news: kt52or$uu$
Bonjour magic -dd et JJ,
Petite attention tout de même, Call à l'ouverture utilise sans doute le Workbook_open donc méfiance si l'utilisateur répond non à l'activation des macros, adios mouchard...
Cordialement.
-- LSteph
"magic-dd" a écrit dans le message de news: Salut Jacky
un seul mot : Formidable
cela correspond à ce que je cherche.
j'ai modulé un peux ton code pour le nom de repertoire
bravo et merci encore
Le samedi 27 juillet 2013 19:46:27 UTC+2, magic-dd a écrit :
Bonjour
comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'est pas enregistré
exemple
j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellule, je n'enregistre pas mon classeur mais la date reste celle inscrite
magic-dd
Salut les champions
en effet cette histoire d'activer ou non les macros ne me permettait pas de recuperer les donnees
avec cette complementaire cela va resoudre cette faille
merci beaucoup
Salut les champions
en effet cette histoire d'activer ou non les macros ne me permettait pas de recuperer les donnees
avec cette complementaire cela va resoudre cette faille
Si je comprends ta question, tu veux vérifier le contenu de la cellule B2 d'un autre classeur que celui où tu as défini la procédure "Workbook_Open".
Ce classeur2, est-il toujours le même? Porte-t-il un nom précis? Le nombre de classeurs ouverts dans ton application est-il toujours le même?
Je t'ai donné un fichier de macros complémentaires... si tu utilises l'événement "workbook_Open" dans le thisWorkbook, tu vas toujours être à la merci de l'usager s'il accepte ou non les macros dès l'ouverture.
Tu dois préciser davantage ce que tu désires effectuer.
Si je comprends ta question, tu veux vérifier le
contenu de la cellule B2 d'un autre classeur que celui
où tu as défini la procédure "Workbook_Open".
Ce classeur2, est-il toujours le même? Porte-t-il un nom
précis? Le nombre de classeurs ouverts dans ton application
est-il toujours le même?
Je t'ai donné un fichier de macros complémentaires... si tu utilises
l'événement "workbook_Open" dans le thisWorkbook, tu vas toujours
être à la merci de l'usager s'il accepte ou non les macros dès l'ouverture.
Tu dois préciser davantage ce que tu désires effectuer.
Si je comprends ta question, tu veux vérifier le contenu de la cellule B2 d'un autre classeur que celui où tu as défini la procédure "Workbook_Open".
Ce classeur2, est-il toujours le même? Porte-t-il un nom précis? Le nombre de classeurs ouverts dans ton application est-il toujours le même?
Je t'ai donné un fichier de macros complémentaires... si tu utilises l'événement "workbook_Open" dans le thisWorkbook, tu vas toujours être à la merci de l'usager s'il accepte ou non les macros dès l'ouverture.
Tu dois préciser davantage ce que tu désires effectuer.
