[VBA WORD] Liste deroulante avec source Excel

Marsh Posté le 20-01-2011 à 09:13:27

Bonjour,

Je cherche a creer une liste déroulante dans un fichier word "RECAP.doc" dont l'origine des propositions de la liste serait dans une fichier excel "AFFECTATION.xls" dans l'onglet "TRACABILITE" dans les case A1 à A40

Je connais plutot bien le VBA sur Excel mais sur word tout me parait plus compliqué!

Quelqu'un pour me mettre sur la voie du code miracle...?

Merci

Message cité 1 fois

Reply

Marsh Posté le 20-01-2011 à 09:13:27

Reply

Marsh Posté le 24-01-2011 à 10:33:06

TPI a écrit :

Bonjour,

Je cherche a creer une liste déroulante dans un fichier word "RECAP.doc" dont l'origine des propositions de la liste serait dans une fichier excel "AFFECTATION.xls" dans l'onglet "TRACABILITE" dans les case A1 à A40

Je connais plutot bien le VBA sur Excel mais sur word tout me parait plus compliqué!

Quelqu'un pour me mettre sur la voie du code miracle...?

Merci

Salut.

Voila le code pour un fichier excel nommé "Classeur1", une feuille "Feuil1" et une liste déroulante nommée "LST".
Il faut activer Microsoft Excel X.0 Object Library dans les Références.

Citation :

Sub RemplirCombo()
ExcelFile = "C:\Documents and Settings\admin\Bureau\Classeur1.xls"
Table = "Feuil1"
Set xlAppList = CreateObject("Excel.Application" )
Set MyWorkbook = xlAppList.Workbooks.Open(ExcelFile, 0, , , "" )

MyWorkbook.sheets(Table).Select
'pour trouver la derniere cellule remplie dans la colonne
For Each c In ActiveSheet.Range("A1", "A" & Trim(Str(Cells(65535, 1).End(xlUp).Row)))
LST.AddItem sheets(Table).Cells(c.Row, 1)
Next
MyWorkbook.Close savechanges:=True
Set xlAppList = Nothing
Set MyWorkbook = Nothing
End Sub

Bonne journée. Je vais manger un gâteau.

Message cité 1 fois

Reply

Marsh Posté le 24-01-2011 à 11:28:11

Cher collegue en face de mon bureau, je te remercie vivement de t'être interressé a mon problème et en plus d'en avoir trouvé la soultion
Je parlerai de toi à ton chef! :bounce: