Liste Déroulante dans word allant chercher des données dans Excel Options
4 réponses
Alex
Bonjour =E0 tous,
Je voudrais savoir s'il y a une possibilit=E9 de cr=E9er une liste
d=E9roulante dans un document word, qui va aller chercher les donn=E9es
correspondant =E0 la s=E9lection dans une feuille de calcul excel ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alex
Re bonjour à tous,
J'apporte quelques précisions à mon premier message :
Avec les discutions que j'ai pu lire sur ce forum, j'ai tenté depuis un document Word d'ajouter un combobox à l'aide de la barre d'outils de controle dans le corps du texte de mon document word. Dans thisdocument (sur VBA) j'ai tenté d'initialisé le combobox afin que ce dernier me rapatrie les données de ma feuille Excel. et j'ai ecrit ceci :
Private Sub ComboBox1__Initialize() Dim xlApp As New Excel.Application Dim MonFichier As Workbook Dim MaFeuille As Worksheet 'On va chercher notre feuille Set MonFichier = xlApp.Workbooks.Open("L:GrporgImmeubleDirection Classeur1.xls") Set MaFeuille = xlApp.Sheets("Feuil1") i = 1
Do If MaFeuille.Range("A" & i).Value = 1 Then ComboBox1.AddItem (MaFeuille.Range("A" & i).Value) End If i = i + 1 Loop Until MaFeuille.Range("A" & i).Value = "" MonFichier.Close xlApp.Quit Set MaFeuille = Nothing Set MonFichier = Nothing Set xlApp = Nothing ComboBox1.ListIndex = 0
End Sub
Je pensais au moins obtenir la valeur de la cellule A1 de feuil1 mais rien ne se passe ?
Pouvez vous m'eclairez un peu plus car c'est la premiere fois que je tente de faire du VBA depuis Word. Je vous remercie par avance de votre aide. Bien cordialement. Alex
Re bonjour à tous,
J'apporte quelques précisions à mon premier message :
Avec les discutions que j'ai pu lire sur ce forum, j'ai tenté depuis
un document Word d'ajouter un combobox à l'aide de la barre d'outils
de controle dans le corps du texte de mon document word. Dans
thisdocument (sur VBA) j'ai tenté d'initialisé le combobox afin que ce
dernier me rapatrie les données de ma feuille Excel.
et j'ai ecrit ceci :
Private Sub ComboBox1__Initialize()
Dim xlApp As New Excel.Application
Dim MonFichier As Workbook
Dim MaFeuille As Worksheet
'On va chercher notre feuille
Set MonFichier = xlApp.Workbooks.Open("L:GrporgImmeubleDirection
Classeur1.xls")
Set MaFeuille = xlApp.Sheets("Feuil1")
i = 1
Do
If MaFeuille.Range("A" & i).Value = 1 Then
ComboBox1.AddItem (MaFeuille.Range("A" & i).Value)
End If
i = i + 1
Loop Until MaFeuille.Range("A" & i).Value = ""
MonFichier.Close
xlApp.Quit
Set MaFeuille = Nothing
Set MonFichier = Nothing
Set xlApp = Nothing
ComboBox1.ListIndex = 0
End Sub
Je pensais au moins obtenir la valeur de la cellule A1 de feuil1 mais
rien ne se passe ?
Pouvez vous m'eclairez un peu plus car c'est la premiere fois que je
tente de faire du VBA depuis Word.
Je vous remercie par avance de votre aide.
Bien cordialement.
Alex
J'apporte quelques précisions à mon premier message :
Avec les discutions que j'ai pu lire sur ce forum, j'ai tenté depuis un document Word d'ajouter un combobox à l'aide de la barre d'outils de controle dans le corps du texte de mon document word. Dans thisdocument (sur VBA) j'ai tenté d'initialisé le combobox afin que ce dernier me rapatrie les données de ma feuille Excel. et j'ai ecrit ceci :
Private Sub ComboBox1__Initialize() Dim xlApp As New Excel.Application Dim MonFichier As Workbook Dim MaFeuille As Worksheet 'On va chercher notre feuille Set MonFichier = xlApp.Workbooks.Open("L:GrporgImmeubleDirection Classeur1.xls") Set MaFeuille = xlApp.Sheets("Feuil1") i = 1
Do If MaFeuille.Range("A" & i).Value = 1 Then ComboBox1.AddItem (MaFeuille.Range("A" & i).Value) End If i = i + 1 Loop Until MaFeuille.Range("A" & i).Value = "" MonFichier.Close xlApp.Quit Set MaFeuille = Nothing Set MonFichier = Nothing Set xlApp = Nothing ComboBox1.ListIndex = 0
End Sub
Je pensais au moins obtenir la valeur de la cellule A1 de feuil1 mais rien ne se passe ?
Pouvez vous m'eclairez un peu plus car c'est la premiere fois que je tente de faire du VBA depuis Word. Je vous remercie par avance de votre aide. Bien cordialement. Alex
Gloops
Alex a écrit, le 08/02/2011 15:48 :
Re bonjour à tous,
J'apporte quelques précisions à mon premier message :
Avec les discutions que j'ai pu lire sur ce forum, j'ai tenté depuis un document Word d'ajouter un combobox à l'aide de la barre d'outils de controle dans le corps du texte de mon document word. Dans thisdocument (sur VBA) j'ai tenté d'initialisé le combobox afin que ce dernier me rapatrie les données de ma feuille Excel. et j'ai ecrit ceci :
Private Sub ComboBox1__Initialize() Dim xlApp As New Excel.Application Dim MonFichier As Workbook Dim MaFeuille As Worksheet 'On va chercher notre feuille Set MonFichier = xlApp.Workbooks.Open("L:GrporgImmeubleDirection Classeur1.xls") Set MaFeuille = xlApp.Sheets("Feuil1") i = 1
Do If MaFeuille.Range("A"& i).Value = 1 Then ComboBox1.AddItem (MaFeuille.Range("A"& i).Value) End If i = i + 1 Loop Until MaFeuille.Range("A"& i).Value = "" MonFichier.Close xlApp.Quit Set MaFeuille = Nothing Set MonFichier = Nothing Set xlApp = Nothing ComboBox1.ListIndex = 0
End Sub
Je pensais au moins obtenir la valeur de la cellule A1 de feuil1 mais rien ne se passe ?
Pouvez vous m'eclairez un peu plus car c'est la premiere fois que je tente de faire du VBA depuis Word. Je vous remercie par avance de votre aide. Bien cordialement. Alex
Bonjour,
Si il y a autre chose que 1, dans la cellule, tu n'importes rien.
C'est exprès ?
Alex a écrit, le 08/02/2011 15:48 :
Re bonjour à tous,
J'apporte quelques précisions à mon premier message :
Avec les discutions que j'ai pu lire sur ce forum, j'ai tenté depuis
un document Word d'ajouter un combobox à l'aide de la barre d'outils
de controle dans le corps du texte de mon document word. Dans
thisdocument (sur VBA) j'ai tenté d'initialisé le combobox afin que ce
dernier me rapatrie les données de ma feuille Excel.
et j'ai ecrit ceci :
Private Sub ComboBox1__Initialize()
Dim xlApp As New Excel.Application
Dim MonFichier As Workbook
Dim MaFeuille As Worksheet
'On va chercher notre feuille
Set MonFichier = xlApp.Workbooks.Open("L:GrporgImmeubleDirection
Classeur1.xls")
Set MaFeuille = xlApp.Sheets("Feuil1")
i = 1
Do
If MaFeuille.Range("A"& i).Value = 1 Then
ComboBox1.AddItem (MaFeuille.Range("A"& i).Value)
End If
i = i + 1
Loop Until MaFeuille.Range("A"& i).Value = ""
MonFichier.Close
xlApp.Quit
Set MaFeuille = Nothing
Set MonFichier = Nothing
Set xlApp = Nothing
ComboBox1.ListIndex = 0
End Sub
Je pensais au moins obtenir la valeur de la cellule A1 de feuil1 mais
rien ne se passe ?
Pouvez vous m'eclairez un peu plus car c'est la premiere fois que je
tente de faire du VBA depuis Word.
Je vous remercie par avance de votre aide.
Bien cordialement.
Alex
Bonjour,
Si il y a autre chose que 1, dans la cellule, tu n'importes rien.
J'apporte quelques précisions à mon premier message :
Avec les discutions que j'ai pu lire sur ce forum, j'ai tenté depuis un document Word d'ajouter un combobox à l'aide de la barre d'outils de controle dans le corps du texte de mon document word. Dans thisdocument (sur VBA) j'ai tenté d'initialisé le combobox afin que ce dernier me rapatrie les données de ma feuille Excel. et j'ai ecrit ceci :
Private Sub ComboBox1__Initialize() Dim xlApp As New Excel.Application Dim MonFichier As Workbook Dim MaFeuille As Worksheet 'On va chercher notre feuille Set MonFichier = xlApp.Workbooks.Open("L:GrporgImmeubleDirection Classeur1.xls") Set MaFeuille = xlApp.Sheets("Feuil1") i = 1
Do If MaFeuille.Range("A"& i).Value = 1 Then ComboBox1.AddItem (MaFeuille.Range("A"& i).Value) End If i = i + 1 Loop Until MaFeuille.Range("A"& i).Value = "" MonFichier.Close xlApp.Quit Set MaFeuille = Nothing Set MonFichier = Nothing Set xlApp = Nothing ComboBox1.ListIndex = 0
End Sub
Je pensais au moins obtenir la valeur de la cellule A1 de feuil1 mais rien ne se passe ?
Pouvez vous m'eclairez un peu plus car c'est la premiere fois que je tente de faire du VBA depuis Word. Je vous remercie par avance de votre aide. Bien cordialement. Alex
Bonjour,
Si il y a autre chose que 1, dans la cellule, tu n'importes rien.
C'est exprès ?
Alex
Bonsoir Gloops,
Merci pour ta réponse, que je n'ai pas bien compris, mais mon interpretation de celle-ci serait que les cellules, qui je l'espere à terme me permettront d'avoir un menu deroulant excel dans une combobox word, sont des données alpha numérique avec en plus des Alt entrée donc sur plusieurs lignes. J'ai aussi essayé d'ecrire sur le forum excel pour le meme probleme mais je n'obtiens pas de résultat. et c'est le Forum Excel qui m'a conseillé de tenté ma chance sur Word J'ai aussi testé des propositions faites sur les deux forums, mais je n'obtiens aucun résultat. Parfois meme ca ne beug meme pas , mais mon combobox reste malgré tout vide. Sur les exemple testé, modifié et trituré, quand ca beug, cela beug parfois rien que sur la déclaration d'excel dans word De plus les exemples que j'ai trouvé il y a systemeatiquement un userform word, or pour ce que je souhaiterais faire, je ne passe pas par un userform puisque j'ai mis le combobox directement sur le document avec la barre d'outils controle. Est ce réalisable malgré tout ? J'ai aussi ajouter dans Outils/Référence du "VBA Word", le Microsoft Excel 10.0 Object Library pensant que le problème pourrais venir de là. Ai je bien fait ? Peut etre que je positionne mal les lignes de commande entre thisdocument, Module 1 reference à normal ? Je te remercie par avance de ta réponse Bien cordialement. Alex
Bonsoir Gloops,
Merci pour ta réponse, que je n'ai pas bien compris, mais mon
interpretation de celle-ci serait que les cellules, qui je l'espere à
terme me permettront d'avoir un menu deroulant excel dans une combobox
word, sont des données alpha numérique avec en plus des Alt entrée
donc sur plusieurs lignes.
J'ai aussi essayé d'ecrire sur le forum excel pour le meme probleme
mais je n'obtiens pas de résultat. et c'est le Forum Excel qui m'a
conseillé de tenté ma chance sur Word
J'ai aussi testé des propositions faites sur les deux forums, mais je
n'obtiens aucun résultat. Parfois meme ca ne beug meme pas , mais mon
combobox reste malgré tout vide. Sur les exemple testé, modifié et
trituré, quand ca beug, cela beug parfois rien que sur la déclaration
d'excel dans word
De plus les exemples que j'ai trouvé il y a systemeatiquement un
userform word, or pour ce que je souhaiterais faire, je ne passe pas
par un userform puisque j'ai mis le combobox directement sur le
document avec la barre d'outils controle. Est ce réalisable malgré
tout ?
J'ai aussi ajouter dans Outils/Référence du "VBA Word", le Microsoft
Excel 10.0 Object Library pensant que le problème pourrais venir de
là. Ai je bien fait ?
Peut etre que je positionne mal les lignes de commande entre
thisdocument, Module 1 reference à normal ?
Je te remercie par avance de ta réponse
Bien cordialement.
Alex
Merci pour ta réponse, que je n'ai pas bien compris, mais mon interpretation de celle-ci serait que les cellules, qui je l'espere à terme me permettront d'avoir un menu deroulant excel dans une combobox word, sont des données alpha numérique avec en plus des Alt entrée donc sur plusieurs lignes. J'ai aussi essayé d'ecrire sur le forum excel pour le meme probleme mais je n'obtiens pas de résultat. et c'est le Forum Excel qui m'a conseillé de tenté ma chance sur Word J'ai aussi testé des propositions faites sur les deux forums, mais je n'obtiens aucun résultat. Parfois meme ca ne beug meme pas , mais mon combobox reste malgré tout vide. Sur les exemple testé, modifié et trituré, quand ca beug, cela beug parfois rien que sur la déclaration d'excel dans word De plus les exemples que j'ai trouvé il y a systemeatiquement un userform word, or pour ce que je souhaiterais faire, je ne passe pas par un userform puisque j'ai mis le combobox directement sur le document avec la barre d'outils controle. Est ce réalisable malgré tout ? J'ai aussi ajouter dans Outils/Référence du "VBA Word", le Microsoft Excel 10.0 Object Library pensant que le problème pourrais venir de là. Ai je bien fait ? Peut etre que je positionne mal les lignes de commande entre thisdocument, Module 1 reference à normal ? Je te remercie par avance de ta réponse Bien cordialement. Alex
Gloops
Alex a écrit, le 09/02/2011 19:33 :
Bonsoir Gloops,
Merci pour ta réponse, que je n'ai pas bien compris, mais mon interpretation de celle-ci serait que les cellules, qui je l'espere à terme me permettront d'avoir un menu deroulant excel dans une combobox word, sont des données alpha numérique avec en plus des Alt entré e donc sur plusieurs lignes. J'ai aussi essayé d'ecrire sur le forum excel pour le meme probleme mais je n'obtiens pas de résultat. et c'est le Forum Excel qui m'a conseillé de tenté ma chance sur Word J'ai aussi testé des propositions faites sur les deux forums, mais je n'obtiens aucun résultat. Parfois meme ca ne beug meme pas , mais mon combobox reste malgré tout vide. Sur les exemple testé, modifié e t trituré, quand ca beug, cela beug parfois rien que sur la déclarati on d'excel dans word De plus les exemples que j'ai trouvé il y a systemeatiquement un userform word, or pour ce que je souhaiterais faire, je ne passe pas par un userform puisque j'ai mis le combobox directement sur le document avec la barre d'outils controle. Est ce réalisable malgré tout ? J'ai aussi ajouter dans Outils/Référence du "VBA Word", le Microsof t Excel 10.0 Object Library pensant que le problème pourrais venir de là. Ai je bien fait ? Peut etre que je positionne mal les lignes de commande entre thisdocument, Module 1 reference à normal ? Je te remercie par avance de ta réponse Bien cordialement. Alex
Bonjour,
Au bout de trois semaines, ma ligne de téléphone a été réparé e. Bonne nouvelle, non ?
Le problème est-il toujours d'actualité ?
Il faudra que je commence par tout relire pour être sûr d'avoir compr is, et que je teste quelque chose dans la semaine. Donc, entre les deux, il se peut que j'aie à reposer une question ou de ux.
Les tests que je pourrai faire, de mémoire, auront lieu sur Office 2003 , sur Windows XP Pro.
Alex a écrit, le 09/02/2011 19:33 :
Bonsoir Gloops,
Merci pour ta réponse, que je n'ai pas bien compris, mais mon
interpretation de celle-ci serait que les cellules, qui je l'espere à
terme me permettront d'avoir un menu deroulant excel dans une combobox
word, sont des données alpha numérique avec en plus des Alt entré e
donc sur plusieurs lignes.
J'ai aussi essayé d'ecrire sur le forum excel pour le meme probleme
mais je n'obtiens pas de résultat. et c'est le Forum Excel qui m'a
conseillé de tenté ma chance sur Word
J'ai aussi testé des propositions faites sur les deux forums, mais je
n'obtiens aucun résultat. Parfois meme ca ne beug meme pas , mais mon
combobox reste malgré tout vide. Sur les exemple testé, modifié e t
trituré, quand ca beug, cela beug parfois rien que sur la déclarati on
d'excel dans word
De plus les exemples que j'ai trouvé il y a systemeatiquement un
userform word, or pour ce que je souhaiterais faire, je ne passe pas
par un userform puisque j'ai mis le combobox directement sur le
document avec la barre d'outils controle. Est ce réalisable malgré
tout ?
J'ai aussi ajouter dans Outils/Référence du "VBA Word", le Microsof t
Excel 10.0 Object Library pensant que le problème pourrais venir de
là. Ai je bien fait ?
Peut etre que je positionne mal les lignes de commande entre
thisdocument, Module 1 reference à normal ?
Je te remercie par avance de ta réponse
Bien cordialement.
Alex
Bonjour,
Au bout de trois semaines, ma ligne de téléphone a été réparé e. Bonne
nouvelle, non ?
Le problème est-il toujours d'actualité ?
Il faudra que je commence par tout relire pour être sûr d'avoir compr is,
et que je teste quelque chose dans la semaine.
Donc, entre les deux, il se peut que j'aie à reposer une question ou de ux.
Les tests que je pourrai faire, de mémoire, auront lieu sur Office 2003 ,
sur Windows XP Pro.
Merci pour ta réponse, que je n'ai pas bien compris, mais mon interpretation de celle-ci serait que les cellules, qui je l'espere à terme me permettront d'avoir un menu deroulant excel dans une combobox word, sont des données alpha numérique avec en plus des Alt entré e donc sur plusieurs lignes. J'ai aussi essayé d'ecrire sur le forum excel pour le meme probleme mais je n'obtiens pas de résultat. et c'est le Forum Excel qui m'a conseillé de tenté ma chance sur Word J'ai aussi testé des propositions faites sur les deux forums, mais je n'obtiens aucun résultat. Parfois meme ca ne beug meme pas , mais mon combobox reste malgré tout vide. Sur les exemple testé, modifié e t trituré, quand ca beug, cela beug parfois rien que sur la déclarati on d'excel dans word De plus les exemples que j'ai trouvé il y a systemeatiquement un userform word, or pour ce que je souhaiterais faire, je ne passe pas par un userform puisque j'ai mis le combobox directement sur le document avec la barre d'outils controle. Est ce réalisable malgré tout ? J'ai aussi ajouter dans Outils/Référence du "VBA Word", le Microsof t Excel 10.0 Object Library pensant que le problème pourrais venir de là. Ai je bien fait ? Peut etre que je positionne mal les lignes de commande entre thisdocument, Module 1 reference à normal ? Je te remercie par avance de ta réponse Bien cordialement. Alex
Bonjour,
Au bout de trois semaines, ma ligne de téléphone a été réparé e. Bonne nouvelle, non ?
Le problème est-il toujours d'actualité ?
Il faudra que je commence par tout relire pour être sûr d'avoir compr is, et que je teste quelque chose dans la semaine. Donc, entre les deux, il se peut que j'aie à reposer une question ou de ux.
Les tests que je pourrai faire, de mémoire, auront lieu sur Office 2003 , sur Windows XP Pro.