Erreur d'exécution '1004'

Version imprimable

10/03/2021, 17h29
Lardennais08

Erreur d'exécution '1004'

Bonjour,

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

Suite à je ne sais quel manipulation, l':

Citation:

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.
10/03/2021, 20h54
anasecu

Bonjour,

Citation:

Envoyé par Lardennais08

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.
10/03/2021, 21h10
Lardennais08

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

Citation:

Envoyé par anasecu

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.
10/03/2021, 21h23
anasecu

Citation:

Envoyé par Lardennais08

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.
10/03/2021, 21h27
Lardennais08

Citation:

Envoyé par anasecu

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

Besoin de changement :)

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:

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