VB6 récuperer les informations d'un formulaire fait sous word [Résolu]

Messages postés
4
Date d'inscription
mercredi 23 août 2006
Dernière intervention
17 mars 2008
- - Dernière réponse : Winneuts
Messages postés
4
Date d'inscription
mercredi 23 août 2006
Dernière intervention
17 mars 2008
- 17 mars 2008 à 17:27
Bonjour,

J'ai créer un formulaire protegé sous word et j'y ai mis plusieurs types de champs.

pour les champs texte je récupère les infos sans soucis, là oû j'ai plus de mal c'est au niveau de ma liste déroulante et de mes cases à cocher (ça renvoie le caractère qui ressemble à un carré).

voila le souci, j'espère avoir été assez clair dans mon explication.

Merci d'avance.
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
4
Date d'inscription
mercredi 23 août 2006
Dernière intervention
17 mars 2008
3
Merci
J'ai trouvé ! Ci-dessous mon code :

'Ajouter la réference "Microsoft Word 8.0 Object library

'Objet général pour travailler avec WORD
Dim wrdApp As Word.Application
'Objet document permet d'accéder a toutes les caractéristiques des documents WORD
Dim wrdDoc As Word.Document
'Partie d'un document permet de modifier les propriétés d'une zone
Dim wrdRange As Word.Range

'Création de l'objet word
    Set wrdApp = New Word.Application

'ouverture du document word servant de template
    Set wrdDoc = wrdApp.Documents.Open(App.Path & "\formulaire saisi 1.doc")
    wrdApp.Visible = True

    'If wrdDoc.ProtectionType <> wdNoProtection Then
    ' wrdDoc.Unprotect "a"
    'End If
    
    Text1.Text = wrdDoc.FormFields("txtnom").Result
    Text2.Text = wrdDoc.FormFields("txtprenom").Result
    Text3.Text = wrdDoc.FormFields("lbxdirection").Result
    Text4.Text = wrdDoc.FormFields("casephoto1").Result
    Text5.Text = wrdDoc.FormFields("casephoto2").Result
    Text6.Text = wrdDoc.FormFields("casephoto3").Result
 

    wrdDoc.Close SaveChanges:=0
    
    'indispensable autrement une instance de WINWORD reste en memoire
    wrdApp.Quit
   

    'Destruction des objets
    Set wrdRange = Nothing
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Winneuts

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.