C'est exactement ce que je veux faire sousou !
J'ai appliqué ta formule comme cela :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sh.Range("jour") = FormatDateTime(Date, 2)
Sh.Range("jour") = FormatDateTime(Time, 4)
ThisWorkbook.Save
Application.EnableEvents = True
End Sub
Sub coucou()
Application.EnableEvents = True
End Sub
Cependant quand j'essaye a écrire sur une autre feuille ce message d'erreur apparait.
@Modeste j'ai pas compris grand chose, mais je vais tenter de bidouiller !
Dois-je continuer a mettre lesmacro dans le workbook ?
Sub infos()
With ActiveWorkbook.BuiltinDocumentProperties
MsgBox .Item(3).Name & " Feuil2" & .Item(3).Value _
& Chr(10) & .Item(7).Name & "Feuil3" & .Item(7).Value _
& Chr(10) & .Item(11).Name & " : " & .Item(11).Value _
& Chr(10) & .Item(12).Name & " : " & .Item(12).Value
End With
End Sub
Et je dois remplir le nom des feuilles comme ceci ?
Merci de votre aide !
Merci !