Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel date d'ouverture fichier

date d'ouverture fichier

26 réponses
Avatar
magic-dd
Bonjour

comment recuperer la date d'ouverture du classeur Excel meme si celui ci n'=
est pas enregistr=E9

exemple

j'ouvre un classeur sur le reseau, la date du jour s'inscrit dans une cellu=
le, je n'enregistre pas mon classeur mais la date reste celle inscrite
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3
Avatar
Jacky
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" 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
Avatar
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
Avatar
Jacky
cela correspond à ce que je cherche.


"Moucharde" pas trop, tout de même ;o))))))

--
Salutations
JJ


"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
Avatar
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
Avatar
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



Avatar
MichD
Bonjour,

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.

MichD
---------------------------------------------------------------
Avatar
LSteph
;o)

On avance déjà mieux là....

Amicales Salutations.


"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







Avatar
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
Avatar
magic-dd
re bonsoir

j'ai bien installé la macro complementaire

dans un fichier excel dans le thisworkbook j'ai mis cela

Private Sub Workbook_Open()
Feuil1.Range("A1") = Format(CDate([LaDate]), "D MMM YYYY H:MM:SS")
Feuil1.Range("b1") = Environ("username")

End Sub

mais estce possible de mettre un if

car je voudrais que cette macro fonctionne si la cellule B2 du classeur 2 a été modifiée

Merci

Le lundi 29 juillet 2013 14:54:43 UTC+2, MichD a écrit :
Bonjour,



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'usag er

ouvre même s'il n'active pas les macros.



MichD

---------------------------------------------------------------
Avatar
MichD
Ta question n'est pas claire!

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.


MichD
---------------------------------------------------------------
1 2 3