Excel / Word macro à lancer et Textbox

Question

Bonjour,

A partir d'Excel je voudrai lancer une macro Word sur plusieurs fichier Word sans pour autant que la Macro soit attach&#233;e &#224; chaque .doc.
De plus, je voudrai faire passer des variable d'Excel &#224; Word.
Merci bcp &#224; celui qui m'aide.
Je vous colle le code que j'ai fait. La Macro Word ne se lance pas et je n'ai pas trouv&#233; de solution pour les variables.

Macro Excel :
  Sub OpenWord()
  
  Dim wrdApp As Word.Application
  Dim wrdDoc As Word.Document
  Dim t, s As String
  s = "C:\Desktop\Test.doc"
  t = Cells(1, 1)
  Set wrdApp = CreateObject("Word.Application")
  Set wrdDoc = wrdApp.Documents.Open("C:\Projet\Variables.doc")


  Set myRange = wrdDoc.Content
  myRange.Find.Execute FindText:="Var", ReplaceWith:=t, _
  Replace:=wdReplaceAll
  wrdDoc.Activate
    
  wrdApp.Run "ezze.doc!Module1.GOLDORAK"


  wrdApp.ActiveDocument.SaveAs s
  For Each wrdDocument In wrdApp.Documents
  wrdDocument.Close
  Next
  Set wrdApp = Nothing  
  End Sub

Macro Word :
Sub GOLDORAK()


   
    For Each myShape In ActiveDocument.Shapes
    myShape.Select

    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "non"
        .Replacement.Text = "YOUYOU"
        .Forward = True
        .Wrap = wdFindContinue


    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Next
    End Sub

J'aimerai qu'&#224; la place de "non" et "YOUYOU" je puisse mettre des valeurs d'une feuille Excel (t par exemple).
PS : je lance la macro Word car je n'arrive pas &#224; s&#233;l&#233;ctionner les textbox de Word &#224; partir de la macro Excel et &#224; faire mes remplacements. Si quelqu'un trouve la solution, plus besoin de lancer le macro word.

Merci &#233;norm&#233;ment &#224; ceux qui me r&#233;pondront.

cs_Viviane · Answer

Bonjour !

Ci-joint le code. En esp&#232;rant que cela ira

1) sous Excell/vb 
   Faire r&#233;f&#233;rence &#224; Word :   
      Outils/Refrences 
            Cliquer sur Microsoft Word 9.0 object library

2)
Sub Edition1()
Dim appWord As New Word.Application
Dim wdoc As New Word.Document


appWord.ShowMe
appWord.Visible = True
 'Ouvre le document Word (Fichier.doc) et effectue une copie des donn&#233;es
Set wdoc = appWord.Documents.Open("J:\progs\OASIS\Bilan\Sp&#233;cification1.doc", ReadOnly:=True)

With appWord
     .Selection.WholeStory
     .Selection.Copy
End With


     ' Copie des donn&#233;es WORD dans Excel
ThisWorkbook.Worksheets("Feuil1").Paste
'     ' Fermeture de Word
appWord.Application.Quit
Application.CutCopyMode = False



'   Copier DonneesExcel Vers Word()
Range("A1:B6").Copy
Set WW = CreateObject("word.application")
WW.Visible = True
WW.Documents.Add
WW.Selection.PasteSpecial Link:= False , DataType:=wdPasteText, Placement:= _
          wdInLine , DisplayAsIcon:=False

Viviane44

Excel / Word macro à lancer et Textbox

1 réponse

Discussions similaires