Mettre un x dans une case à cocher d'un fichier Word depuis Excel

[zephir94]

Bonjour à tous,

Je suis sur un projet qui consiste depuis Excel à remplir des champs dans un fichier Word.
Jusque là tout ce passe bien.
Là ou je coince c'est que j'ai dans le document Word il y a trois cases à cocher avec des X !
Y-a-t 'il un moyen de piloter cela depuis Excel ? ont-elles un nom que je ne vois pas dans le fichier Word pour les appeler ?

Merci à vous pour vos aides

Amicalement Zephir

 

[job75]

Re : Mettre un x dans une case à cocher d'un fichier Word depuis Excel

Re,

Le code précédent adapté aux cases à cocher :

Dim nom$, x$, y$, s, i
'---
nom = "CaseACocher1" 'nom du signet à atteindre
If leDoc.Bookmarks.Exists(nom) Then
  x = Application.Trim(Feuil8.[B1]) 'SUPPRESPACE
  leDoc.FormFields(nom).CheckBox.Value = UCase(x) = "X"
Else
  MsgBox "Le signet '" & nom & "' n'existe pas..."
End If
'---à répéter éventuellement sur d'autres signets et cellules---

A+

 

[zephir94]

Re : Mettre un x dans une case à cocher d'un fichier Word depuis Excel

Un grand merci à vous Job75 la solution 13 est impeccable un grand merci