Discussion :

[arundel]

Bonjour à tous,

Je me heurte au problème suivant : je reçois d'une application d'entreprise un fichier en texte riche (.rtf) qui contient parmi le texte des URL, mais non actifs.

Manuellement il suffit de se placer à la fin de chaque adresse et de taper ENTER pour l'activer. Malheureusement il y a une cinquantaine de tels liens par fichier, lequel est regénéré périodiquement. Une automatisation s'impose.

J'ai écrit le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
 
Dim ysnGo As Boolean: ysnGo = True
 
ThisDocument.Select
Selection.HomeKey Unit:=wdStory
 
With Selection.Find
  .ClearFormatting
  .Forward = True
  .Text = ".html"
 
  While ysnGo 'on sort quand la recherche est terminée
    ysnGo = .Execute
    Selection.InsertAfter ("")
    SendKeys "{ENTER}", True
  Wend
End With
 
End Sub

Le résultat est que seul le dernier lien est activé, suivi d'autant de marques de paragraphes que de liens du docuemnt. Tout se passe comme s'il allait directement au dernier.

Pouvez-vous me dire où est l'erreur ? Merci d'avance.

Bien cordialement.

[Heureux-oli]

Salut,

Le problème vient du fait que tu changes la selection.

en fait, il les fait tous, mais n'ajoutes le paragraphe qu'au premier.

[arundel]

Bonsoir Heureux-oli,

Peux-tu être plus précis stp ?

Merci.

[Heureux-oli]

Salut,

A partir du moment ou tu tapes un texte, ta sélection change et ton point d'insertion aussi.