Formule qui entre en conflit avec le module d'un autre document

Bonjour à tous, je sais qu'il y a ici de grands experts extrêmement réactif, c'est pour cela que j'ai de nouveau besoin de votre aide.
j'ai un document qui ouvre des liaisons vers d'autres documents en automatique via cette formule.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub traction() Workbooks.Open Filename:="R:\Production\Indicateurs\Accidents_&_PAI_2019.xlsm", Local:=True, ReadOnly:=True ActiveWindow.Close SaveChanges:=False ActiveWorkbook.RefreshAll Worksheets("TRACTION").Select Range("D66:F66").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Worksheets("TRACTION").Select   End Sub

---

le problème ne vient pas de la formule, elle fonctionne très bien avec les autres fichiers, le seul problème c'est qu'elle rentre en conflit avec un module présent dans le document Accident & PAI.
Voila se qui s'ouvre

Pièce jointe 517017

avez vous une idée (sans supprimer le module de ce document bien sur) pour résoudre mon problème?
Merci d'avance pour les temps que vous prendrez à me répondre.

Bonjour,

Citation:

---

Envoyé par lieutnant-col

avez vous une idée (sans supprimer le module de ce document bien sur) pour résoudre mon problème?

---

Ton classeur en erreur, a une macro événementielle qu'il convient d'inhiber dans ton cas, je te mets en gras les lignes à rajouter dans ton code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub traction() Application.EnableEvents = False Workbooks.Open Filename:="R:\Production\Indicateurs\Accidents_&_PAI_2019.xlsm", Local:=True, ReadOnly:=True ActiveWindow.Close SaveChanges:=False ActiveWorkbook.RefreshAll Worksheets("TRACTION").Select Range("D66:F66").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Worksheets("TRACTION").Select Application.EnableEvents = True End Sub

---

Merci beaucoup à vous tous, cela fonctionne à merveille.
Désolé pour le temps que j'ai mis a répondre mais je devais faire des testes pour en être sur.
Encore merci vous êtes au top.