Date de modification

[esftel]

Bonjour,

Je souhaiterais afficher une date de modification dans une cellule.
Quelqu'un aurais une solution pour moi.
Attention, je souhaite afficher une date seulement et seulement si une modif a été faite sur le fichier excel.

Merci pour votre aide

 

[Artizar]

Re : Date de modification

bonjour,

j'utilise ce bout de code pour sauvegarder en mettant la date de sauvegarde du fichier en A1 lorsque je fais des modifs sur mon fichier.

    Range("A1") = "=TODAY()"
    Range("A1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
nomfichier = Sheets("Feuille1").Range("F2") 
    ChDir "F:\"
    ActiveWorkbook.SaveAs Filename:= _
        "F:\" & nomfichier, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

si cela peut t'être utile 😉

bonne journée,

 

[esftel]

Re : Date de modification

Bonjour,

Un grand merci pour ta réponse cependant j'ai l'impression que ca ne marche pas, j'ai modifié les éléments en rouge mais je ne suis pas sur d'avoir bien fait.
Désolé, mais je ne suis pas très fort en VBA.

ActiveWorkbook.SaveAs Filename:= _
"c:\" & Classeur1, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Merci encore et bonne journée.

A suivre....

 

[Staple1600]

Re : Date de modification

Bonjour


Peut-etre qu'en creusant du côté de builtinproperties

exemple: (ceci te donnera la date et l'heure du dernier enregistrement du fichier)

Sub testr()
Dim x
x = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
MsgBox Format(x, "dd/mm/yy") 'jour
MsgBox Format(x, "hh:mm:ss") 'heure
End Sub

Pour avoir la liste des propriétes disponibles

Sub pd()
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
    Cells(rw, 1).Value = p.Name
'chez moi cette ligne bug (XL2000)
    'Cells(rw, 2).Value = p.Value
    rw = rw + 1
Next
End Sub

 

[Artizar]

Re : Date de modification

bonjour le fil,
une petite correction si ton nom de fichier est fixe :

Sub Macro1()
' Macro1 Macro
'macro mettant la date du jour figée en A1
'et enregistrant le fichier dans 1 repertoire précis avec 1 nom donné
    Range("A1") = "=TODAY()"
    Range("A1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ChDir "C:\mon_repertoire\"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\mon_repertoire\fichier_test.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

have fun,

 

[esftel]

Re : Date de modification

Bonjour a tous,

Désolé pour ma réponse tardive et merci a tous, mais j'ai trouvé une solution qui marche pas mal :
"
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Cells(1, 1) = Date & " à " & Time
End Sub
"
Vous en penssez quoi !

Mon autre problème, je voudrais affiché cette date dans les entetes ou pied de page. vous connaissez le code !

Merci encore pour votre réponse.

 

[JCGL]

Re : Date de modification

Bonjour à tous,

A placer dans ThisWorksBook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
End With
End Sub

Ici en entête impression de la ligne 1

A+

 

[esftel]

Re : Date de modification

Salut a toi,

Merci pour ta réponse, mais ce qui m'intéresse s'est d'afficher une date de modif dans l'entete et pied de page d'un document.

Et toi tu me propose de répété à l'impression la 1ère ligne sur toutes les pages d'un doc excel, mais tu viens de me donner une idée, cool ! 🙂

Cela dit je pense que j'ai trouvé mon problème, a priori ca fonctionne. Quand penses tu ?
"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "date de modif : " & Date & " à " & Time
End Sub
"
Encore merci pour ta réponse.

 

[JCGL]

Re : Date de modification

Re,

Oui mais si sauvegarde sans modification, tu auras la date du jour...

En répétant la ligne, tu te sers de la macro

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Cells(1, 1) = Date & " à " & Time
End Sub

Et c'était bien ta question de départ...

A+

 

[esftel]

Re : Date de modification

Bonjour,

Oui en effet si sauvegarde la date se mets a jour,

J'ai donc ajouter ton code, et top de chez top, ca marche ! 😀 😉

Je t'avoues que le VBA c'est tous nouveau pour moi et la je m'apperçois que ca ouvre des portes.

a+