Discussion :

[youki94]

Voila je suis sur la feuille 1 d'un doc excel et je remplis un doc Word par les signets, mais quand le signet a remplir dépend de la feuille 2 ca ne marche pas

en gras la partie du code qui ne fonctionnes pas selon moi

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
17
18
19
20
21
22
23
24
Sub MacroWord()
'
' MacroWord Macro
' Macro enregistrée le 12/11/2008 par master
'
'Ouvrir Word avec monDoc.doc contenant les signets:

Dim LeDoc As String
Dim ObjWord As Object
On Error Resume Next
LeDoc = ThisWorkbook.Path & "\monDoc.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.documents.Open(LeDoc)
With LeDocWord
'Le nom du signet dans le document word est ici "signet1"
.Bookmarks("signet1").Range.Text = [E6]

'Le nom du signet dans le document word est ici "signet2"
.Bookmarks("signet2").Range.Text = Sheets("Feuil2").Range(A1)


 'End With
End Sub

Merci

[Godzestla]

Youki,

il manque des quotes autour de A1.

Code :

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

1
2
.Bookmarks("signet2").Range.Text = Sheets("Feuil2").Range("A1")

[youki94]

Effectivement, Merci