Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1273 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA WORD] Liste deroulante avec source Excel

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA WORD] Liste deroulante avec source Excel

n°2050367
TPI
Posté le 20-01-2011 à 09:13:27  profilanswer
 

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

mood
Publicité
Posté le 20-01-2011 à 09:13:27  profilanswer
 

n°2051348
tpi-voisin
Posté le 24-01-2011 à 10:33:06  profilanswer
 

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.

n°2051360
TPI
Posté le 24-01-2011 à 11:28:11  profilanswer
 

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:  

tpi-voisin a écrit :

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


Merci de m'en garder un morceau...
 
Bien à toi :hello:  
 
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA WORD] Liste deroulante avec source Excel

 

Sujets relatifs
Excel 07 / Copier coller dans des sheets[VBa Excel]Programme gestion d'absence
[VBA] Equivalent du .GetOpenFilename dans Word[VBA] faisabilité
[VBA access] Copie de graphique Access vers Excel[VBA] Adapter la taille de plusieurs images pour impression
[VBA Excel 2003 - débutant] Macro et renommage d'un classeur Excell 
Plus de sujets relatifs à : [VBA WORD] Liste deroulante avec source Excel


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR