Discussion :

[Domino40]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,
Domino40

[Souriane]

Bonjour Domino,

Voici comment je ferais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Domino40]

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.

[Souriane]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Const wdGoToBookmark = -1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MysterChypster]

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

Merci Souriane

[vansco]

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