[WD-2007] Automatiser la création de checkbox (ActiveX)

[JiBen44]

Bonjour à tous,

je me permets de solliciter votre aide sur un projet de document Word sur lequel je suis complètement bloqué.

Pour résumer la situation, je souhaite automatiser la création d'un document dans lequel va figurer un certain nombre de "modules" préalablement sélectionner via un TreeView dans un UserForm. La validation me permet de générer la liste des "modules" à afficher dans le document. Cette liste est enregistrée dans un fichier texte temporaire avec le format suivant:

COMPTEUR;NIVEAU;VALEUR;LIBELLE

COMPTEUR = compteur incrémentiel
NIVEAU = clé dans le treeview
VALEUR = Vrai/Faux pour savoir si je dois faire figurer ou non le module
LIBELLE = texte que je souhaite insérer dans ma checkbox en Caption

Jusque là pas de soucis. Je génère mon fichier sans problème et je fais ensuite appel à ma fonction Insertion_Checkbox pour insérer les checkbox en fonction de mon fichier texte.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub Insertion_Checkbox()
	Dim Fichier
 
	Fichier = FreeFile
 
	Open Left(Chemin, InStr(Chemin, "\DOCUMENTS")) & "\DONNEES\MODULES.TXT" For Input As Fichier
 
	Do While Not EOF(Fichier)
		Line Input #Fichier, Chaine
		Modules = Split(Chaine, ";")
 
		If Modules(2) = "Vrai" Then
			ActiveDocument.InlineShapes.AddOLEControl ClassType:="Forms.CheckBox.1"
			With ActiveDocument.CheckBox1
				.Width = 471.75
				.AutoSize = True
				.Caption = Libelle
				.Value = True
				.Name = "Modules_" & Ordre
			End With
		End If
 
	Loop
 
	Close Fichier
 
End Sub

Ca fonctionne pas trop mal si ce n'est que la génération me donne un résultat étrange :
[] checkboxN...
[] checkbox7
[] checkbox6
[] checkbox5
[] checkbox4
[] checkbox3
[] checkbox2
[X] Libellé du dernier module

Alors que je souhaite avoir :
[X] Libellé du premier module
[X] Libellé du second module
[X] Libellé du troisième module
...
[X] Libellé du dernier module

Je m'arrache les cheveux depuis quelques jours dessus...
Par avance merci à celles et ceux qui pourront m'apporter leur aide