VBA / liaison nouveaux fichier qui change

Le 17/02/2022 à 20:17
Bonjour,

Après avoir beaucoup chercher sur le forum et ailleurs sur internet je ne trouve pas de solution a mon problème
Je souhaite par VBA pouvoir changer la source des liaison. Jusque là rien de compliquer.

Mais là ou cela devient plus compliqué, c'est que le fichier source n'est pas tout le temps le même.
l'idée et donc qu'avec un code VBA on puisse ouvrir la fenêtre modifier les liaisons et qu'ensuite je puisse choisir le fichier que je souhaite.

Merci d'avance pour votre aide

Le 19/02/2022 à 22:31

Hello,

Plus simple que la boite de dialogue, l'ancien chemin dans la feuille de ton choix en A1 et le nouveau en A2 :

Sub majLiens()
Dim alinks, i As Long
avant = sheets("nom_a_modifier").range("A1") 'modification feuille
apres = sheets("nom_a_modifier")range("A2") 'modification feuille
alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
    For i = 1 To UBound(alinks)
        ActiveWorkbook.ChangeLink alinks(i), Replace(alinks(i), avant, apres), xlExcelLinks
    Next i
End If
End Sub
Rechercher des sujets similaires à "vba liaison nouveaux fichier qui change"