Probleme avec la fonction Find

[vivasss]

Bonjour,
voici le probleme :
Je suis sur excel, j'appuie sur un bouton qui est relié a cette macro dont le but est d'ouvrir un word, de recherhcer le mot "destinataire" et de le remplacer par un mot qui est dans une cellule sur le fichier excel, ici j'ai mis Hello pour que ca soit plus simple. Mais il me dit qu'il manque des arguments pour la fonction Find.
Voila merci de votre aide !

Sub pan()
Dim Fichierw As String
Dim objWord As New Word.Application
Dim myR As Range

Fichierw = "C:\Users\XXX\Desktop\Programme FInal\BL.docm"

' ouvrir un document Word
objWord.Documents.Open Fichierw
' rendre Word visible
objWord.Visible = True

' recherche et remplacement
Set myR = ActiveDocument.Content
myR.Find.Execute FindText:="Destinataire", ReplaceWith:="Hello", Replace:=wdReplaceAll

' fermer le document
objWord.Documents(1).Close
' quitter l'application Word
objWord.Quit
' libérer la mémoire
Set objWord = Nothing
End Sub

 

[gosselien]

Re : Probleme avec la fonction Find

Bonjour,

je ne serai pas d'une grande aide, mais tu devrais mettre un fichier exemple ici , c'est plus simple pour les gens qui te lisent...


essaie quand même ceci:

OldWord = "essai"
NewWord = "hello"

With ActiveDocument.Content.Find
.Forward = True
.Wrap = wdFindStop
.Execute FindText:=OldWord, ReplaceWith:=NewWord, Replace:=wdReplaceAll, MatchCase:=True
End With


P.