Bonjour=20
je recherche un moyen pour afficher sur une feuille excel=20
la date de derni=E8re modification.
J'ai bien deux solujtions VBA mais si j'enregistre le=20
fichier avec excel 97 =E7a ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") =3D Format
(ThisWorkbook.BuiltinDocumentProperties("Last Save=20
Time"), "DD/MM/YYYY HH:MM ")
ou
Dim aw As Workbook
Set aw =3D ActiveWorkbook
Worksheets("Feuil1").Range("b1") =3D aw.Saved
si j'enregistre sous XP et que j'execute la macro sous=20
97 : =E7a marche c'est le contraire qui ne marche pas comme=20
si la propri=E9t=E9 dernier enregistrement n'existait pas ...
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
papou
Bonjour Dans ces conditions essaie avec une fonction perso utilisant FSO : Function InfosDuFichier() Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ThisWorkbook.FullName) InfosDuFichier = "Dernière modification le: " & f.DateLastModified Set fso = Nothing End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement Pascal
"Isabelle L" a écrit dans le message de news:67e601c47564$a5a48ae0$ Bonjour je recherche un moyen pour afficher sur une feuille excel la date de dernière modification. J'ai bien deux solujtions VBA mais si j'enregistre le fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format (ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YYYY HH:MM ")
ou Dim aw As Workbook Set aw = ActiveWorkbook Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous 97 : ça marche c'est le contraire qui ne marche pas comme si la propriété dernier enregistrement n'existait pas ...
Isabelle
Bonjour
Dans ces conditions essaie avec une fonction perso utilisant FSO :
Function InfosDuFichier()
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(ThisWorkbook.FullName)
InfosDuFichier = "Dernière modification le: " & f.DateLastModified
Set fso = Nothing
End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement
Pascal
"Isabelle L" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:67e601c47564$a5a48ae0$a501280a@phx.gbl...
Bonjour
je recherche un moyen pour afficher sur une feuille excel
la date de dernière modification.
J'ai bien deux solujtions VBA mais si j'enregistre le
fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format
(ThisWorkbook.BuiltinDocumentProperties("Last Save
Time"), "DD/MM/YYYY HH:MM ")
ou
Dim aw As Workbook
Set aw = ActiveWorkbook
Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous
97 : ça marche c'est le contraire qui ne marche pas comme
si la propriété dernier enregistrement n'existait pas ...
Bonjour Dans ces conditions essaie avec une fonction perso utilisant FSO : Function InfosDuFichier() Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ThisWorkbook.FullName) InfosDuFichier = "Dernière modification le: " & f.DateLastModified Set fso = Nothing End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement Pascal
"Isabelle L" a écrit dans le message de news:67e601c47564$a5a48ae0$ Bonjour je recherche un moyen pour afficher sur une feuille excel la date de dernière modification. J'ai bien deux solujtions VBA mais si j'enregistre le fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format (ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YYYY HH:MM ")
ou Dim aw As Workbook Set aw = ActiveWorkbook Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous 97 : ça marche c'est le contraire qui ne marche pas comme si la propriété dernier enregistrement n'existait pas ...
Isabelle
Merci ça marche très bien... par contre je dois retourner dans la cellule pour mettre à jour mystère ....
Isabelle L.
-----Message d'origine----- Bonjour Dans ces conditions essaie avec une fonction perso utilisant FSO :
Function InfosDuFichier() Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ThisWorkbook.FullName) InfosDuFichier = "Dernière modification le: " & f.DateLastModified
Set fso = Nothing End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement Pascal
"Isabelle L" a écrit dans le message
de news:67e601c47564$a5a48ae0$ Bonjour je recherche un moyen pour afficher sur une feuille excel la date de dernière modification. J'ai bien deux solujtions VBA mais si j'enregistre le fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format (ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YYYY HH:MM ")
ou Dim aw As Workbook Set aw = ActiveWorkbook Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous 97 : ça marche c'est le contraire qui ne marche pas comme si la propriété dernier enregistrement n'existait pas ...
Isabelle
.
Merci ça marche très bien...
par contre je dois retourner dans la cellule pour mettre à
jour mystère ....
Isabelle L.
-----Message d'origine-----
Bonjour
Dans ces conditions essaie avec une fonction perso
utilisant FSO :
Function InfosDuFichier()
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(ThisWorkbook.FullName)
InfosDuFichier = "Dernière modification le: " &
f.DateLastModified
Set fso = Nothing
End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement
Pascal
"Isabelle L" <anonymous@discussions.microsoft.com> a
écrit dans le message
de news:67e601c47564$a5a48ae0$a501280a@phx.gbl...
Bonjour
je recherche un moyen pour afficher sur une feuille excel
la date de dernière modification.
J'ai bien deux solujtions VBA mais si j'enregistre le
fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format
(ThisWorkbook.BuiltinDocumentProperties("Last Save
Time"), "DD/MM/YYYY HH:MM ")
ou
Dim aw As Workbook
Set aw = ActiveWorkbook
Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous
97 : ça marche c'est le contraire qui ne marche pas comme
si la propriété dernier enregistrement n'existait pas ...
Merci ça marche très bien... par contre je dois retourner dans la cellule pour mettre à jour mystère ....
Isabelle L.
-----Message d'origine----- Bonjour Dans ces conditions essaie avec une fonction perso utilisant FSO :
Function InfosDuFichier() Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ThisWorkbook.FullName) InfosDuFichier = "Dernière modification le: " & f.DateLastModified
Set fso = Nothing End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement Pascal
"Isabelle L" a écrit dans le message
de news:67e601c47564$a5a48ae0$ Bonjour je recherche un moyen pour afficher sur une feuille excel la date de dernière modification. J'ai bien deux solujtions VBA mais si j'enregistre le fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format (ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YYYY HH:MM ")
ou Dim aw As Workbook Set aw = ActiveWorkbook Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous 97 : ça marche c'est le contraire qui ne marche pas comme si la propriété dernier enregistrement n'existait pas ...
Isabelle
.
papou
Si tu enregsitres puis fermes puis ré-ouvres le classeur, l'info sera mise à jour mais sinon : Mets Application.Volatile au débit de la fonction : Function InfosDuFichier() Application.Volatile
Ceci aura pour affet de recalculer la fonction lorsqu'un recalcul aura été généré dans ton classeur (résultat d'une formule qui change par exemple)
Cordialement Pascal
a écrit dans le message de news:65a701c47569$fb46e600$ Merci ça marche très bien... par contre je dois retourner dans la cellule pour mettre à jour mystère ....
Isabelle L.
-----Message d'origine----- Bonjour Dans ces conditions essaie avec une fonction perso utilisant FSO :
Function InfosDuFichier() Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ThisWorkbook.FullName) InfosDuFichier = "Dernière modification le: " & f.DateLastModified
Set fso = Nothing End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement Pascal
"Isabelle L" a écrit dans le message
de news:67e601c47564$a5a48ae0$ Bonjour je recherche un moyen pour afficher sur une feuille excel la date de dernière modification. J'ai bien deux solujtions VBA mais si j'enregistre le fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format (ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YYYY HH:MM ")
ou Dim aw As Workbook Set aw = ActiveWorkbook Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous 97 : ça marche c'est le contraire qui ne marche pas comme si la propriété dernier enregistrement n'existait pas ...
Isabelle
.
Si tu enregsitres puis fermes puis ré-ouvres le classeur, l'info sera mise à
jour mais sinon :
Mets Application.Volatile au débit de la fonction :
Function InfosDuFichier()
Application.Volatile
Ceci aura pour affet de recalculer la fonction lorsqu'un recalcul aura été
généré dans ton classeur (résultat d'une formule qui change par exemple)
Cordialement
Pascal
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:65a701c47569$fb46e600$a601280a@phx.gbl...
Merci ça marche très bien...
par contre je dois retourner dans la cellule pour mettre à
jour mystère ....
Isabelle L.
-----Message d'origine-----
Bonjour
Dans ces conditions essaie avec une fonction perso
utilisant FSO :
Function InfosDuFichier()
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(ThisWorkbook.FullName)
InfosDuFichier = "Dernière modification le: " &
f.DateLastModified
Set fso = Nothing
End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement
Pascal
"Isabelle L" <anonymous@discussions.microsoft.com> a
écrit dans le message
de news:67e601c47564$a5a48ae0$a501280a@phx.gbl...
Bonjour
je recherche un moyen pour afficher sur une feuille excel
la date de dernière modification.
J'ai bien deux solujtions VBA mais si j'enregistre le
fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format
(ThisWorkbook.BuiltinDocumentProperties("Last Save
Time"), "DD/MM/YYYY HH:MM ")
ou
Dim aw As Workbook
Set aw = ActiveWorkbook
Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous
97 : ça marche c'est le contraire qui ne marche pas comme
si la propriété dernier enregistrement n'existait pas ...
Si tu enregsitres puis fermes puis ré-ouvres le classeur, l'info sera mise à jour mais sinon : Mets Application.Volatile au débit de la fonction : Function InfosDuFichier() Application.Volatile
Ceci aura pour affet de recalculer la fonction lorsqu'un recalcul aura été généré dans ton classeur (résultat d'une formule qui change par exemple)
Cordialement Pascal
a écrit dans le message de news:65a701c47569$fb46e600$ Merci ça marche très bien... par contre je dois retourner dans la cellule pour mettre à jour mystère ....
Isabelle L.
-----Message d'origine----- Bonjour Dans ces conditions essaie avec une fonction perso utilisant FSO :
Function InfosDuFichier() Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ThisWorkbook.FullName) InfosDuFichier = "Dernière modification le: " & f.DateLastModified
Set fso = Nothing End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement Pascal
"Isabelle L" a écrit dans le message
de news:67e601c47564$a5a48ae0$ Bonjour je recherche un moyen pour afficher sur une feuille excel la date de dernière modification. J'ai bien deux solujtions VBA mais si j'enregistre le fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format (ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YYYY HH:MM ")
ou Dim aw As Workbook Set aw = ActiveWorkbook Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous 97 : ça marche c'est le contraire qui ne marche pas comme si la propriété dernier enregistrement n'existait pas ...
Isabelle
.
merci
-----Message d'origine----- Si tu enregsitres puis fermes puis ré-ouvres le classeur, l'info sera mise à
jour mais sinon : Mets Application.Volatile au débit de la fonction : Function InfosDuFichier() Application.Volatile
Ceci aura pour affet de recalculer la fonction lorsqu'un recalcul aura été
généré dans ton classeur (résultat d'une formule qui change par exemple)
Cordialement Pascal
a écrit dans le message de
news:65a701c47569$fb46e600$ Merci ça marche très bien... par contre je dois retourner dans la cellule pour mettre à jour mystère ....
Isabelle L.
-----Message d'origine----- Bonjour Dans ces conditions essaie avec une fonction perso utilisant FSO :
Function InfosDuFichier() Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ThisWorkbook.FullName) InfosDuFichier = "Dernière modification le: " & f.DateLastModified
Set fso = Nothing End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement Pascal
"Isabelle L" a écrit dans le message
de news:67e601c47564$a5a48ae0$ Bonjour je recherche un moyen pour afficher sur une feuille excel la date de dernière modification. J'ai bien deux solujtions VBA mais si j'enregistre le fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format (ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YYYY HH:MM ")
ou Dim aw As Workbook Set aw = ActiveWorkbook Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous 97 : ça marche c'est le contraire qui ne marche pas comme si la propriété dernier enregistrement n'existait pas ...
Isabelle
.
.
merci
-----Message d'origine-----
Si tu enregsitres puis fermes puis ré-ouvres le classeur,
l'info sera mise à
jour mais sinon :
Mets Application.Volatile au débit de la fonction :
Function InfosDuFichier()
Application.Volatile
Ceci aura pour affet de recalculer la fonction lorsqu'un
recalcul aura été
généré dans ton classeur (résultat d'une formule qui
change par exemple)
Cordialement
Pascal
<anonymous@discussions.microsoft.com> a écrit dans le
message de
news:65a701c47569$fb46e600$a601280a@phx.gbl...
Merci ça marche très bien...
par contre je dois retourner dans la cellule pour mettre à
jour mystère ....
Isabelle L.
-----Message d'origine-----
Bonjour
Dans ces conditions essaie avec une fonction perso
utilisant FSO :
Function InfosDuFichier()
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(ThisWorkbook.FullName)
InfosDuFichier = "Dernière modification le: " &
f.DateLastModified
Set fso = Nothing
End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement
Pascal
"Isabelle L" <anonymous@discussions.microsoft.com> a
écrit dans le message
de news:67e601c47564$a5a48ae0$a501280a@phx.gbl...
Bonjour
je recherche un moyen pour afficher sur une feuille excel
la date de dernière modification.
J'ai bien deux solujtions VBA mais si j'enregistre le
fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format
(ThisWorkbook.BuiltinDocumentProperties("Last Save
Time"), "DD/MM/YYYY HH:MM ")
ou
Dim aw As Workbook
Set aw = ActiveWorkbook
Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous
97 : ça marche c'est le contraire qui ne marche pas comme
si la propriété dernier enregistrement n'existait pas ...
-----Message d'origine----- Si tu enregsitres puis fermes puis ré-ouvres le classeur, l'info sera mise à
jour mais sinon : Mets Application.Volatile au débit de la fonction : Function InfosDuFichier() Application.Volatile
Ceci aura pour affet de recalculer la fonction lorsqu'un recalcul aura été
généré dans ton classeur (résultat d'une formule qui change par exemple)
Cordialement Pascal
a écrit dans le message de
news:65a701c47569$fb46e600$ Merci ça marche très bien... par contre je dois retourner dans la cellule pour mettre à jour mystère ....
Isabelle L.
-----Message d'origine----- Bonjour Dans ces conditions essaie avec une fonction perso utilisant FSO :
Function InfosDuFichier() Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(ThisWorkbook.FullName) InfosDuFichier = "Dernière modification le: " & f.DateLastModified
Set fso = Nothing End Function
Puis dans une cellule tu tapes =InfosDuFichier
Cordialement Pascal
"Isabelle L" a écrit dans le message
de news:67e601c47564$a5a48ae0$ Bonjour je recherche un moyen pour afficher sur une feuille excel la date de dernière modification. J'ai bien deux solujtions VBA mais si j'enregistre le fichier avec excel 97 ça ne fonctionne pas.
mes solutions:
Worksheets("Feuil1").Range("b1") = Format (ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YYYY HH:MM ")
ou Dim aw As Workbook Set aw = ActiveWorkbook Worksheets("Feuil1").Range("b1") = aw.Saved
si j'enregistre sous XP et que j'execute la macro sous 97 : ça marche c'est le contraire qui ne marche pas comme si la propriété dernier enregistrement n'existait pas ...
