Problème sur liaisons : est-ce lié au multi-thread ?

Bonjour,

J'ai un classeur qui me sert à faire des recherches et des statistiques à partir d'une base sur un autre classeur excel.
Pour cela, je fonctionne avec les 2 classeurs ouverts et à l'ouverture de mon classeur, je vérifies que la base est ouverte, sinon je l'ouvres, comme vous pouvez le voir dans le code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Workbook_Open() On Error Resume Next Workbooks("Base.xlsm").Activate If Err.Number <> 0 Then Err.Clear Application.EnableEvents = False Workbooks.Open ("D:\fichiers\Base.xlsm") Application.EnableEvents = True End If On Error GoTo 0 ThisWorkbook.Activate ThisWorkbook.UpdateLinks = xlUpdateLinksAlways End Sub

---

Tout ce passait bien jusque là mais le transfert des fonctionnalités sur un nouveau PC quad core plus rapide, fait que maintenant j'ai un message, si la macro ouvre la base, sur l'impossibilité de mettre à jour les liaisons qui concernent les statistiques effectuées sur la base.
En faisant "Continuer" sur le message, l'application fonctionne correctement, mais y-a-t-il un moyen de supprimer ce message ?
Merci d'avance à ceux qui connaissent la solution.

Une petite recherche sur le net t'aurais permis de trouver ceci :
https://support.microsoft.com/fr-fr/kb/826921

Sur le forum dans la FAQ :
http://excel.developpez.com/faq/?pag...#AskUpdateLink

Voir même en cherchant dans l'aide VBA

Bonjour et merci pour ta réponse,

J'ai dû mal m'exprimer car je ne cherche pas à empêcher la mise à jour des liens, comme tes pages le préconisent, car j'en ai besoin pour mes statistiques.

Je t'ai donné toute les options envisageables

Citation:

---

Envoyé par Al__22

Sur le forum dans la FAQ :
http://excel.developpez.com/faq/?pag...#AskUpdateLink

---

Pièce jointe 226268

Bonjour,

Citation:

---

Envoyé par Al__22

Je t'ai donné toute les options envisageables

---

Merci d'insister, mais tu n'as pas lu entièrement ma demande.

Code:

---

ThisWorkbook.UpdateLinks = xlUpdateLinksAlways

---

Dans mon code je demande la mise à jour des liaisons et cela fonctionne parfaitement,
sauf avec une machine plus puissante qui n'ouvre pas la boîte de dialogue,
mais signale une erreur sur les mises à jour qui d'ailleurs n'existe pas si l'on clique sur "Continuer".

Sur mon ancien PC je n'ai aucune boite de dialogue et tout continue de fonctionner parfaitement,
ce n'est donc pas un problème d'options mais probablement lié au multi-threads du nouveau processeur.
Là je n'ai rien trouvé sur ce sujet malgré mes recherches.

Si j'ai lu ta demande mais n'ayant pas l'erreur sous les yeux je peux pas deviner de quoi tu me parle grâce au saint esprit. Donc si ton erreur continue malgré ce que je t'ai donné (j'espère au moins que tu as essayé) :
Peux-tu mettre une image de ton erreur exacte merci

D'ailleurs essaye :

Code:

---

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

---

Bonsoir,

Citation:

---

Envoyé par Al__22

D'ailleurs essaye :

Code:

---

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

---

---

Je ne vois pas ce que tu veux tester car les liaisons fonctionnent parfaitement avec le code que j'ai listé, mais l'instruction plante avec erreur 1004.

Bonjour
Rien à voir avec un multitrhreading

Commence déjà ainsi (je ne me fie personnellement pas à VBA pour décider qui est thisworkbook) , d'une part, et ai d'autre part l'habititude de gérer autrement les erreurs :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim wb1 As Workbook, wb2 As Workbook Set wb1 = ThisWorkbook On Error Resume Next Set wb2 = Workbooks("Base.xlsm") If Err = 9 Then ' --->> si n'est pas dans la collection workbooks Set wb2 = Workbooks.Open("D:\fichiers\Base.xlsm") End If If wb2 Is Nothing Then MsgBox Err.Description: Exit Sub ' --- continue a être absent ? je veux savoir pourquoi et quitte On Error GoTo 0 wb1.Activate ' --- je suis ainsi certain de revenir au premier

---

Tu me trouveras peut-être trop précautionneux, mais je suis ainsi fait.

Edit : et si cela ne suffit pas, alors que wb2 existe bien, c'est que son chargement est peut-être long et qu'il met du temps à figurer dans la collection workbooks. J'ajouterais alors un Doevents pour laisser "respirer" (avant le activate et la suite de ton code).

Bonjour unparia,

Citation:

---

Envoyé par unparia

Tu me trouveras peut-être trop précautionneux, mais je suis ainsi fait.

---

Pas de souci pour cela il vaut toujours mieux être explicite !
J'ai essayé en rajoutant cette ligne pour mettre à jour les liaisons car le paramètre général n'est pas positionné.

Code:

---

wb1.UpdateLinks = xlUpdateLinksAlways

---

et le message "nous ne parvenons pas à mettre à jour des liaisons de votre classeur" et toujours présent,
alors qu'elles sont pourtant effectives.

Citation:

---

Envoyé par unparia

c'est que son chargement est peut-être long et qu'il met du temps à figurer dans la collection workbooks. J'ajouterais alors un Doevents pour laisser "respirer" .

---

Le problème est au contraire que tout est trop rapide et j'avais effectivement essayé DoEvents mais sans résultat.
Sur un PC plus "lent" a priori, cela fonctionne sans souci, ta version comme la mienne.

Merci en tout cas de te pencher sur mon problème.

Je ne vois toujours pas d'explication multithreading
Que se passe-t-il (juste pour voir), avec ce seul code, et sans l'autre classeur encore ouvert, ni aucun autre classeur ouvert (avec ton seul classeur de départ, donc) :

Code:

---

1 2 3 4

Dim wb1 As Workbook Set wb1 = ThisWorkbook MsgBox wb1.UpdateLinks wb1.UpdateLinks = xlUpdateLinksAlways

---

?

Bonjour,

Citation:

---

Envoyé par unparia

Que se passe-t-il (juste pour voir)

---

Il ne se passe rien à part le message à 3

Voilà donc un premier test:
Un second, maintenant :
- tu t'assures de ce qu'aucun autre classeur n'est ouvert et tu lances maintenant le code que j'ai montré plus haut
que se passe-t-il ?

Bonsoir unparia

Citation:

---

Envoyé par unparia

tu lances maintenant le code que j'ai montré plus haut que se passe-t-il ?

---

Avec ce test, j'ai le même résultat qu'avec mon code.

Citation:

---

Envoyé par unparia

Rien à voir avec un multitrhreading

---

Cependant, tu m'interpelles avec ta phrase et tu as sans doute raison car l'autre micro même moins puissant est multi-thread.

J'ai donc vérifié plus en détail et je me suis aperçu que mon classeur stat prenait certes la majorité des informations sur la base ouverte,
mais aussi sur un autre classeur situé sur un serveur.
La plus grande rapidité du PC, ne serait-elle pas gênée par la latence d'accès au serveur ?

En tout cas merci de ton implication pour résoudre ce petit souci.

Bonjour,

VBA n'est pas multi-thread, et je ne pense pas que ça ait évolué avec les dernières versions.
Mais ça ne change rien à ta piste (au contraire), un core récent plus rapide déphase peut-être les opérations.
eric

troisième test :
tu exécutes la ligne:

Code:

---

activeworkbook.UpdateLinks = xlUpdateLinksAlways

---

comme première instruction dans le workbook_open et la supprimes là où elle était
Que se passe-t-il ainsi ?

Bonjour à tous,

Citation:

---

Envoyé par eriiic

VBA n'est pas multi-thread, et je ne pense pas que ça ait évolué avec les dernières versions.

---

Mais les mises à jour de liens sont faites par excel.

Citation:

---

Envoyé par unparia

troisième test : ...Que se passe-t-il ainsi ?

---

Cela n'empêche pas le message d'erreur intempestif car les mises à jour se font tout de même.

Bonjour.

Essaie ceci :

Code:

---

1 2 3 4

On Error Resume Next ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources ActiveWorkbook.RefreshAll On Error GoTo 0

---

Bonsoir à tous,

Citation:

---

Envoyé par Docmarti

Essaie ceci :

---

Merci de la suggestion mais cela a déjà été proposé au message 6 et cela donne erreur 1004 (message 7)

Je veux dire de mettre

Code:

---

On Error Resume Next

---

avant ThisWorkbook.UpdateLink.


On Error Resume Next supprime la plupart des messages d'erreurs.

Bonsoir,

Citation:

---

Envoyé par Docmarti

On Error Resume Next supprime la plupart des messages d'erreurs.

---

Tout à fait d'accord mais comme le code ne s'exécute pas (erreur 1004), quel est l'intérêt ?