Bonjour !
En fait j'ai un outil Excel qui me permet, sous forme de questionnaire, d'avoir des résultats sur une feuille à la fin. Je veux que certains de ces résultats aillentà des endroits précis d'un document word situé dans le même fichier. J'arrive à ouvrir le fichier word avec une macro :
Sub ExtractiontoWord()
Dim wApp As Word.Application
Dim wDoc As Word.Document
Set wApp = CreateObject("word.application")
wApp.Visible = False
y = Workbooks("BCC13.xls").FullName
x = Workbooks("BCC13.xls").Name
lg = Len(x)
Chemin = Mid(y, 1, Len(y) - Len(x))
Set wDoc = wApp.Documents.Open(Chemin + "Test rapport.doc")
????
End Sub
Mais après j'ai essayer de remplir un tableau, un signet, rien ne fonctionne.
Un coup de main ?
Merci d'avance
En fait j'ai un outil Excel qui me permet, sous forme de questionnaire, d'avoir des résultats sur une feuille à la fin. Je veux que certains de ces résultats aillentà des endroits précis d'un document word situé dans le même fichier. J'arrive à ouvrir le fichier word avec une macro :
Sub ExtractiontoWord()
Dim wApp As Word.Application
Dim wDoc As Word.Document
Set wApp = CreateObject("word.application")
wApp.Visible = False
y = Workbooks("BCC13.xls").FullName
x = Workbooks("BCC13.xls").Name
lg = Len(x)
Chemin = Mid(y, 1, Len(y) - Len(x))
Set wDoc = wApp.Documents.Open(Chemin + "Test rapport.doc")
????
End Sub
Mais après j'ai essayer de remplir un tableau, un signet, rien ne fonctionne.
Un coup de main ?
Merci d'avance
