XL 2013 Modifier la liaison en entête avec macro?

jptaz15

XLDnaute Nouveau
Bonjour,

J'ai trouvé cette macro qui me permet de modifier d'un coup la source de toutes les références à un document excel dans un fichier word. Le seul soucis, c'est que le code ne prend pas en compte l'entête. Y aurait-il moyen de bidouiller le code pour qu'il prenne également en compte l'entête?

VB:
Sub changeSource()

Dim dlgSelectFile As FileDialog  'FileDialog object
Dim thisField As Field
Dim selectedFile As Variant    'must be Variant to contain filepath of selected item
Dim newFile As Variant
Dim fieldCount As Integer



'create FileDialog object as File Picker dialog box
Set dlgSelectFile = Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)



With dlgSelectFile
'use Show method to display File Picker dialog box and return user's action
    If .Show = -1 Then

        'step through each string in the FileDialogSelectedItems collection
        For Each selectedFile In .SelectedItems
            newFile = selectedFile    'gets new filepath
        Next selectedFile
    Else   'user clicked cancel
    End If
End With
Set dlgSelectFile = Nothing



'update fields
fieldCount = ActiveDocument.Fields.Count
For x = 1 To fieldCount
    ActiveDocument.Fields(x).LinkFormat.SourceFullName = newFile
Next x

End Sub


merci d'avance pour votre temps
 

Discussions similaires