Discussion :

[lieutnant-col]

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



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.

[anasecu]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lieutnant-col]

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.