Discussion :

[curt]

Bonjour à tous,

j'ai une base Access (TblTypeGroupe) et une feuille Excel.
Je voudrais pouvoir créer une liste déroulante dans Excel qui aille lire les données de la table TblTypeGroupe.

N'étant pas trop au fait d'Excel, pourriez-vous m'aidez ?
D'avance merci.

Curt

[Invité]

Bonjour

La liste déroulante Excel a une méthode qui est Additem, voir tu peux donc alimenter celle-ci en parcourant les enregistrements de ta table à l'aide de la bibliothèque DAO.

Starec

[curt]

oulala !!! Aurais-tu un exemple qui pourrait m'aiguiller. Parce que là, je ne mâîtrise pas.

Merci pour la réponse en tout cas.
Curt

[Invité]

Bonjour,

-Le menu en B2 est crée avec : Données/Validation/Liste =MaListeAccess.
-La liste est créée dans l'onglet Liste lorsque l'opérateur selectionne la cellule B2.
- Le nom de champ MaListeAccess est:=DECALER(Liste!$A$2;;;NBVAL(Liste!$A:$A)-1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$B$2" Then
    repertoire = ThisWorkbook.Path & "\"
    Set cnn = New ADODB.Connection
    cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & repertoire & "Access2000.mdb"
    Set rs = cnn.Execute("SELECT nom_client FROM client Order By nom_client")
    Sheets("Liste").[A2].CopyFromRecordset rs
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
   End If
End Sub

JB