'-------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) [a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:ss") End Sub '----------
-- Salutations JJ
"ple_ain" a écrit dans le message de news:
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word que l'on obtient par Insertion - Champs.
Merci bien pour votre aide.
Bonsoir,
A l'ouverture du classeur peut-être:
'--------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy
hh:ss")
End Sub
'----------
--
Salutations
JJ
"ple_ain" <ple_ain@yahoo.fr> a écrit dans le message de news:
eXxSD5jPHHA.1604@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction
la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word
que l'on obtient par Insertion - Champs.
'-------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) [a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:ss") End Sub '----------
-- Salutations JJ
"ple_ain" a écrit dans le message de news:
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word que l'on obtient par Insertion - Champs.
Merci bien pour votre aide.
ple_ain
Merci bien,
Effectivement la syntaxe ci-dessous fonctionne bien.
Comment faire pour que la date du dernier enregistrement s'affiche dès l'ouverture du classeur ?
Cordialement
"Jacky" a écrit dans le message de news:
Bonsoir,
A l'ouverture du classeur peut-être:
'-------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) [a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:ss") End Sub '----------
-- Salutations JJ
"ple_ain" a écrit dans le message de news:
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word que l'on obtient par Insertion - Champs.
Merci bien pour votre aide.
Merci bien,
Effectivement la syntaxe ci-dessous fonctionne bien.
Comment faire pour que la date du dernier enregistrement s'affiche dès
l'ouverture du classeur ?
Cordialement
"Jacky" <dupont@marcel.fr> a écrit dans le message de news:
OibBvZkPHHA.3316@TK2MSFTNGP05.phx.gbl...
Bonsoir,
A l'ouverture du classeur peut-être:
'--------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy
hh:ss")
End Sub
'----------
--
Salutations
JJ
"ple_ain" <ple_ain@yahoo.fr> a écrit dans le message de news:
eXxSD5jPHHA.1604@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction
la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word
que l'on obtient par Insertion - Champs.
Effectivement la syntaxe ci-dessous fonctionne bien.
Comment faire pour que la date du dernier enregistrement s'affiche dès l'ouverture du classeur ?
Cordialement
"Jacky" a écrit dans le message de news:
Bonsoir,
A l'ouverture du classeur peut-être:
'-------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) [a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:ss") End Sub '----------
-- Salutations JJ
"ple_ain" a écrit dans le message de news:
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word que l'on obtient par Insertion - Champs.
Merci bien pour votre aide.
jps
bonjour essaie avec cette proc dans le module ThisWorkbook de ton classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1").Select 'A1 étant la cellule où le texte s'inscrit, donc à adapter.
ActiveCell.Value = "Ce tableau a été mis à jour le " & Format(Date,
"dd/mm/yyyy")
End Sub
HTH
jps
"ple_ain" a écrit dans le message de news: %
Merci bien,
Effectivement la syntaxe ci-dessous fonctionne bien.
Comment faire pour que la date du dernier enregistrement s'affiche dès l'ouverture du classeur ?
Cordialement
"Jacky" a écrit dans le message de news:
Bonsoir,
A l'ouverture du classeur peut-être:
'-------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) [a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:ss") End Sub '----------
-- Salutations JJ
"ple_ain" a écrit dans le message de news:
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word que l'on obtient par Insertion - Champs.
Merci bien pour votre aide.
bonjour
essaie avec cette proc dans le module ThisWorkbook de ton classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1").Select 'A1 étant la cellule où le texte s'inscrit, donc à
adapter.
ActiveCell.Value = "Ce tableau a été mis à jour le " & Format(Date,
"dd/mm/yyyy")
End Sub
HTH
jps
"ple_ain" <ple_ain@yahoo.fr> a écrit dans le message de news:
%23gx5imkPHHA.4424@TK2MSFTNGP06.phx.gbl...
Merci bien,
Effectivement la syntaxe ci-dessous fonctionne bien.
Comment faire pour que la date du dernier enregistrement s'affiche dès
l'ouverture du classeur ?
Cordialement
"Jacky" <dupont@marcel.fr> a écrit dans le message de news:
OibBvZkPHHA.3316@TK2MSFTNGP05.phx.gbl...
Bonsoir,
A l'ouverture du classeur peut-être:
'--------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy
hh:ss")
End Sub
'----------
--
Salutations
JJ
"ple_ain" <ple_ain@yahoo.fr> a écrit dans le message de news:
eXxSD5jPHHA.1604@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction
la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word
que l'on obtient par Insertion - Champs.
bonjour essaie avec cette proc dans le module ThisWorkbook de ton classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1").Select 'A1 étant la cellule où le texte s'inscrit, donc à adapter.
ActiveCell.Value = "Ce tableau a été mis à jour le " & Format(Date,
"dd/mm/yyyy")
End Sub
HTH
jps
"ple_ain" a écrit dans le message de news: %
Merci bien,
Effectivement la syntaxe ci-dessous fonctionne bien.
Comment faire pour que la date du dernier enregistrement s'affiche dès l'ouverture du classeur ?
Cordialement
"Jacky" a écrit dans le message de news:
Bonsoir,
A l'ouverture du classeur peut-être:
'-------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) [a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:ss") End Sub '----------
-- Salutations JJ
"ple_ain" a écrit dans le message de news:
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word que l'on obtient par Insertion - Champs.
Merci bien pour votre aide.
JB
Bonsoir,
Function DateModifClasseur() Application.Volatile DateModifClasseur = FileDateTime(ThisWorkbook.Path) End Function
Dans le tableur: ÚteModifClasseur()
JB
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word que l'on obtient par Insertion - Champs.
Merci bien pour votre aide.
Bonsoir,
Function DateModifClasseur()
Application.Volatile
DateModifClasseur = FileDateTime(ThisWorkbook.Path)
End Function
Dans le tableur: =DateModifClasseur()
JB
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction
la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word
que l'on obtient par Insertion - Champs.
Function DateModifClasseur() Application.Volatile DateModifClasseur = FileDateTime(ThisWorkbook.Path) End Function
Dans le tableur: ÚteModifClasseur()
JB
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word que l'on obtient par Insertion - Champs.
Merci bien pour votre aide.
Jacky
Re..... Erreur de ma part ...... C'est bien sur dans le ThisWorkbook du classeur en question qu'il faudra placer cette macro Et non pas "HH:SS" mais "HH:MM" Avec mes excuses. '---------- Private Sub Workbook_Open() [a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:mm ") ' ou pour une feuille précise: 'Sheets(2).[a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:mm") MsgBox [a1] ' ****facultatif*** End Sub '------------ -- Salutations JJ
"ple_ain" a écrit dans le message de news: %
Merci bien,
Effectivement la syntaxe ci-dessous fonctionne bien.
Comment faire pour que la date du dernier enregistrement s'affiche dès l'ouverture du classeur ?
Cordialement
"Jacky" a écrit dans le message de news:
Bonsoir,
A l'ouverture du classeur peut-être:
'-------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) [a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:ss") End Sub '----------
-- Salutations JJ
"ple_ain" a écrit dans le message de news:
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word que l'on obtient par Insertion - Champs.
Merci bien pour votre aide.
Re.....
Erreur de ma part ......
C'est bien sur dans le ThisWorkbook du classeur en question qu'il faudra
placer cette macro
Et non pas "HH:SS" mais "HH:MM"
Avec mes excuses.
'----------
Private Sub Workbook_Open()
[a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:mm
")
' ou pour une feuille précise:
'Sheets(2).[a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12),
"dd/mm/yy hh:mm")
MsgBox [a1] ' ****facultatif***
End Sub
'------------
--
Salutations
JJ
"ple_ain" <ple_ain@yahoo.fr> a écrit dans le message de news:
%23gx5imkPHHA.4424@TK2MSFTNGP06.phx.gbl...
Merci bien,
Effectivement la syntaxe ci-dessous fonctionne bien.
Comment faire pour que la date du dernier enregistrement s'affiche dès
l'ouverture du classeur ?
Cordialement
"Jacky" <dupont@marcel.fr> a écrit dans le message de news:
OibBvZkPHHA.3316@TK2MSFTNGP05.phx.gbl...
Bonsoir,
A l'ouverture du classeur peut-être:
'--------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy
hh:ss")
End Sub
'----------
--
Salutations
JJ
"ple_ain" <ple_ain@yahoo.fr> a écrit dans le message de news:
eXxSD5jPHHA.1604@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction
la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word
que l'on obtient par Insertion - Champs.
Re..... Erreur de ma part ...... C'est bien sur dans le ThisWorkbook du classeur en question qu'il faudra placer cette macro Et non pas "HH:SS" mais "HH:MM" Avec mes excuses. '---------- Private Sub Workbook_Open() [a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:mm ") ' ou pour une feuille précise: 'Sheets(2).[a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:mm") MsgBox [a1] ' ****facultatif*** End Sub '------------ -- Salutations JJ
"ple_ain" a écrit dans le message de news: %
Merci bien,
Effectivement la syntaxe ci-dessous fonctionne bien.
Comment faire pour que la date du dernier enregistrement s'affiche dès l'ouverture du classeur ?
Cordialement
"Jacky" a écrit dans le message de news:
Bonsoir,
A l'ouverture du classeur peut-être:
'-------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) [a1] = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yy hh:ss") End Sub '----------
-- Salutations JJ
"ple_ain" a écrit dans le message de news:
Bonjour,
Je souhaiterai afficher dans une cellule et à l'aide d'une fonction la date du dernier enregistrement d'un classeur Excel.
En fait, je cherche l'équivalent de la fonction 'SaveDate' de Word que l'on obtient par Insertion - Champs.