bonjour
j'ai trouvé un module pour afficher la date de dernière modification
d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne
s'actualise pas
à l'ouverture du fichier mais seulement quand je tape ou copie la fonction
dans une autre cellule
Function DateModificationFichier() As String
DateModificationFichier = ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un
enregistrement
merci @+
pour me répondre , supprimer la premiére lettre de mon adresse (r)
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
Pierre Fauconnier
Bonjour
Private Sub Workbook_Open() MaValeurÚtemodificationfichier() End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MaValeurÚtemodificationfichier() End Sub
Ces codes doivent être placés dans le module ThisWorkbook du projet VBA. MaValeur doit être remplacé par la variable à laquelle tu souhaites affecter la date de modif
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
--- Rancy JC wrote:
bonjour j'ai trouvé un module pour afficher la date de dernière modification d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne s'actualise pas à l'ouverture du fichier mais seulement quand je tape ou copie la fonction dans une autre cellule
Function DateModificationFichier() As String DateModificationFichier > ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un enregistrement merci @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
Bonjour
Private Sub Workbook_Open()
MaValeurÚtemodificationfichier()
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
MaValeurÚtemodificationfichier()
End Sub
Ces codes doivent être placés dans le module ThisWorkbook du projet VBA.
MaValeur doit être remplacé par la variable à laquelle tu souhaites affecter
la date de modif
--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)
---
Rancy JC wrote:
bonjour
j'ai trouvé un module pour afficher la date de dernière modification
d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne
s'actualise pas
à l'ouverture du fichier mais seulement quand je tape ou copie la
fonction dans une autre cellule
Function DateModificationFichier() As String
DateModificationFichier > ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un
enregistrement
merci @+
pour me répondre , supprimer la premiére lettre de mon adresse (r)
Private Sub Workbook_Open() MaValeurÚtemodificationfichier() End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MaValeurÚtemodificationfichier() End Sub
Ces codes doivent être placés dans le module ThisWorkbook du projet VBA. MaValeur doit être remplacé par la variable à laquelle tu souhaites affecter la date de modif
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
--- Rancy JC wrote:
bonjour j'ai trouvé un module pour afficher la date de dernière modification d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne s'actualise pas à l'ouverture du fichier mais seulement quand je tape ou copie la fonction dans une autre cellule
Function DateModificationFichier() As String DateModificationFichier > ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un enregistrement merci @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
Monique Brunel
Bonjour,
Peut-être en utilisant une macro événementielle http://dj.joss.free.fr/faq.htm#datemodif
-- Amicalement, Monique (la Wallonne) en campagne pour des sites conformes aux standards et accessibles... http://www.webmaster-hub.com/ et pour les amateurs d'athlétisme... http://users.skynet.be/osga/
"Rancy JC" a écrit dans le message de news:bngo23$tu9$
bonjour j'ai trouvé un module pour afficher la date de dernière modification d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne s'actualise pas à l'ouverture du fichier mais seulement quand je tape ou copie la fonction dans une autre cellule
Function DateModificationFichier() As String DateModificationFichier ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un enregistrement merci @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
Bonjour,
Peut-être en utilisant une macro événementielle
http://dj.joss.free.fr/faq.htm#datemodif
--
Amicalement,
Monique (la Wallonne)
en campagne pour des sites conformes aux standards et accessibles...
http://www.webmaster-hub.com/
et pour les amateurs d'athlétisme... http://users.skynet.be/osga/
"Rancy JC" <rjc.rancy@wanadoo.fr> a écrit dans le message de
news:bngo23$tu9$1@news-reader5.wanadoo.fr...
bonjour
j'ai trouvé un module pour afficher la date de dernière modification
d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne
s'actualise pas
à l'ouverture du fichier mais seulement quand je tape ou copie la fonction
dans une autre cellule
Function DateModificationFichier() As String
DateModificationFichier ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un
enregistrement
merci @+
pour me répondre , supprimer la premiére lettre de mon adresse (r)
Peut-être en utilisant une macro événementielle http://dj.joss.free.fr/faq.htm#datemodif
-- Amicalement, Monique (la Wallonne) en campagne pour des sites conformes aux standards et accessibles... http://www.webmaster-hub.com/ et pour les amateurs d'athlétisme... http://users.skynet.be/osga/
"Rancy JC" a écrit dans le message de news:bngo23$tu9$
bonjour j'ai trouvé un module pour afficher la date de dernière modification d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne s'actualise pas à l'ouverture du fichier mais seulement quand je tape ou copie la fonction dans une autre cellule
Function DateModificationFichier() As String DateModificationFichier ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un enregistrement merci @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
Denis Michon
Bonjour Rancy,
Copie ceci dans le ThisWorkbook de ton projet en modifiant le nom de la feuille et de la cellule recevant la fonction.
'----------------- Private Sub Workbook_Open()
With Worksheets("Feuil1") .Range("A1").Formula = "ÚteModificationFichier()" End With
End Sub '-----------------
Salutations!
P.S. La fonction doit être inscrite dans un module standard.
"Rancy JC" a écrit dans le message de news:bngo23$tu9$ bonjour j'ai trouvé un module pour afficher la date de dernière modification d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne s'actualise pas à l'ouverture du fichier mais seulement quand je tape ou copie la fonction dans une autre cellule
Function DateModificationFichier() As String DateModificationFichier = ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un enregistrement merci @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
Bonjour Rancy,
Copie ceci dans le ThisWorkbook de ton projet en modifiant le nom de la feuille et de la cellule recevant la fonction.
'-----------------
Private Sub Workbook_Open()
With Worksheets("Feuil1")
.Range("A1").Formula = "ÚteModificationFichier()"
End With
End Sub
'-----------------
Salutations!
P.S. La fonction doit être inscrite dans un module standard.
"Rancy JC" <rjc.rancy@wanadoo.fr> a écrit dans le message de news:bngo23$tu9$1@news-reader5.wanadoo.fr...
bonjour
j'ai trouvé un module pour afficher la date de dernière modification
d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne
s'actualise pas
à l'ouverture du fichier mais seulement quand je tape ou copie la fonction
dans une autre cellule
Function DateModificationFichier() As String
DateModificationFichier = ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un
enregistrement
merci @+
pour me répondre , supprimer la premiére lettre de mon adresse (r)
Copie ceci dans le ThisWorkbook de ton projet en modifiant le nom de la feuille et de la cellule recevant la fonction.
'----------------- Private Sub Workbook_Open()
With Worksheets("Feuil1") .Range("A1").Formula = "ÚteModificationFichier()" End With
End Sub '-----------------
Salutations!
P.S. La fonction doit être inscrite dans un module standard.
"Rancy JC" a écrit dans le message de news:bngo23$tu9$ bonjour j'ai trouvé un module pour afficher la date de dernière modification d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne s'actualise pas à l'ouverture du fichier mais seulement quand je tape ou copie la fonction dans une autre cellule
Function DateModificationFichier() As String DateModificationFichier = ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un enregistrement merci @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
Rancy JC
Bonjour à tous Merci Monique,Pierre,Denis pour vos réponses Je viens seulement d'essayer ça marche pour la première partie du code lors de l'ouverture du fichier mais pas de maj lorsque je fait enregistrer sur l'icône de la disquette ? je suis sous Excel 2000 Win 98SE voici le copier coller de mon (votre) code @+
"Pierre Fauconnier" a écrit dans le message de news:
Bonjour
Private Sub Workbook_Open() MaValeurÚtemodificationfichier() End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MaValeurÚtemodificationfichier() End Sub
Ces codes doivent être placés dans le module ThisWorkbook du projet VBA. MaValeur doit être remplacé par la variable à laquelle tu souhaites affecter
la date de modif
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
--- Rancy JC wrote:
bonjour j'ai trouvé un module pour afficher la date de dernière modification d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne s'actualise pas à l'ouverture du fichier mais seulement quand je tape ou copie la fonction dans une autre cellule
Function DateModificationFichier() As String DateModificationFichier > > ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un enregistrement merci @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
Bonjour à tous
Merci Monique,Pierre,Denis pour vos réponses
Je viens seulement d'essayer
ça marche pour la première partie du code lors de l'ouverture
du fichier mais pas de maj lorsque je fait enregistrer sur l'icône de la
disquette ?
je suis sous Excel 2000 Win 98SE voici le copier coller de mon (votre) code
@+
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM.be> a écrit dans le message de
news: OFIdKc9mDHA.3316@TK2MSFTNGP11.phx.gbl...
Bonjour
Private Sub Workbook_Open()
MaValeurÚtemodificationfichier()
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
MaValeurÚtemodificationfichier()
End Sub
Ces codes doivent être placés dans le module ThisWorkbook du projet VBA.
MaValeur doit être remplacé par la variable à laquelle tu souhaites
affecter
la date de modif
--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)
---
Rancy JC wrote:
bonjour
j'ai trouvé un module pour afficher la date de dernière modification
d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne
s'actualise pas
à l'ouverture du fichier mais seulement quand je tape ou copie la
fonction dans une autre cellule
Function DateModificationFichier() As String
DateModificationFichier > > ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un
enregistrement
merci @+
pour me répondre , supprimer la premiére lettre de mon adresse (r)
Bonjour à tous Merci Monique,Pierre,Denis pour vos réponses Je viens seulement d'essayer ça marche pour la première partie du code lors de l'ouverture du fichier mais pas de maj lorsque je fait enregistrer sur l'icône de la disquette ? je suis sous Excel 2000 Win 98SE voici le copier coller de mon (votre) code @+
"Pierre Fauconnier" a écrit dans le message de news:
Bonjour
Private Sub Workbook_Open() MaValeurÚtemodificationfichier() End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MaValeurÚtemodificationfichier() End Sub
Ces codes doivent être placés dans le module ThisWorkbook du projet VBA. MaValeur doit être remplacé par la variable à laquelle tu souhaites affecter
la date de modif
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
--- Rancy JC wrote:
bonjour j'ai trouvé un module pour afficher la date de dernière modification d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne s'actualise pas à l'ouverture du fichier mais seulement quand je tape ou copie la fonction dans une autre cellule
Function DateModificationFichier() As String DateModificationFichier > > ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un enregistrement merci @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
Rancy JC
Avec mes excuses j'ai oublié le coller du code que j'ai employé fatigue de fin de journée !
Private Sub Workbook_Open() DateModif = DateModificationFichier() With Worksheets("CDE") .Range("C1").Value = DateModif End With End Sub
Private Sub WorkbookBeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) DateModif = DateModificationFichier() With Worksheets("CDE") .Range("C1").Value = DateModif End With End Sub
@+
"Pierre Fauconnier" a écrit dans le message de news:
Bonjour
Private Sub Workbook_Open() MaValeurÚtemodificationfichier() End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MaValeurÚtemodificationfichier() End Sub
Ces codes doivent être placés dans le module ThisWorkbook du projet VBA. MaValeur doit être remplacé par la variable à laquelle tu souhaites affecter
la date de modif
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
--- Rancy JC wrote:
bonjour j'ai trouvé un module pour afficher la date de dernière modification d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne s'actualise pas à l'ouverture du fichier mais seulement quand je tape ou copie la fonction dans une autre cellule
Function DateModificationFichier() As String DateModificationFichier > > ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un enregistrement merci @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
Avec mes excuses j'ai oublié le coller du code que j'ai employé
fatigue de fin de journée !
Private Sub Workbook_Open()
DateModif = DateModificationFichier()
With Worksheets("CDE")
.Range("C1").Value = DateModif
End With
End Sub
Private Sub WorkbookBeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
DateModif = DateModificationFichier()
With Worksheets("CDE")
.Range("C1").Value = DateModif
End With
End Sub
@+
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM.be> a écrit dans le message de
news: OFIdKc9mDHA.3316@TK2MSFTNGP11.phx.gbl...
Bonjour
Private Sub Workbook_Open()
MaValeurÚtemodificationfichier()
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
MaValeurÚtemodificationfichier()
End Sub
Ces codes doivent être placés dans le module ThisWorkbook du projet VBA.
MaValeur doit être remplacé par la variable à laquelle tu souhaites
affecter
la date de modif
--
Cela convient-il?
----
Pierre Fauconnier
"C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..."
(remplacer NOSPAM par pfi pour me répondre. Merci)
---
Rancy JC wrote:
bonjour
j'ai trouvé un module pour afficher la date de dernière modification
d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne
s'actualise pas
à l'ouverture du fichier mais seulement quand je tape ou copie la
fonction dans une autre cellule
Function DateModificationFichier() As String
DateModificationFichier > > ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un
enregistrement
merci @+
pour me répondre , supprimer la premiére lettre de mon adresse (r)
Avec mes excuses j'ai oublié le coller du code que j'ai employé fatigue de fin de journée !
Private Sub Workbook_Open() DateModif = DateModificationFichier() With Worksheets("CDE") .Range("C1").Value = DateModif End With End Sub
Private Sub WorkbookBeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) DateModif = DateModificationFichier() With Worksheets("CDE") .Range("C1").Value = DateModif End With End Sub
@+
"Pierre Fauconnier" a écrit dans le message de news:
Bonjour
Private Sub Workbook_Open() MaValeurÚtemodificationfichier() End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MaValeurÚtemodificationfichier() End Sub
Ces codes doivent être placés dans le module ThisWorkbook du projet VBA. MaValeur doit être remplacé par la variable à laquelle tu souhaites affecter
la date de modif
-- Cela convient-il? ---- Pierre Fauconnier "C'est lorsqu'il y a un temps mort qu'il faut tuer le temps..." (remplacer NOSPAM par pfi pour me répondre. Merci)
--- Rancy JC wrote:
bonjour j'ai trouvé un module pour afficher la date de dernière modification d'un fichier exel, il fonctionne, mais le problème c'est qu'il ne s'actualise pas à l'ouverture du fichier mais seulement quand je tape ou copie la fonction dans une autre cellule
Function DateModificationFichier() As String DateModificationFichier > > ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function
Que faire pour l'actualiser à chaque ouverture ou à la suite d'un enregistrement merci @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
