Activé des "CheckBox" dans un document Word à partir d'un formulaire de saisie VRésolu

Question

Salut très respectable programmeur

Mon problème/but est très simple. J'ai un fenêtre de saisie (Form dans VB) qui me permet d'ouvrir un document Word spécifique et d'y transférer du texte du formulaire vers des tables spécifique dans le document, jusque là pas de problème.

Maintenant, je veux pouvoir Cocher des CheckBox dans mon formulaire VB qui vont automatiquement cocher d'autre checkbox dans mon document Word... j'ai tenté plusieurs chose sans succès !

une idée ? En passant, expliqué moi comment de A à Z car je me débrouille j'ai je suis quand même un amateur.!

Merci beaucoup à tous.

J'inclue mon bout de script qui transfert de texte si ça peux aider quelqu'un

Private Sub Command1_Click()


Set objWord = CreateObject("Word.Application")
objWord.Caption = "Test Caption"
objWord.Visible = True
Set objDoc = objWord.Documents.Open("C:\Program Files\InfoPL\doc1.doc")
 
Set objRange = objDoc.Range()
Set objTable1 = objDoc.Tables(1)
Set objTable2 = objDoc.Tables(2)
Set objTable3 = objDoc.Tables(3)


Dim data1 As String
Dim data2 As String
Dim data3 As String


data1 = Pilote.Text1.Text
data2 = Pilote.Text2.Text
data3 = Pilote.Text3.Text
objTable1.Cell(1, 1).Range.Text = data1
objTable2.Cell(1, 1).Range.Text = data2
objTable3.Cell(1, 1).Range.Text = data3




End Sub

mortalino · Accepted Answer

Salut,

Essai ceci (sans garanti, pas testé, mais c'est un début) : 

Dim ctl As OLEObject

For Each ctl in objDoc.OLEObjects
    If TypeOf ctl.Object = MSForms.CheckBox Then        If ctl.Object.Caption "C'est un exemple" Then ctl.Object.Value True
    End If
Next ctl

@++

   Mortalino 
Le mystérieux chevalier, "Provençal, le Gaulois"

mrmitaine · Answer

Merci

Pour l'instant, ça me donne une erreur à la compil "User defined type not defined" sur le Dim ctl As OLEObject.
L'utilise VB6 es que cet objet est valide pour cette version ?

Activé des "CheckBox" dans un document Word à partir d'un formulaire de saisie V

2 réponses

Votre réponse

Discussions similaires