[WD-2003] mise à jour liaison vba [Résolu]

[CODYCO]

Bonjour à tous et bonne année!

Dans un document word je possède un grand nombre de liaisons excel créées par copier collage spéciale avec liaison sur des tableaux excel.

Je souhaiterais pouvoir modifier le chemin de la source excel par code vba afin de ne pas avoir a répéter l'opération, modifier la source et aller pointé le bon fichier.

J'ai chercher sur le forum et sur nénette mais je ne trouve pas mon bonheur.
J'ai quelques pistes avec "Fields" "Fields.Index" ou ".Text" et ".code" mais je ne parviens pas à modifier le chemin et mettre à jour.

Merci d'avance

[Heureux-oli]

Salut,

Deux choix, avec ou sans VBA.
Sans VBA, il faut chercher du coté de la fonction de recherche et de remplacement fournie dans Word.
http://sepia.developpez.com/office/w...cherremplacer/

Ou alors en VBA, il faut faire un boucle sur tous les champs de ton document.

Si le type est 56

Code :

ActiveDocument.Fields(1).Type

On peut récupérer son contenu

Code :

ActiveDocument.Fields(1).Code

Et faire un replace dans la chaîne qu'il contient.

Le tout mis en musique donne ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub utiliserChampLiaison()
'Déclaration de l'objet champ
Dim myFld As Field
'Boucle sur tous les champs du document
For Each myFld In ActiveDocument.Fields
'Si le champ est un collage avec liaison
If myFld.Type = 56 Then
'Remplacement d'un morceau du texte du champ
myFld.Code.Text = Replace(myFld.Code.Text, "dur", "can")
End If
Next myFld
 
End Sub