[VBA-E]Ouvrir une BDD access sous Excel

**toniox** · 02/05/2006, 13h40

Hello ,

J'ai besoin d'acceder à des données de ma base de donnée access sous excel .J'ai une macro qui utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Db As DAO.Database .....
........
 
'Mise en sablier du curseur
Feuille.Application.Cursor = xlWait
'Appel de la procédure alimentant la base ACCESS
Call Alimentation_Access
'Connection DAO à la base MS-ACCESS
Set Db = DBEngine.Workspaces(0).OpenDatabase(Ip & Chemin)
.....

Et ça ne marche pas pour ma nouvelle macro.Erreur de type.

Je ne trouve pas sur le forum ni sur la FAQ une manièere standard de faire cette opération.

MErci à vous.

**SfJ5Rpw8** · 02/05/2006, 14h28

sur qu'elle ligne l'erreur ?

**toniox** · 02/05/2006, 14h37

Salut BiBil ,

L'erreur ce situ direct sur la declaration des variables : Erreur de compilation .Type defini par l'utilisateur non defini :

Public Db As DAO.Database

Merci beaucoup.

**SfJ5Rpw8** · 02/05/2006, 14h58

bon jusque la c'est surement qu'un probléme de référence ... çà rajouter au projet ... Outils Référence Microsoft DAO..

**toniox** · 02/05/2006, 15h19

Je suis vraiment desolé d'etre aussi nul mais le vba je debute j'y avais jamais touché je savais même pas que ça existait lol.

Merci ça a l'air de fonctionner .

**toniox** · 02/05/2006, 16h22

L'acces à la base à l'air de bien ce faire mais maintenant j'ai des probleme avec ma requete :

Code :

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

1
2
3
4
5
6
7
Dim NumFIR As String
Dim Rdst1 As Recordset
..............................................
Num_Fir = Range("A" + Trim(Str(nLigne_Liste))).Value
NumFIR = "select champ35 from CRM21_Fir_histo "
NumFIR = NumFIR + " where Numero_Action = " & Num_Fir
Set Rdst1 = Db.OpenRecordset(NumFIR, dbOpenSnapshot)

Il faut que le Numero FIR & Num_Fir soit entre cote ' ' et ça j'arrive pas à le faire. Je ne c pas comment utilisé les variables en vba.

Merci pour l'aide.

**SfJ5Rpw8** · 02/05/2006, 16h24

Envoyé par toniox

L'acces à la base à l'air de bien ce faire mais maintenant j'ai des probleme avec ma requete :

Dim NumFIR As String
Dim Rdst1 As Recordset
..............................................
Num_Fir = Range("A" + Trim(Str(nLigne_Liste))).Value
NumFIR = "select champ35 from CRM21_Fir_histo "
NumFIR = NumFIR + " where Numero_Action = " & Num_Fir
Set Rdst1 = Db.OpenRecordset(NumFIR, dbOpenSnapshot)

Il faut que le Numero FIR & Num_Fir soit entre cote ' ' et ça j'arrive pas à le faire. Je ne c pas comment utilisé les variables en vba.

Merci pour l'aide.

Code :

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

 NumFIR = NumFIR + " where Numero_Action = '" & Num_Fir & "'"

**toniox** · 02/05/2006, 16h33

bbil -> Merci beaucoup pour la rapidité de tes reponses !!

C'est la première fois que j'utilise les Recordset je fais comment pour ensuite récupérer la valeur retourner dans Rdst1 . Normalement c'est un code postal que je recuppere, j'ai penser à ça par ex :

Code :

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