Bonjour tout le monde,
je viens de commencer le VBA et je cherche à mettre en place un formulaire dynamique sur Excel. J'ai des categories que je selectionne avec un OptionButton et après en fonction de la catégorie selectionnée, je voudrais pouvoir modifier le contenu de la listBox detailTheme. Mais les "details des categories" sont stockés sous une base Access.

J'ai un probleme au niveau de la connection a la database Access (ligne 7)
Il me dit "erreur 3706, impossible de trouver le fournisseur. Il est peut être mal installé".

J'ai importé la librairie ADODB mais y en a t'il une autre a importer? Pourquoi ne reconnait-il pas le chemin d'acces de la base ? Et sinon ya t'il un autre moyen de faire.

J'ai mis tout le code mais bon vu qu'à partir de la ligne 7, il plante, je sais ps si ça marche

Je remercie tous ceux qui prendront le temps de lire ce message

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
1  Dim cnnConn As ADODB.Connection
2  Dim rstRecordset As ADODB.Recordset
3  Dim cmdCommand As ADODB.Command
 
'Ouvrir la connection
4  Set cnnConn = New ADODB.Connection
5  With cnnConn
6    .ConnectionString = "Provider=Microsoft.Jet.OLEBD.4.0"
7    .Open "C:\DictionnaireDonnees.mdb"
8  End With
 
‘La commande
9  Set cmdCommand = New ADODB.Command
10 Set cmdCommand.ActiveConnection = cnnConn
11 With cmdCommand
12     .CommandText = "SELECT nomAppl " & _
13                            "FROM dictionnaire " & _
14                            "WHERE nomTable = 'Acxiom'" & _
15                            "ORDER BY nomAppl"
16     .CommandType = adCmdText
17     .Execute
18 End With
 
'On ouvre le recordset.
19 Set rstRecordset = New ADODB.Recordset
20 Set rstRecordset.ActiveConnection = cnnConn
21 rstRecordset.Open cmdCommand
 
'On s'assure qu'on a recupere l'enregistrement
22 If Not rstRecordset.EOF Then
23 UserForm1.detailTheme.Clear
24 For Each i in rstRecorder
25     UserForm1.detailTheme.AddItem rstRecorder(i)
26 Next i
27 Else
28     MsgBox "Erreur", vbCritical
29 End If
 
'Fermeture de la connexion et initialisation
30 cnnConn.Close
31 Set cmdCommand = Nothing
32 Set rstRecordset = Nothing
33 Set cnnConn = Nothing


Je fais du vb depuis 2 jours et c’est bien mais on trouve pas tous bien que ce forum m’ai pas mal aidé

Peut-être que j’ai une librairie à importer en plus de celle ADODB