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

Balise code

les  doubles posts c'est mal
 
réponse là
http://forum.presence-pc.com/prese [...] -1.htm#bas