FORUM Tom's Hardware » Programmation » Autre » pb liste déroulante sous VBA Word
 

pb liste déroulante sous VBA Word

Il y a 372 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : pb liste déroulante sous VBA Word
 
Plus d'informations

Je souhaiterais à l'aide d'une liste déroulante afficher les information qui sont contenus dans un fichier texte en .txt qui est en constante évolution. merci à ceux qui me répondront

Don't blink
Profil : kärcher
Plus d'informations

GoTo cat progra :o


---------------
Rock me dr Zaius ! [:gambit:5] Toys are cool ! [:gambit:5]
Rubik's Addict !
Plus d'informations

Haaaannnnnn !! un GoTo !!!

'Spa bien ça ! [:ddr555]


---------------
==> Bill2's Process Manager, gestionnaire de processus automatique, gérer l'affinité sous Windows <==
La v3.2.1.7 (04/08/2008) est sortie

Un combat ?
Plus d'informations

pourriez vous me donner la structure svp

Plus d'informations

considérant que ta liste s'appele liste1 :

Code :
  1. Sub truc()
  2. Dim myRef
  3. Dim myStr
  4. ' ouvre le fichier de données !
  5. Open "c:\test.txt" For Input As #1
  6. ' vide le controle de liste
  7. ActiveDocument.FormFields.Item("liste1" ).DropDown.ListEntries.Clear
  8. While Not EOF(1)
  9.     Input #1, myStr
  10. ' ajout de myStr à liste1
  11. ActiveDocument.FormFields.Item("liste1" ).DropDown.ListEntries.Add (CStr(myStr))
  12. Wend
  13. ' ferme le fichier
  14. Close #1
  15. End Sub


Plus d'informations


je souhaiterais synchroniser la deuxieme liste en fonction de la premiere liste en VBA WORD svp merci. ceci est la structure des listes non synchroniser :

Code :

Sub truc()

Dim myRef
Dim myStr
' ouvre le fichier de données !
Open "c:\test.txt" For Input As #1
' vide le controle de liste
ActiveDocument.FormFields.Item("liste1" ).DropDown.ListEntries.Clear
While Not EOF(1)
Input #1, myStr
' ajout de myStr à liste1
ActiveDocument.FormFields.Item("liste1" ).DropDown.ListEntries.Add (CStr(myStr))
Wend
' ferme le fichier
Close #1
End Sub

Sub truc2()

Dim myRef
Dim myStr
' ouvre le fichier de données !
Open "c:\test.txt" For Input As #1
' vide le controle de liste
ActiveDocument.FormFields.Item("liste2" ).DropDown.ListEntries.Clear
While Not EOF(1)
Input #1, myStr
' ajout de myStr à liste2
ActiveDocument.FormFields.Item("liste2" ).DropDown.ListEntries.Add (CStr(myStr))
Wend
' ferme le fichier
Close #1
End Sub

Profil : Pointeur
Plus d'informations

balise [code] :fou:


---------------
Da Bidz Triad©®™: Bidz Interceptor
.:: Smileyz version 4.2 [050625]::. -- Code source disponible sous licence GPL.
[u
Plus d'informations

SIRMAX a écrit :

je souhaiterais synchroniser la deuxieme liste en fonction de la premiere liste en VBA WORD svp merci. ceci est la structure des listes non synchroniser :



1- Ya pas de quoi

2- si liste1=liste2 tu devrais pouvoir faire un truc du style :


solution sympa poour les perfs mais je sais pas si VBA accepte :

Code :
  1. sub truc()
  2. Dim myRef 
  3. Dim myStr 
  4. ' ouvre le fichier de données ! 
  5. Open "c:\test.txt" For Input As #1 
  6. ' vide le controle de liste 
  7. ActiveDocument.FormFields.Item("liste1" ).DropDown.ListEntries.Clear 
  8. While Not EOF(1) 
  9.     Input #1, myStr 
  10. ' ajout de myStr à liste1 
  11. ActiveDocument.FormFields.Item("liste1" ).DropDown.ListEntries.Add (CStr(myStr)) 
  12. Wend 
  13. ' ferme le fichier 
  14. Close #1
  15. ' met à jour liste2 
  16. ActiveDocument.FormFields.Item("liste2" ).DropDown.ListEntries=ActiveDocument.FormFields.Item("liste1" ).DropDown.ListEntries
  17. End Sub




solution bourrin

Code :
  1. sub truc()
  2. Dim myRef 
  3. Dim myStr 
  4. ' ouvre le fichier de données ! 
  5. Open "c:\test.txt" For Input As #1 
  6. ' vide le controle de liste 
  7. ActiveDocument.FormFields.Item("liste1" ).DropDown.ListEntries.Clear 
  8. While Not EOF(1) 
  9.     Input #1, myStr 
  10. ' ajout de myStr à liste1 
  11. ActiveDocument.FormFields.Item("liste1" ).DropDown.ListEntries.Add (CStr(myStr))
  12. ' ajout de myStr à liste2
  13. ActiveDocument.FormFields.Item("liste2" ).DropDown.ListEntries.Add (CStr(myStr))
  14. Wend 
  15. ' ferme le fichier 
  16. Close #1
  17. ' met à jour liste2 
  18. ActiveDocument.FormFields.Item("liste2" ).DropDown.ListEntries=ActiveDocument.FormFields.Item("liste1" ).DropDown.ListEntries
  19. End Sub


Message édité par yoconono le 17-06-2005 à 08:02:16
Plus d'informations

bonjour moi j ai à peu prés le même pb
je vous explique
j ai créé une form avec 4 listes deroulantes
1 nom
2 premon
3 n ° telephone
4 adresse
le tous relier a des champs dans le document word.
lorsque que l utilisateur ouvre le document l userform s ouvre et il va chercher son nom puis le reste.
donc ma question est
est ce qu il existe un code pour que lorsque l utilisateur trouve son nom dans la premiere liste deroulante les autres listes se mettent a jour en fonction du nom de la personne entre autre prenom, n° telephone, adresse.

merci d avance

zeb
Profil : Modérateur libre
Plus d'informations

Tu n'amènes rien à ce topic, laisse-le mourir en paix.

Tu as un problème, à peu près le même que quelqu'un d'autre, alors soit tu t'inspires de la solution donnée, soit ce n'est pas assez et tu es tout à fait en droit de créer ton propre topik à toi ;)

C'est facile, clique sur ce beau bouton : http://img.presence-pc.com/forum/design/nvsujet.gif


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » Autre » pb liste déroulante sous VBA Word
 

Annonces Google
Publicité
Dans les albums