Discussion :

[anasecu]

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 :

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

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.

[Al__22]

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

[anasecu]

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.

[Al__22]

Je t'ai donné toute les options envisageables

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

[anasecu]

Bonjour,

Je t'ai donné toute les options envisageables

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

Code :

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

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.

[Al__22]

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 :

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

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

[anasecu]

Bonsoir,

D'ailleurs essaye :

Code :

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

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.