macro installer sur tous mes classeur ??

[jtitin]

bonjour à tous
je cherche à lancer une même macro dans chaque nouveau classeur créer.
j'ai essayé avec macro complémentaire en créant un fichier .XLA
je coche ma macro dans outils/macro complémentaire
elle est bien présente dans le vb.
cette macro est évènementielle donc placé dans le ThisWorkbook du .XLA

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Sheets("Feuil1").Select
Range("A1").Select
Range("A1").ClearComments
Range("A1").AddComment
Range("A1").Comment.Visible = True
Range("A1").Comment.Shape.TextFrame.AutoSize = True
Range("A1").Comment.Text Text:="Dernier Enregistrement le : " & Chr(10) & Now
ActiveCell.Comment.Visible = False
End Sub

mais aucune action dans le nouveau classeur créé aprés son enregistrement, la macro complémentaire n'est pas prise en compte.

comment faire en sorte pour qu'à chaque nouveau classeur cette macro lui soit appliqué.

merci

 

[ROGER2327]

Re : macro installer sur tous mes classeur ??

Bonjour jtitin

Je pense qu'il vaudrait mieux enregistrer votre classeur comme modèle (i.e. .xlt) dans le dossier des modèles de classeur.
Par ailleurs,

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
   With Sheets("Feuil1").Range("A1")
      .ClearComments
      .AddComment
      .Comment.Shape.TextFrame.AutoSize = True
      .Comment.Text Text:="Dernier Enregistrement le : " & Chr(10) & Now
   End With
End Sub

est suffisant.​

Bonne soirée.
ROGER2327