date de màj

[MASSJIPE]

Bonjour à tous
Voilas est il possible de mettre une date de mise à jour dans en tête et pied de page, en tête partie gauche uniquement à l'enregistrement du document et non pas automatiquement
Merci

 

[tototiti2008]

Re : date de màj

Bonjour MASSJIPE,

à mettre dans le code de Thisworkbook, nom de la feuille (Feuil1) à adapter :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With Worksheets("[B][COLOR=red]Feuil1[/COLOR][/B]").PageSetup
        .LeftHeader = Format(Now, "DD/MM/YYYY HH:MM:SS")
    End With
End Sub

 

[MASSJIPE]

Re : date de màj

Bonsoir
J'ai fait l'essais ca fonctionne mais par contre quant le rajoute mise à jour le
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets("Feuil1").PageSetup
.LeftHeader = Format(Now, " Mise à jour le DD/MM/YYYY HH:MM:SS")
End With
End Sub
j'ai ca à la place
10i27e à jour le 13/10/2009 21:10:27
Merci

 

[tototiti2008]

Re : date de màj

Bonjour,

à tester :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets("Feuil1").PageSetup
.LeftHeader = "Mise à jour le " & Format(Now, "DD/MM/YYYY HH:MM:SS")
End With
End Sub

 

[MASSJIPE]

Re : date de màj

Bonjour
C'est Ok ça fonctionne à merveille.
Merci et bonne journée