Pilotage de word à partir d'excel

Bonjour !

'HotBreizh' nous a écrit ...

Je cherche à résoudre le problème suivant. Je veux à partir d'excel ouvrir
un document Word existant, qui contient du texte, des radiobox et des
chekbox. Je souhaite récupérer la valeur de ces contrôles (0 ou 1) afin de
les comptabiliser dans excel en écrivant leurs valeurs respectives dans des
cellules bien précises.

Dans un document Word les contrôles sont encapsulés dans la
collection des Shapes (formes hors-texte) ou dans la collection
des InlineShapes (formes alignées sur le texte). Voir la discussion
de JJK94 hier à ce sujet. Soit un document monDoc ouvert par Excel
en Automation (GetObject) contenant un contrôle case à cocher
en 2ème objet aligné sur le texte. La valeur booléenne V de cette
case est lue par :
V = monDoc.InlineShapes(2).OLEFormat.Object.Value
Notez le 'Object' qui permet de remonter à un objet encapsulé dans
un objet graphique Word. Certains objets doivent être activés
(Activate) pour pouvoir accéder à leurs propriétés/méthodes.
Placer V dans une cellule C d'une feuille F d'un classeur W Excel
ne devrait pas poser de problème si vous connaissez vba !! :-)

Anacoluthe
« C'est encore en méditant l'objet
que le sujet a le plus de chance de s'approfondir. »
- Gaston BACHELARD

Merci Anacoluthe pour votre prompte réponse,

Mais j'ai peur de ne pas tout comprendre, du moins j'ai l'impression de ne
pas partir dans le bon sens.
Donc voici le code de test que j'utilise. Si je peux me permettre et sans
vouloir abuser.

Private Sub CButton1_Click()
'Excel
'--------------------------------------
Dim MonApplidExcel As Excel.Application
Dim Synthese As Excel.Workbook
Dim MaFeuille As Worksheet

Set MonAppliExcel = New Excel.Application
Set Synthese = MonAppliExcel.Workbooks.Add("d:testvbaexcelref.xls")
Set MaFeuille = Synthese.ActiveSheet

'Word
'--------------------------------------
Dim MonAppliWord As Word.Application
Dim Cas As Word.Document

Set MonAppliWord = New Word.Application
Set Cas = MonAppliWord.Documents.Open("d:testvbadocref.doc")

MonAppliWord.Visible = True
MonAppliWord.Activate

'Test de pilotage de Word
'--------------------------------------
Cas.Content.Bold = False

'**********************************************************************
'C'est la que j'ai un gros problème par exemple !!!!!!!
'je ne parviens pas à accéder à l'objet CheckBox nommé CheckBox1 de mon
document Word
'**********************************************************************
Cas.FormFields("CheckBox1").CheckBox.Value = False

Set MonAppliWord = Nothing
End Sub

Par avance merci.
Ps : Pour ma part, je suis plutôt expert en décisionnel, et plus
particulièrement sur le logiciel SAS (Statistical Analysis System) Alors si
vous utilisez ce produit, n'hésitez pas à me questionner.



"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
eBvugW6hGHA.4144@TK2MSFTNGP02.phx.gbl...

Bonjour !

'HotBreizh' nous a écrit ...

Je cherche à résoudre le problème suivant. Je veux à partir d'excel
ouvrir un document Word existant, qui contient du texte, des radiobox et
des chekbox. Je souhaite récupérer la valeur de ces contrôles (0 ou 1)
afin de les comptabiliser dans excel en écrivant leurs valeurs
respectives dans des cellules bien précises.

Dans un document Word les contrôles sont encapsulés dans la
collection des Shapes (formes hors-texte) ou dans la collection
des InlineShapes (formes alignées sur le texte). Voir la discussion
de JJK94 hier à ce sujet. Soit un document monDoc ouvert par Excel
en Automation (GetObject) contenant un contrôle case à cocher
en 2ème objet aligné sur le texte. La valeur booléenne V de cette
case est lue par :
V = monDoc.InlineShapes(2).OLEFormat.Object.Value
Notez le 'Object' qui permet de remonter à un objet encapsulé dans
un objet graphique Word. Certains objets doivent être activés
(Activate) pour pouvoir accéder à leurs propriétés/méthodes.
Placer V dans une cellule C d'une feuille F d'un classeur W Excel
ne devrait pas poser de problème si vous connaissez vba !! :-)

Anacoluthe
« C'est encore en méditant l'objet
que le sujet a le plus de chance de s'approfondir. »
- Gaston BACHELARD

Bonjour !

'HotBreizh' nous a écrit ...

'**********************************************************************
'C'est la que j'ai un gros problème par exemple !!!!!!!
'je ne parviens pas à accéder à l'objet CheckBox nommé CheckBox1 de mon
document Word
'**********************************************************************
Cas.FormFields("CheckBox1").CheckBox.Value = False

1) dans votre premier post, vous parliez de radiobox et checkbox
ce qui orientait clairement vers des /contrôles/ ActiveX
(Barre Boîte à outils Contrôles). Là votre code fait référence
à un champ de /formulaire/ Word . Ne pas confondre... :-p
Ma réponse concernait des contrôles.
2) Dans le code ci dessus le nom "CheckBox1" doit être le nom
du signet de votre champ de formulaire. Vérifiez ce nom dans ses
propriétés. Dans une version française le nom par défaut de la
première case à cocher de formulaire est CaseACocher1
Ceci dit la syntaxe de cette ligne est correcte.

Anacoluthe
« C'est encore en méditant l'objet
que le sujet a le plus de chance de s'approfondir. »
- Gaston BACHELARD

Merci pour votre aide ça fonctionne maintenant parfaitement.
Donc voici le résultat sous la forme d'une petit exemple qui pourrait peut
être
servir à quelqu'un.

Cordialement.


Public Sub CButton1_Click()

Dim MonAppliWord As Word.Application
Dim Cas As Word.Document

'Création d'un nouvel objet Excel
Set MonAppliWord = New Word.Application
Set Cas = MonAppliWord.Documents.Open("d:testvbadocref.doc")

'Affichage et activation de Word
'MonAppliWord.Visible = True
'MonAppliWord.Activate

'Récupération de la valeur du BoutonRadio N° 1
'(objet en première position dans le document)
Valeur1 = Cas.InlineShapes(1).OLEFormat.Object.Value

'Récupération de la valeur du BoutonRadio N° 2
'(objet en deuxième position dans le document)
Valeur2 = Cas.InlineShapes(2).OLEFormat.Object.Value

'Juste pour l'exercice modification de l'état de la CheckBox n°3
'à chaque lancement (objet en troisième position dans le document)
If Cas.InlineShapes(3).OLEFormat.Object.Value Then
Cas.InlineShapes(3).OLEFormat.Object.Value = False
Else
Cas.InlineShapes(3).OLEFormat.Object.Value = True
End If

Valeur3 = Cas.InlineShapes(3).OLEFormat.Object.Value

'Ferme la feuille en cours (pour mémoire car non utilisé dans l'exemple)
'Cas.Close

'Ferme Word ainsi que les documents ouverts sans prendre en compte les
'modifications
MonAppliWord.Quit SaveChanges:=wdDoNotSaveChanges
Set MonAppliWord = Nothing

'==================================================================== ' Excel
'==================================================================== Dim MonExcel As Excel.Application
Dim MonClasseur As Excel.Workbook
Dim MaFeuille As Excel.Worksheet

'Création d'un nouvel objet Excel
Set MonExcel = New Excel.Application
'Utilisation du classeur courant
Set MonClasseur = MonExcel.ActiveWorkbook
'Utilisation de la première feuille dans le classeur courant
Set MaFeuille = ActiveWorkbook.Worksheets(1)

'Ecriture dans une cellule (deux façons)
MaFeuille.Cells(1, 1).Value = "RButton1 Ok"
MaFeuille.Cells(1, 2).Value = "RButton2 Ko"
MaFeuille.Cells(1, 3).Value = "CheckBox"

With MaFeuille
.Cells(2, 1).Value = Valeur1
.Cells(2, 2).Value = Valeur2
.Cells(2, 3).Value = Valeur3
End With

'Quitter Excel proprement en effectuant des actions de sauvegarde ou non
'-------------------------------------------------------------------------
'Ferme le classeur ainsi que toutes les feuilles de calcul en
'enregistrant les modifications
'MonClasseur.Close True

'Enregistre les modifications du classeur en cours
ActiveWorkbook.Save
Set MaFeuille = Nothing
Set MonClasseur = Nothing

'Quit Excel proprement Excel
MonExcel.Quit
Set MonExcel = Nothing
End Sub

Bonjour !

'HotBreizh' nous a écrit ...

Merci pour votre aide ça fonctionne maintenant parfaitement.
Donc voici le résultat sous la forme d'une petit exemple qui pourrait peut
être servir à quelqu'un.

Merci du retour et bravo ! Votre petit exemple est clair et bien
commenté pour ceux qui souhaiteraient s'en inspirer.

Anacoluthe
« La connaissance est la seule chose qui s'accroît
lorsqu'on la partage. »
- Sacha BOUDJEMA