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 : Sélectionner tout - Visualiser dans une fenêtre à part
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

Nom : erreur.PNG Affichages : 215 Taille : 10,4 Ko

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.