Bonjour,
J'ai vraiment besoin d'aide SVP, ça fait 3 semaines que je bloque.
Lorsque je cré une macro dans Word, elle fonctionne bien, et dès que je la modifie pour la mettre dans un module Excel et lancer la procédure d'un fichier Excel, ça ne fonctionne plus. Il doit y avoir une petite erreur ms je ne vois pas laquelle.
But de la macro : dans chaque "Shape" de la feuille, je remplace non par oui.
Merci bcp pour votre aide.
 
Voici la macro dans Word :
 
Sub RemplacerWord()
   
    For Each myShape In ActiveDocument.Shapes
    myShape.Select
       
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "non"
        .Replacement.Text = "oui"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
         
    Next
End Sub
 
 
Voilà ce que j'ai fait comme modif pour la lancer d'Excel :
 
 Sub RemplacerExcel()
   
  Dim wrdApp As Word.Application
  Dim wrdDoc As Word.Document
     
  s = "C:\Documents.doc"
   
  Set wrdApp = CreateObject("Word.Application" )
  Set wrdDoc = wrdApp.Documents.Open("P:\.doc" )
   
       For Each myshape In ActiveDocument.Shapes
    myshape.Select
 
    wrdApp.Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "non"
        .Replacement.Text = "43"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    wrdApp.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    wrdApp.ActiveDocument.SaveAs s
 
  For Each wrdDocument In wrdApp.Documents
    wrdDocument.Close
  Next
Set wrdApp = Nothing
  End Sub

Où cela bloque-t-il?
Quelle ligne? Quel message d'erreur?

Ca ne bloque pas! La macro se lance sans message d'erreur!
Mais ça ne fonctionne pas, le texte n'est pas remplacé.
Merci bcp de ton aide.