Valeur dans une ComboBox

fait un essais avec
MaVariable = Feuil1.ComboBox1.Value

tini



"Pentium" <Pentium@discussions.microsoft.com> a écrit dans le message de
news:19042744-E0D1-47ED-A15C-7E0F3263BE9E@microsoft.com...

Bonjour,

je dois récupérer des données dans différente cellule afin de pour voir
les

transférer dans une base de données ACCESS. Je me fais un module dans
ACCESS,

pour ouvrir une feuille et récupérer les valeurs dans les cellules pas de
problème, mais pour celle dans une ComboBox que sera la procédure a suivre
afin de prendre la valeur.

Merci beaucoup.

Bonjour,

Je suppose qu'il s'agit d'un ComboBox incorporé dans une feuille Excel.
Si c'est bien le cas voici un code à insérer dans Access.
C'est la propriété "Object" qui indique le texte sélectionné dans le Combo.

'**************************
Option Compare Database
Option Explicit
'#### Constantes à adapter selon vos paramètres ####
Const pathMonClasseur$ = "c:zaza.xls"
Const NomCombo$ = "ComboBox1"
'###################################################
Sub GetComboValue()
Dim MyWB As Object
Set MyWB = GetObject(pathMonClasseur$)
MsgBox MyWB.Sheets(1).OLEObjects(NomCombo$).Object
Set MyWB = Nothing
End Sub
'**********************

Cela vous va-t'il ?

Cordialement.

PMO
Patrick Morange

Bonjour,

je dois récupérer des données dans différente cellule afin de pour voir les
transférer dans une base de données ACCESS. Je me fais un module dans ACCESS,
pour ouvrir une feuille et récupérer les valeurs dans les cellules pas de
problème, mais pour celle dans une ComboBox que sera la procédure a suivre
afin de prendre la valeur.

Merci beaucoup.