Communication Excel vers word difficile
Bonjour,
Tout d'abord le cadre :
J'ai un document word ouvert, ainsi qu'une userform de celui-ci active.
J'ai aussi un classeur excel ouvert.
Ce que je souhaiterais :
avec un bouton de commande sur ma feuille de calcul, je souhaiterais, si la cellule(1,1) est rouge, modifier le caption d'un label de la userform de word et mettre "rouge"
J'ai fait plusieurs tentative, mais sans succès!!
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Private Sub CommandButton4_Click()
Dim wrd As Word.Application
Dim WrdDoc As Word.Document
Dim fichier As String
Dim chemin As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & "modele document.docm"
Set wrd = CreateObject("Word.Application")
wrd.Visible = True
Set WrdDoc = GetObject(fichier)
If Cells(1, 1).Interior.ColorIndex = 3 Then
WrdDoc.Modele.Label5.Caption = "rouge"
End If |
( Modele est le nom de ma userform)
Merci de votre contribution,
Emmanuel
