Coche automatique dans word via cellule Excel

Bonjour,

Je cherche à remplir automatiquement un fichier word à l'aide de données contenues dans un fichier excel.

Pas de problème pour le faire avec des données texte (Nom, Prénom, etc... ). J'ai des cases à cocher dans mon fichier word et je souhaiterais le faire de manière automatique à partir de mon fichier excel : exemple : si la cellule contient oui alors la case dans word se coche, si la cellule contient non alors la case n'est pas cochée.

quelqu'un a t'il une solution ?

Merci pour votre aide

Guillaume

Bonjour,

Dans mon exemple Word est référencé :

Sub MajCheckBox(ByVal DocEnCours As Word.Document, ByVal NomCheckBox As String, ByVal Valeur As Boolean)

Dim ControleEncours As Word.InlineShape

    With DocEnCours
         For Each ControleEncours In .InlineShapes
             If ControleEncours.Type = wdInlineShapeOLEControlObject Then
                Select Case ControleEncours.OLEFormat.ClassType
                       Case "Forms.CheckBox.1" '"Forms.ComboBox.1","Forms.ListBox.1", "Forms.Label.1", "Forms.TextBox.1"
                            With ControleEncours.OLEFormat.Object
                                 If .Name = NomCheckBox Then
                                    .Value = Valeur
                                    Exit For
                                 End If
                            End With
                End Select
             End If
         Next
    End With

End Sub

Exemple de mise en oeuvre :

    Set WordDoc = WordApp.Documents.Open("C:\Users\XXX\Mettre à jour les checkbox.docm")
    MajCheckBox WordDoc, "CheckBox1", True