Macro VBA - Ouvrir un doc Word depuis Excel puis chercher un mot Fermé

Question

Bonjour,

Je cherche à ouvrir un doc word depuis excel, puis rechercher un mot défini à l'avance.

Pour ouvrir le doc, j'ai une macro excel qui fonctionne :

Sub Ouvrir_Document()
ThisWorkbook.FollowHyperlink "\aaa\dossier\fichier.doc"
End Sub
Pour sélectionner un mot, j'en ai une autre qu

Sub Chercher_mot()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "mot"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub

Par contre, je n'arrive pas à lier les deux macros (ouvrir le doc depuis excel, puis chercher le mot spécifique". Un message d'erreur me demande un objet...


Sub Ouvrir_Document_Chercher_mot()
ThisWorkbook.FollowHyperlink "\aaa\dossier\fichier.doc"
Selection.Find.ClearFormatting
With Selection.Find
.Text = "mot"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub

Quelqu'un aurait la solution ? Merci d'avance !

Roland

eljojo_e · Answer

Bonjour,

Ce n'est pas la bonne solution pour ouvrir un word.

Sub ouvrirWord()    Dim objWord As Word.Document    Set objWord = GetObject("Chemin complet avec nom du document", "Word.Document")    ' Rend Word visible important car la fusion ne se fait pas si pas visible    objWord.Application.Visible = True    NomFichier = objWord.Name    Remplacement = "Mot De Remplacement"    objWord.Content.Find.Execute FindText:="motRecherché", ReplaceWith:=Remplacement, Replace:=wdReplaceAll                 ' procédure d'enregistrement        DoCmd.SetWarnings False        objWord.SaveAs "Addresse complete" & Format(Now(), "yyyy-mm-dd") & ".doc" 'enregistre le fichier à la date du jour        DoCmd.SetWarnings TrueEnd Sub 

Ce code est commenté et sert à ouvrir un word, rechercher et remplacer un mot et enregistrer le word sous (si nécessaire).
 
Mesurer la masse de sa connerie permettrait dans connaitre sa gravité ;)

Roland2008 · Answer

Bonjour, 


Pour enlever le bout de code qui enregistre, il me faut le supprimer jusqu'au paragraphe "DoCmd.SetWarnings True" ?
Configuration: Windows 7 / Firefox 31.0

Roland2008 · Answer

En fait je veux juste ouvrir le document et pointer vers les occurrences du mot recherché  (ici "MOT").

Une fois installé le code qui ouvre le doc (qui fonctionne), j'essaye de lancer ma recherche avec cette phrase : 

objWord.Content.Find.Execute FindText:="MOT" 

Car il me semble que le reste du bout de code ne sert qu'à remplacer, ce que je ne veux pas faire. Mais cela ne fonctionne pas...


Sub FnOpeneWordDoc()

   Dim objWord

   Dim objDoc

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.Documents.Open

   objWord.Visible = True
   
   objWord.Content.Find.Execute FindText:="MOT"
   
End Sub


Que dois-je rajouter pour faire fonctionner a macro ?

Roland2008 · Answer

Bonjour, 

Je n'ai pas la bibliothèque word 14.0 dans le menu outil, mais seulement la 12.0... Et donc je reçois ce message d'erreur : "Erreur définie par l'application ou par l'objet".

Roland

Roland2008 · Answer

Je ne met pas résolu car à cause des sendkeys je suis obligé de fermer le document ouvert pour relancer une macro identique (sinon une erreur est signalée).

En effet, la sendkeys n'est pas liée au document comme peut l'être une fonction find...

Je cherche donc encore à faire marcher cette dernière fonction.

Macro VBA - Ouvrir un doc Word depuis Excel puis chercher un mot

5 réponses

Discussions similaires