Bonjour à tous
Merci Monique,Pierre,Denis pour vos réponses
ç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
@+
pour me répondre , supprimer la premiére lettre de mon adresse (r)
"Pierre Fauconnier" <pierre.fauconnier@NOSPAM.be> a écrit dans le message de
news: OFIdKc9mDHA.3316@TK2MSFTNGP11.phx.gbl...
> Bonjour
>
> Private Sub Workbook_Open()
> MaValeur=datemodificationfichier()
> End Sub
>
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
> Boolean)
> MaValeur=datemodificationfichier()
> 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)
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
Denis Michon
Bonjour Rancy,
Essaie ceci :
Dans le ThisWorkbook de ton classeur. '---------------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Save If ThisWorkbook.Saved = True Then With Worksheets("Feuil1") .Range("A1").Formula = DateModificationFichier() End With Cancel = True End If
End Sub '----------------------
Salutations!
"Rancy JC" a écrit dans le message de news:bnmk64$mfd$ Bonjour à tous Merci Monique,Pierre,Denis pour vos réponses ç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 @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
"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 Rancy,
Essaie ceci :
Dans le ThisWorkbook de ton classeur.
'----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Save
If ThisWorkbook.Saved = True Then
With Worksheets("Feuil1")
.Range("A1").Formula = DateModificationFichier()
End With
Cancel = True
End If
End Sub
'----------------------
Salutations!
"Rancy JC" <rjc.rancy@wanadoo.fr> a écrit dans le message de news:bnmk64$mfd$1@news-reader4.wanadoo.fr...
Bonjour à tous
Merci Monique,Pierre,Denis pour vos réponses
ç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
@+
pour me répondre , supprimer la premiére lettre de mon adresse (r)
"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)
Dans le ThisWorkbook de ton classeur. '---------------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Save If ThisWorkbook.Saved = True Then With Worksheets("Feuil1") .Range("A1").Formula = DateModificationFichier() End With Cancel = True End If
End Sub '----------------------
Salutations!
"Rancy JC" a écrit dans le message de news:bnmk64$mfd$ Bonjour à tous Merci Monique,Pierre,Denis pour vos réponses ç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 @+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
"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
Merci Denis cette fois ci ca marche impec dans les deux cas ouverture et enregistrement toute foi j'ai du supprimer la ligne 'ThisWorkbook.Save sinon je n'avais plus accés a la boite de dialogue enregistrer sous ... (f12)
pour ceux que ca intéresse voici le copier coller du code définitif encore merci et @+ pour me répondre , supprimer la première lettre de mon adresse (r)
Private Sub Workbook_Open() With Worksheets("CDE") .Range("C1").Formula = DateModificationFichier() End With End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' ThisWorkbook.Save If ThisWorkbook.Saved = True Then With Worksheets("CDE") .Range("C1").Formula = DateModificationFichier() End With Cancel = True End If
End Sub
"Denis Michon" a écrit dans le message de news: hLHnb.15719$
Bonjour Rancy,
Essaie ceci :
Dans le ThisWorkbook de ton classeur. '---------------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Save If ThisWorkbook.Saved = True Then With Worksheets("Feuil1") .Range("A1").Formula = DateModificationFichier() End With Cancel = True End If
End Sub '----------------------
Salutations!
"Rancy JC" a écrit dans le message de news:bnmk64$mfd$
Bonjour à tous Merci Monique,Pierre,Denis pour vos réponses ç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
@+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
"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)
Merci Denis
cette fois ci ca marche impec dans les deux cas ouverture et enregistrement
toute foi j'ai du supprimer la ligne 'ThisWorkbook.Save
sinon je n'avais plus accés a la boite de dialogue enregistrer sous ...
(f12)
pour ceux que ca intéresse voici le copier coller du code définitif
encore merci et @+
pour me répondre , supprimer la première lettre de mon adresse (r)
Private Sub Workbook_Open()
With Worksheets("CDE")
.Range("C1").Formula = DateModificationFichier()
End With
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
' ThisWorkbook.Save
If ThisWorkbook.Saved = True Then
With Worksheets("CDE")
.Range("C1").Formula = DateModificationFichier()
End With
Cancel = True
End If
End Sub
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de news:
hLHnb.15719$P42.15427@charlie.risq.qc.ca...
Bonjour Rancy,
Essaie ceci :
Dans le ThisWorkbook de ton classeur.
'----------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
ThisWorkbook.Save
If ThisWorkbook.Saved = True Then
With Worksheets("Feuil1")
.Range("A1").Formula = DateModificationFichier()
End With
Cancel = True
End If
End Sub
'----------------------
Salutations!
"Rancy JC" <rjc.rancy@wanadoo.fr> a écrit dans le message de
news:bnmk64$mfd$1@news-reader4.wanadoo.fr...
Bonjour à tous
Merci Monique,Pierre,Denis pour vos réponses
ç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
@+
pour me répondre , supprimer la premiére lettre de mon adresse (r)
"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)
Merci Denis cette fois ci ca marche impec dans les deux cas ouverture et enregistrement toute foi j'ai du supprimer la ligne 'ThisWorkbook.Save sinon je n'avais plus accés a la boite de dialogue enregistrer sous ... (f12)
pour ceux que ca intéresse voici le copier coller du code définitif encore merci et @+ pour me répondre , supprimer la première lettre de mon adresse (r)
Private Sub Workbook_Open() With Worksheets("CDE") .Range("C1").Formula = DateModificationFichier() End With End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' ThisWorkbook.Save If ThisWorkbook.Saved = True Then With Worksheets("CDE") .Range("C1").Formula = DateModificationFichier() End With Cancel = True End If
End Sub
"Denis Michon" a écrit dans le message de news: hLHnb.15719$
Bonjour Rancy,
Essaie ceci :
Dans le ThisWorkbook de ton classeur. '---------------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Save If ThisWorkbook.Saved = True Then With Worksheets("Feuil1") .Range("A1").Formula = DateModificationFichier() End With Cancel = True End If
End Sub '----------------------
Salutations!
"Rancy JC" a écrit dans le message de news:bnmk64$mfd$
Bonjour à tous Merci Monique,Pierre,Denis pour vos réponses ç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
@+ pour me répondre , supprimer la premiére lettre de mon adresse (r)
"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)
