Discussion :

[gilles171]

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

[vinc_bilb]

Bonjour,

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

Code :

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

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

[Invité]

Code :

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

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

Bonjour vinc_bilb,
tu à gagné à la loterie?

[vinc_bilb]

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?
Bonne journée

[gilles171]

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.

[vinc_bilb]

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

Code :

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

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

[gilles171]

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

[vinc_bilb]

Je suis perdu .... un peu

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

ça plante au niveau de la macro appelée

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

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
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

[gilles171]

C'est absolument parfait merci beaucoup !