Bonjour a tous,

J'ai adapté le code suivant pour récupérer la table complete d'un fichier access, mais je ne voudrais pas importer la totalité de la table, mais juste le premier champ qu eje voudrais mettre dans un Combobox d'un Userform.

Déjà avec le code d'import d'une table access je suis largué donc du coup je suis bloqué pour avancer sur le reste.

Donc si quelqu'un veux bien me donner un coup de pouce, merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub ImportTableAccess()
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Fld As ADODB.Field
Dim Fichier As String
Dim x As Integer
Fichier = "C:\V10\AM Création\DB\mmatv10.mdb"
Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Fichier & ";"
Set Rs = New ADODB.Recordset
With Rs
.ActiveConnection = Cn
.Open "SELECT * FROM Materials", , adOpenStatic, adLockOptimistic, adCmdText
End With
ActiveSheet.Range("A2").CopyFromRecordset Rs
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub