VB6-PDF-WORD - Récuperer les valeurs d'une listebox et checkbox [Résolu]

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

Je repose ma question sous un autre angle !

Je dois faire saisir à des utilisateurs des données sur un formulaire (word ou pdf pour l'instant, sinon je suis également preneur pour un type de fichier plus simple...). Tout ça dans le but de récuperer une liste de fichiers dans un dossier et de les attaquer en visual basic afin d'alimenter une base de données.

L'idée c'est qu'il y aura quelques textbox, une liste déroulante et des checkbox dans le formulaire à saisir.

Sous word je sèche au niveau des checkbox et des listbox (il renvoie le symbole qui représente un carré), par contre pas de soucis avec les textbox.

Sous PDF, j'ai fais un formulaire avec adobe designer mais j'ai beaucoup de mal à trouver des sources ou exemples me permettant d'acceder aux contrôles...

Merci d'avance pour vos réponses.
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Winneuts 4 Messages postés mercredi 23 août 2006Date d'inscription 17 mars 2008 Dernière intervention - 17 mars 2008 à 17:25
3
Merci
A y est j'ai trouvé comment faire avec word :

Voici 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")
   
    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

Merci Winneuts 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes 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.