Excel 2010 Message Liaisons ouverture fichier

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:

---

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

---

Bonjour,

Non testé, mais j'essaierai bien (début et fin de procédure)

Code:

---

1 2	Application.DisplayAlerts = False 'Début Application.DisplayAlerts = True 'Fin

---

Code:

---

1 2 3

Application.DisplayAlerts=False Workbooks.Open (Cel.Value) Application.DisplayAlerts=True

---

Bonjour vinc_bilb,
tu à gagné à la loterie?

Ahh, je ne sais pas .... même temps et sensiblement la même réponse... C'est pas beau le sens du support sur Developpez.com? :mrgreen:
Bonne journée

Merci à tout les deux !! Ca marche parfaitement.

J'ai encore à la toute fin de ma macro une fois réalisée, un message 1004 "introuvable" Workbooks.Open (Cel.Value), mais je ne pense pas que cela vienne des liaisons car elle exécute bien sur pour l'instant mes 30 fichiers.

Et bien ..... peut-être un pb de format sur

Code:

---

1 2 3

Workbooks.Open (Cel.Value) ' essayer: If Not(Isempty(Cel)) Then Workbooks.Open Cstr((Cel.Value)) 'Force un argument string

---

Merci :) mais c'est bizarre ca ne fonctionne pas, ça plante au niveau de la macro appelée

Je suis perdu .... un peu

Citation:

---

un message 1004 "introuvable" Workbooks.Open (Cel.Value)

---

Citation:

---

ça plante au niveau de la macro appelée

---

=> c'est quoi qui plante et où? Vous pourriez essayer celà (non testé)?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Test()   Dim Plage As Range, InpRng As Range Dim Cel As Range   On Error goto Err_Read   Set InpRng = ThisWorkbook.Worksheets("Feuil1").Range("A2:A150").SpecialCells(xlCellTypeConstants) Debug.print InpRng.Address, InpRng.Cells.Count     For Each Cel In InpRng   If Not(Isempty(Cel)) Then Workbooks.Open Cstr((Cel.Value)) Call Histo Else:Msgbox Cel.Address & " invalide" End If Next Cel   Err_Read:   If err.Number <> 0 Then Errmsg = "Error " & err.Number & ": " & vbCrLf & err.Description & vbCrlf & Cel.Address MsgBox Errmsg, vbCritical err.Clear   Exit Sub End If

---

C'est absolument parfait merci beaucoup !