Modifer des liens avec une macro [Résolu]

[NemKa]

Bonjour tout le monde,

J'ai une macro que j'arrive pas a faire marcher et vu qu'elle est pas de moi et que je suis une tanche en VBA, je compte sur vous...

Voila, le but c'est de modifier des liens: J'ai un doc word qui se met a jour sur un classeur excel. Mon souci c'est la police (toujours la quand il faut pas ceux-la... lol).

Je voudrais changer mes liens.

Pour resumer:

J'ai des liens qui ressemblent a ca:

{ LINK Excel.Sheet.8"C:\\...adressedulien..." Sheetl!R762C15 \a \r }

et a ca:

{ LINK Excel.Sheet.8"C:\\...adressedulien..." Sheetl!R762C15 \a \r \* MERGEFORMAT }


Les liens de la premiere forme doivent absolument etre change en:

{ LINK Excel.Sheet.8"C:\\...adressedulien..." Sheetl!R762C15 \a \r \* CHARFORMAT }

Et les liens de la deuxieme forme aussi si possible (ca evitera les surprises...)


Ce sont des liens vers des cellules Excel mis en place par: collage special, lien, RTF


La macro donnees par Berylion ne fonctionne pas ou je ne sais pas la faire fonctionner.


Voila, voila, si vous pouviez me sauver la mise sur ce coup la, ce serait franchement cool parcequ'il commence a me saouler ce catalogue...

Ci-dessous la macro

Sub Nemka2()
'
' Nemka2 Macro
' Macro created 22/06/2007 by v-pfl
'

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Application.ScreenUpdating = False
For Each fld In ThisDocument.Fields
......If fld.Type = 56 Then
..........If Right(fld.Code.Text, 14) = "\* MERGEFORMAT" Then
..............fld.Code.Text = Left(fld.Code.Text, Len(fld.Code.Text) - 14) & "\* CHARFORMAT"
..........ElseIf Right(fld.Code.Text, 13) <> "\* CHARFORMAT" Then
..............fld.Code.Text = fld.Code.Text & "\* CHARFORMAT"
..........End If
.....End If
Next
ThisDocument.Fields.Update
Application.ScreenUpdating = True
End Sub

P.S.: les points (.......) c'est pour materialiser les decalages.



Merci a tous,

Take Care

[ouskel'n'or]

Au 14ième message, tu ne sais pas encore utiliser les balises code ? Alors je vais t'expliquer tout ça :
Tu sélectionnes le code, tu fais un clic su l'icône # épicétou

Je regarde si je peux faire quelque chose pour toi (sans garantie)
A+

[ouskel'n'or]

Tu pourrais tester ça

Code :

1
2
3
4
5
6
7
8
9
For Each fld In ActiveDocument.Fields
    If fld.Type = 56 Then
        If InStr(fld.Code.Text, "\* MERGEFORMAT ") <> 0 Then
            fld.Code.Text = Left(fld.Code.Text, Len(fld.Code.Text) - Len("\* MERGEFORMAT ")) & "\t " & "\* CHARFORMAT "
           ElseIf InStr(fld.Code.Text, "\* CHARFORMAT ") = 0 Then
            fld.Code.Text = fld.Code.Text & "\t " & " * CHARFORMAT "
        End If
    End If
Next

Tu dis
A+

[NemKa]

Ouskel'n'or, T'es un amour!!!

Merci tout plein tout beaucoup, je viens de voir ton message. Un lundi matin qui commence comme ca, ca fait toujours plaisir!!!!

Ca a marche nickel chrome cadmium. Merci, encore merci et mille fois merci (ma reconnaissance est a la hauteur du temps que tu m'a sauve)

A bientot sur le forum.

[NemKa]

Toutes mes confuses, j'ai zappe, d'habitude je le fais, promis...