Remplacer une liaison par VB
Résolu
touroul
Messages postés
518
Statut
Membre
-
touroul Messages postés 518 Statut Membre -
touroul Messages postés 518 Statut Membre -
Bonjour le forum
Mon fichier Excel comporte une liaison vers un autre fichier, variable.
J'ai écrit une macro me permettant d'ouvrir ce fichier variable, je cherche à présent à remplacer la liaison existante par la nouvelle, mais Excel ne comprend pas mes variables (Incompatibilité de type)
Voici mon code :
Sub Test()
Dim Ancien As Variant
Dim Nouveau As Variant
Ancien = ActiveWorkbook.LinkSources
Nouveau = Application.GetOpenFilename(, , "Sélectionner")
Workbooks.Open filename:=Nouveau
MsgBox (Nouveau)
ActiveWorkbook.ChangeLink Name:=Ancien, NewName:=Nouveau, Type:=xlExcelLinks
MsgBox (nom_fichier)
End Sub
Quelle erreur je commets ?
Par avance merci pour votre aide !
A voir également:
- Remplacer une liaison par VB
- Remplacer disque dur par ssd - Guide
- Remplacer par word - Guide
- Vb - Télécharger - Langages
- Remplacer coco - Accueil - Réseaux sociaux
- Quel site pour remplacer coco - Accueil - Réseaux sociaux
4 réponses
Bonsoir,
ci-dessous code
Sub Test()
Dim liaisons()
Dim Ancien As String
Dim Nouveau As String
liaisons = ActiveWorkbook.LinkSources(xlExcelLinks)
Ancien = liaisons(1)
Nouveau = Application.GetOpenFilename(, , "Sélectionner")
ActiveWorkbook.ChangeLink Name:=Ancien, NewName:=Nouveau, Type:=xlExcelLinks
End Sub
Bonjour
J'ai vraiment besoin de cela svp.
Voici un fichier d'exemple avec description du problème.
Un peu d'aide svp !
https://www.cjoint.com/c/MLguIX77Xjn
Merci par avance
