Bonjour à tous,

Je travaille actuellement sur un fichier excel et je voudrais pouvoir changer des liaisons entre fichiers automatiquement.

J'ai pour celà créer des boutons dans lesquels j'ai mis les codes suivants :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Bouton1_Click()
ActiveWorkbook.ChangeLink Name:="Fichier1.xls", NewName:= _
        "Fichier1.xls", Type:=xlExcelLinks
End Sub
 
Private Sub Bouton2_Click()
ActiveWorkbook.ChangeLink Name:="Fichier1.xls", NewName:= _
        "Fichier2.xls", Type:=xlExcelLinks
End Sub
Le problème est bien sûr que si l'ancien nom n'est pas celui qui est précisé dans mon code (exemple: l'ancien nom est le fichier2 et je veux passer au fichier1), et bien cela ne marche pas.
Je voudrais pouvoir dire: Quelque soit la liaison qui existe (ou alors pouvoir tester), tu la changes et tu me met celle là.

Quelqu'un aurait une idée ?

Merci d'avance