sebkil28
XLDnaute Nouveau
Tit problème avec une macro Date/heure [résolu]
Bonjour à tous !
Voilà, je me suis fait une macro pour que lorsque je fais une modification sur une des feuilles du classeur, une date + heure de mise à jour ce mette dans une cellule d'une feuille précise.
Pour la date c'est OK, mais pour l'heure, elle ne se met pas à jour et reste à 00:00
Voici mon code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' date MAJ
' Macro par duse1002
'
' controle le nom fichier
If ActiveWorkbook.Name <> "Derogation_V0.4.2.xls" Then
Exit Sub
End If
Sheets("Projet").Unprotect ""
'Désactive l'évènement pour évité une boucle sans fin
Application.EnableEvents = False
Sheets("Projet").Range("A35").Value = "Updating : " & Format(Date, "dd/mm/yyyy hh:mm")
'Réactive l'évènement
Application.EnableEvents = True
Sheets("Projet").Protect "", True, True, True
End Sub
Merci d'avance pour votre aide.
Bonjour à tous !
Voilà, je me suis fait une macro pour que lorsque je fais une modification sur une des feuilles du classeur, une date + heure de mise à jour ce mette dans une cellule d'une feuille précise.
Pour la date c'est OK, mais pour l'heure, elle ne se met pas à jour et reste à 00:00
Voici mon code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' date MAJ
' Macro par duse1002
'
' controle le nom fichier
If ActiveWorkbook.Name <> "Derogation_V0.4.2.xls" Then
Exit Sub
End If
Sheets("Projet").Unprotect ""
'Désactive l'évènement pour évité une boucle sans fin
Application.EnableEvents = False
Sheets("Projet").Range("A35").Value = "Updating : " & Format(Date, "dd/mm/yyyy hh:mm")
'Réactive l'évènement
Application.EnableEvents = True
Sheets("Projet").Protect "", True, True, True
End Sub
Merci d'avance pour votre aide.
Dernière édition: