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
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
Dernière édition: