OVH Cloud OVH Cloud

Date et heure de modification

6 réponses
Avatar
fbr
Bonjour,

Dans un en tête comment peut on faire apparaitre la date à laquelle se
document à été crée ou modifié. Ainsi que l'heure de ces modifications? merci
fbr

6 réponses

Avatar
Jacky
Bonjour,

Fichier/mise en page==>onglet "En-tête/pied de page"==>bouton "En-tête
personnalisé"
Il y a tout ce qu"il faut.

Salutations
JJ

"fbr" a écrit dans le message de news:

Bonjour,

Dans un en tête comment peut on faire apparaitre la date à laquelle se
document à été crée ou modifié. Ainsi que l'heure de ces modifications?
merci
fbr


Avatar
fbr
BONJOUR?

Désolé mais tout ce que je vois c'est la possibilité de mettre la date
d'impression

"Jacky" wrote:

Bonjour,

Fichier/mise en page==>onglet "En-tête/pied de page"==>bouton "En-tête
personnalisé"
Il y a tout ce qu"il faut.

Salutations
JJ

"fbr" a écrit dans le message de news:

Bonjour,

Dans un en tête comment peut on faire apparaitre la date à laquelle se
document à été crée ou modifié. Ainsi que l'heure de ces modifications?
merci
fbr







Avatar
Jacky
Re..
As-tu cliqué sur le bouton "En-tête personnalisé" ??
Tu dois avoir un série icônes, dont une pour la date et une pour l'heure.
Si cette date ne convient pas, il y a ceci avec la date et l'heure de la
dernière modif.
EnVba :
'------
Sub jj()
Dim fso, awK
Set fso = CreateObject("Scripting.FileSystemObject")
Set awK = fso.GetFile(ThisWorkbook.FullName)
DerD = awK.DateLastModified
With ActiveSheet.PageSetup
.LeftHeader = Format(DerD, "dddd dd mmmm yy hh:mm")
End With
Set fso = Nothing
Set awK = Nothing
End Sub
'---------
Le format, au choix.

Salutations
JJ


"fbr" a écrit dans le message de news:

BONJOUR?

Désolé mais tout ce que je vois c'est la possibilité de mettre la date
d'impression

"Jacky" wrote:

Bonjour,

Fichier/mise en page==>onglet "En-tête/pied de page"==>bouton "En-tête
personnalisé"
Il y a tout ce qu"il faut.

Salutations
JJ

"fbr" a écrit dans le message de news:

Bonjour,

Dans un en tête comment peut on faire apparaitre la date à laquelle se
document à été crée ou modifié. Ainsi que l'heure de ces modifications?
merci
fbr









Avatar
PpX
bj
1 Menu affichage,
2 En-tête/pied de page
3 - en-tête personnalisé (haut de la feuille) ou pied de page personnalisé
(bas de feuille)
4 - mettre le curseur dans l'une des trois parties proposées (gauche, centre
ou droit)
5 -cliquez sur le bouton date et sur le bouton heure

Bon courage
"fbr" a écrit dans le message de
news:
Bonjour,

Dans un en tête comment peut on faire apparaitre la date à laquelle se
document à été crée ou modifié. Ainsi que l'heure de ces modifications?
merci

fbr


Avatar
fbr
Merci c'est très gentil mais comment fais t'on pour faire du vba comme celui
ci et comment l'integrer ?

merci encore

fbr


Re..
As-tu cliqué sur le bouton "En-tête personnalisé" ??
Tu dois avoir un série icônes, dont une pour la date et une pour l'heure.
Si cette date ne convient pas, il y a ceci avec la date et l'heure de la
dernière modif.
EnVba :
'------
Sub jj()
Dim fso, awK
Set fso = CreateObject("Scripting.FileSystemObject")
Set awK = fso.GetFile(ThisWorkbook.FullName)
DerD = awK.DateLastModified
With ActiveSheet.PageSetup
.LeftHeader = Format(DerD, "dddd dd mmmm yy hh:mm")
End With
Set fso = Nothing
Set awK = Nothing
End Sub
'---------
Le format, au choix.

Salutations
JJ


"fbr" a écrit dans le message de news:

BONJOUR?

Désolé mais tout ce que je vois c'est la possibilité de mettre la date
d'impression

"Jacky" wrote:

Bonjour,

Fichier/mise en page==>onglet "En-tête/pied de page"==>bouton "En-tête
personnalisé"
Il y a tout ce qu"il faut.

Salutations
JJ

"fbr" a écrit dans le message de news:

Bonjour,

Dans un en tête comment peut on faire apparaitre la date à laquelle se
document à été crée ou modifié. Ainsi que l'heure de ces modifications?
merci
fbr














Avatar
Jacky
Re....
Merci c'est très gentil mais comment fais t'on pour faire du vba comme
celui ci



Pour faire du vba comme ceci, il n'y d'autres solutions que de l'apprendre,
pour débuter, regarder ici:
http://www.excelabo.net/xl/debuter.php

et comment l'integrer ?



Pour rendre actif ce code il doit être coller dans "ThisWorbook" du classeur
en question.
Pour ce faire:
Alt+f11
Dans la fenêtre VBAProjet double clic sur "ThisWorkbook"
Dans la grande fenêtre de droite coller ce code:

'-------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim fso, awK
Set fso = CreateObject("Scripting.FileSystemObject")
Set awK = fso.GetFile(ThisWorkbook.FullName)
DerD = awK.DateLastModified
With ActiveSheet.PageSetup
.LeftHeader = Format(DerD, "dddd dd mmmm yy hh:mm")
End With
Set fso = Nothing
Set awK = Nothing
End Sub
'------------
A chaque demande d'impression, la date et l'heure sera imprimer en haut à
gauche de chaque feuille.

Bon courage
JJ

"fbr" a écrit dans le message de news:

Merci c'est très gentil mais comment fais t'on pour faire du vba comme
celui
ci et comment l'integrer ?

merci encore

fbr


Re..
As-tu cliqué sur le bouton "En-tête personnalisé" ??
Tu dois avoir un série icônes, dont une pour la date et une pour l'heure.
Si cette date ne convient pas, il y a ceci avec la date et l'heure de la
dernière modif.
EnVba :
'------
Sub jj()
Dim fso, awK
Set fso = CreateObject("Scripting.FileSystemObject")
Set awK = fso.GetFile(ThisWorkbook.FullName)
DerD = awK.DateLastModified
With ActiveSheet.PageSetup
.LeftHeader = Format(DerD, "dddd dd mmmm yy hh:mm")
End With
Set fso = Nothing
Set awK = Nothing
End Sub
'---------
Le format, au choix.

Salutations
JJ


"fbr" a écrit dans le message de news:

BONJOUR?

Désolé mais tout ce que je vois c'est la possibilité de mettre la date
d'impression

"Jacky" wrote:

Bonjour,

Fichier/mise en page==>onglet "En-tête/pied de page"==>bouton "En-tête
personnalisé"
Il y a tout ce qu"il faut.

Salutations
JJ

"fbr" a écrit dans le message de news:

Bonjour,

Dans un en tête comment peut on faire apparaitre la date à laquelle
se
document à été crée ou modifié. Ainsi que l'heure de ces
modifications?
merci
fbr