Bonjour,

J'ai une centaine de fichier à ouvrir par un code, cependant l'automatisation du process est biaisé par le message "voulez vous ouvrir les liaisons..." à l'ouverture de chaque fichier.
J'ai essayé différent moyens à différent endroits ( xlupdatelinkAlways ) ( , UpdateLinks:=3 ) cela ne semble pas marcher. Quelqu'un saurait quel code, et ou le placer dans ma macro pour supprimer ce message et mettre toujours à jour les liaisons ?

Merci beaucoup.

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
16
17
18
19
20
21
 
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("Feuil1")
 
 
 
 For Each Cel In Range("A2:A150")
 
Workbooks.Open (Cel.Value)
 
Call Histo
Next Cel
 
 End With
 
End Sub