Discussion :

[Lardennais08]

Bonjour,

Le problème intervient sur un tableau avec des liens dans d'autres fichiers.

Suite à je ne sais quel manipulation, l':

Erreur d'exécution '1004':
La méthode 'UpdateLink'd l'objet '_Workbook' a échoué.

J'ai contrôlé mes liens mais tout me semble correct.

Est ce que quelqu'un aurait une méthodologie de correction... Je ne vois vraiment d’où cela peut provenir.

En vous remerciant par avance.

[anasecu]

Bonjour,

Erreur d'exécution '1004': La méthode 'UpdateLink'd l'objet '_Workbook' a échoué.

Comme souvent avec cette erreur, il doit te manquer une identification des objets utilisés, onglet imprécis ou classeur insuffisamment identifié et selon ta position du moment cela fonctionne ou pas.

[Lardennais08]

Il n'y a pas de solution de dépannage autre que de chercher manuellement?

Bonjour,



Comme souvent avec cette erreur, il doit te manquer une identification des objets utilisés, onglet imprécis ou classeur insuffisamment identifié et selon ta position du moment cela fonctionne ou pas.

[anasecu]

Il n'y a pas de solution de dépannage autre que de chercher manuellement?

Comme VBA n'a pas réussi à trouver l'objet concerné par ton code, il faudrait une boule de cristal très efficace pour te dire ce qui est incorrect.

La méthode la plus simple est de dérouler le code en pas à pas et lorsque tu as l'erreur, tu visualises le contenu des variables.

[Lardennais08]

Comme VBA n'a pas réussi à trouver l'objet concerné par ton code, il faudrait une boule de cristal très efficace pour te dire ce qui est incorrect.

La méthode la plus simple est de dérouler le code en pas à pas et lorsque tu as l'erreur, tu visualises le contenu des variables.

Galère en perspective... 😔😔

[Lardennais08]

Re Bonjour,

Voici mon code et je n'arrive pas à trouver le pourquoi du comment le non-fonctionnement.

Si quelqu'un aurait une solution palliative. Je suis même ouvert à changer complètement 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
14
15
16
17
18
19
20
21
22
23
24
25
Sub MaJ_Global()
'
' Mise à jour des données externes des liens.
'
    ActiveWorkbook.UpdateLink Name:= _
        "L:\XXXX\XXXX\XXX\XXXX\XX\XXXX\XXXXX.xlsm" _
        , Type:=xlExcelLinks
    ActiveWorkbook.UpdateLink Name:= _
        "L:\XXXX\XXXX\XXX\XXXX\XX\XXXX\XXXXX.xlsm" _" _
        , Type:=xlExcelLinks
    ActiveWorkbook.UpdateLink Name:= _
        "L:\XXXX\XXXX\XXX\XXXX\XX\XXXX\XXXXX.xlsm" _" _
        , Type:=xlExcelLinks
    ActiveWorkbook.UpdateLink Name:= _
        "L:\XXXX\XXXX\XXX\XXXX\XX\XXXX\XXXXX.xlsm" _" _
        , Type:=xlExcelLinks
    ActiveWorkbook.UpdateLink Name:= _
        "L:\XXXX\XXXX\XXX\XXXX\XX\XXXX\XXXXX.xlsm" _" _
        , Type:=xlExcelLinks
    ActiveWorkbook.UpdateLink Name:= _
        "L:\XXXX\XXXX\XXX\XXXX\XX\XXXX\XXXXX.xlsm" _" _
        , Type:=xlExcelLinks
    MsgBox "    Bonjour, " & Chr(10) & "    Le tableau de bord a été mis à jour." & Chr(10) & "    Cordialement.", vbInformation + vbOKOnly, "Mise à jour...."
 
End Sub