Récup info Excel dans Word.

Bonsoir à tous,

Je suis en train de batailler pour ouvrir Word depuis excel afin d'inserer le contenu de la cellule A1 pour la mettre dans le signet "objet" dans le document "convocation.doc" dans word.

J'arrive à ouvrir mon doc word. Mais après les choses se corsent.
Je me demande si j'ouvre word correctement. Pour info je l'ouvre comme ça :

Code:

---

1 2 3 4 5 6 7

Dim objet As String monObjet = Range("A1").Value   Set wrdapp = CreateObject("word.application") Set wrdoc = wrdapp.documents.Open("I:\convocation.doc") wrdapp.Visible = True

---

et ensuite je voudrais faire un truc du genre :

Code:

---

thisdocument.Bookmarks("objet").Range = monObjet

---

Cordialement,
Domino40

Bonjour Domino,

Voici comment je ferais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub TaMacroDansExcel()   Dim wrdapp As Word.Application Dim monObjet As String   monObjet = Range("A1").Value Set wrdapp = New Word.Application   With wrdapp .Visible = True .Documents.Open ("I:\convocation.docc") .Selection.GoTo what:=wdGoToBookmark, Name:="signet" .Selection.TypeText Text:=monObjet End With   End Sub

---

Tu me diras si ça fonctionne.

Souriane

Un grand merci pour ta réponse, mais j'ai un bugg. (Erreur 5101) !!!

Il me dit que le signet n'existe pas.
Je l'ai contrôlé --> il existe, au bon nom, sans majuscule

je ne comprend pas.

Salut,

Alors en lisant à gauche et à droite sur le net, j'ai trouvé ceci. Peut-être que ça fera une différence? J'ai lu entre autre qu'il fallait avoir la ligne

Code:

---

Const wdGoToBookmark = -1

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub TaMacroDansExcel()   Dim wrdapp Dim monDoc Const wdGoToBookmark = -1   Set wrdapp = CreateObject("Word.Application") wrdapp.Visible = True wrdapp.Documents.Open "I:\convocation.doc" Set monDoc = wrdapp.activedocument wrdapp.Selection.Goto what:=wdGoToBookmark, Name:="signet" wrdapp.Selection.TypeText CStr([A1]) Set wrdapp = Nothing End Sub

---

Bye!

Souriane

Je confirme qu'ajouter cette ligne répond au problème d'une erreur 5101.

Merci Souriane :)

Le nom du signet est "objet", il faut remplacer dans le source donnée par Soriane name="signet" par name="objet"