Bonjour à tous,
 
Je souhaite creer une liste deroulante contenant des noms.
Lorsque je choisis un des noms de la liste, je souhaiterais que les coordonnées completes liées à se nom s'inscrivent dans un document word.
 
J'ai testé plusieurs methode mais je n'ai rien trouvé de concluant jusque là.
 
L'ideal serait de creer une base de donnée (publipostage word - ça je sais faire) contenant les coordonnées completes.
 
Inserer des champs de fusion et fusionner (ça je sais faire aussi)
 
L'ennui est qu'a chaque fois, je suis obligé de choisir la base de donnée (puisque j'en utilise une autre pour autre chose) puis de choisir dans cette base la ligne du contact a inserer puis de fusionner.
 
Serait il possible de creer une liste deroulante, qui se connecte directement à la bonne base de donnée (publipostage word) et renvoi les coordonnées automatiquement dans des champs mis en forme prealablement?
 
Aujourd'hui j'ai testé une methode qui m'eclaire un peu :  
 
une combobox :  
Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 1
'Load data into ComboBox
ComboBox1.List() = Array("Zero", "One", "Two", "Three" )
End Sub
 
puis un signet (Text1):
 
Private Sub ComboBox1_Change()
ActiveDocument.FormFields("Text1" ).Result = ComboBox1.Value
End Sub
 
puis un bouton FERMER :
Private Sub Cmdclose_Click()
Unload Me
End Sub
 
puis une macro :  
Sub gocombobox()
frmcombo.Show
End Sub
 
et enfin un champ text form qui apelle la macro, donc la combobox.
 
L'ennui : c'est la valeur de la liste deroulante qui est renvoyée dans le champ "formtext", et puis il n'y a pas de mise en forme possible (preformaté) ... mais le principe est pas mal...
 
En gros ,
 
A l'aide )
 
Merci a tous  
Thomas