VBA - Mise à jour de liaisons

[mamax29]

Bonjour,

J'ai un rapport mis à jour mensuellement via une macro VBA
Le rapport du mois en cours a une liaison avec celui du mois précédent afin d'intégrer au rapport en cours certaines données pour des graphiques

Leur rêgle de nommage c'est:
Rapport_Sxx.xls où Sxx correspond au numéro de la semaine.

Pour en revenir à mon problème, la macro VBA fait ceci pour générer le nouveau rapport:

- On sélectionne le (futur) ancien rapport
- On l'ouvre
- On le sauvegarde sous un nouveau nom
- On le mets à jour avec les nouvelle donnée
- On modifie les liaisons et on les mets à jour

C'est là que cela ne fonctionne pas.
Voici le bout de code:

    Dim wbrapport as Excel.workbook 'Nouveau rapport'
    Dim wbodrapport as Excel.workbook 'Rapport précédent'
 
    ....
    Le programme de mise à jour
    ....
 
    Set wboldrapport = Workbooks.Open(oldrapport)
    wbrapport.Activate
    liaison = ActiveWorkbook.LinkSources
    ActiveWorkbook.ChangeLink liaison(1), oldrapport, xlExcelLinks
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
    wboldrapport.Close
    wbrapport.Save

Mais dès qu'on arrive à la ligne "ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources"

Excel me sort l'erreur suivante:
La methode 'UpdateLink' de l'objet '_Workbook' a échouée

Par contre les liens ont bien été mis à jour...