exporter les données des checkbox Excel et les insérer un tableau word Résolu/Fermé

Question

Bonjour,
voila j'expose mon problème, je suis entrain de réaliser une petite application de suivi des dossiers des clinque j'ai deux formulaire un (UserFrom1)qui sert a saisir les dossiers a leurs arrivées et l'autre (UserFrom3) pour les modifications et les impressions sous des doc Word déjà définies par des signets le problème que je n'arrive pas récupérer les valeurs des checkbox et les insérés sous forme d'un X dans un tableau Word 
même chose pour les case a cocher sur le mon document Word je n'arrive pas a les cochés
ci dessus le code qui pose problème:
              If Me.TextBox6.text = "MATERNITE" Then                WordDoc.Bookmarks("Accouchement").Range.text = X                                       ElseIf Me.TextBox6.text = "HEMODIALYSE" Then             WordDoc.Bookmarks.objWord("Hémodialyse").Range.text = X                                        ElseIf Me.TextBox6.text = "CARDIO-VASCULAIRE" Then              WordDoc.Bookmarks.objWord("Cardiovasculaire").Range.text = X                        End If                       Dim numero As Object            Dim texte As String            texte = "X"             Select Case numero             Case Is = Me.CheckBox1.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("demande").Range.text = texte                                      Case Is = Me.CheckBox2.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("Autorisation").Range.text = texte                                        Case Is = Me.CheckBox3.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("Technique").Range.text = texte                                                      Case Is = Me.CheckBox4.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("praticiens").Range.text = texte                                       Case Is = Me.CheckBox5.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("CASNOS").Range.text = texte                                        Case Is = Me.CheckBox6.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("CNAS").Range.text = texte                                                     Case Is = Me.CheckBox7.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("registre").Range.text = texte                                        Case Is = Me.CheckBox8.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("Contrats").Range.text = texte                                       Case Is = Me.CheckBox9.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("Diplômes").Range.text = texte                                        Case Is = Me.CheckBox10.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("exercer").Range.text = texte                                         Case Is = Me.CheckBox11.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("convention").Range.text = texte                                                     Case Is = Me.CheckBox12.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("statut").Range.text = texte                                        Case Is = Me.CheckBox13.Value = True             WordDoc.ActiveWindow.Document.Bookmarks("acte").Range.text = texte                                       End Select
Merci d'avance

yg_be · Answer

bonjour,
que se passe-t-il?
as-tu un message d'erreur?

yg_be · Answer

merci d'utiliser les balises de code quand tu postes du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

explique aussi quelle partie de ton code ne fonctionne pas.
n'hésite pas à ajouter des instructions msgbox pour comprendre ce que fait ton code.

le début de ton code me semble logique (if elsif end if).
par contre, je ne parviens pas à comprendre comment ton select pourrait donner un quelconque résultat utile.
qu'essaies-tu d'y faire?  à quoi sert la variable "numero"?

il est peut-être préférable d'éviter d'utiliser le select pour le moment, jusqu'au moment où tu auras une bonne occasion de le comprendre et de l'utiliser.

Exporter les données des checkbox Excel et les insérer un tableau word

2 réponses

Newsletters