Discussion :

[emmanuel89500]

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 :

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
 
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

[kiki29]

Salut, voir ceci, ceci sans me poser la question de la faisabilité, pertinence et utilité de ce que tu veux faire.

D'autre part tu mélanges Early Binding et Late Binding.