[VBA-W]Un compteur de mots dans Word [Résolu]

[QAPi]

Bonjour à tous,

J'ai trouver sur 01net.com une macro word qui permet de compter le nombre de fois qu'une occurence apparait dans Word.
http://www.01net.com/editorial/25289...ots-dans-word/

Sous word 2003, j'ai donc copier le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
Sub repetition()
Count = 0
searchtext$ = InputBox$("Indiquez   le   mot   ou   la   phrase   à   comptabiliser   :")
With ActiveDocument.Content.Find
Do While .Execute(FindText:=searchtext$, Format:=False, MatchCase:=False, MatchWholeWord:=True) = True
Count = Count + 1
Loop
End With
MsgBox searchtext$ * ": a été utilise à " * Count * " reprise(s)"
End Sub

Mais l'execution de la macro fait apparaitre une "Erreur d'exécution '13': Incompatibilité de type" sur la ligne "MsgBox searchtext$ * ": a été utilise à " * Count * " reprise(s)"".

Pourriez-vous m'aidez à trouver l'erreur ?

Merci d'avance.

[jmfmarques]

es-tu vraiment que tes * servent à faire une concaténation ?
ce ne serait pas & (ou à la rigueur mais non conseillé ) + ?

[QAPi]

effectivement je viens de remplacer les * par des & et cela fonctionne parfaitement.

Merci bcp jmfmarques pour ta réponse aussi rapide.

Bonne journée

[jmfmarques]

C'est pas vrai ! C'était çà ?
Quelle chance, alors !