[VBA-E]Ouvrir une BDD access sous Excel

Version imprimable

[resolu][VBA-E]Ouvrir une BDD access sous Excel

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:

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.

02/05/2006, 14h28
SfJ5Rpw8

sur qu'elle ligne l'erreur ?
02/05/2006, 14h37
toniox

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.
02/05/2006, 14h58
SfJ5Rpw8

bon jusque la c'est surement qu'un probléme de référence ... çà rajouter au projet ... Outils Référence Microsoft DAO..
02/05/2006, 15h19
toniox

Resolu

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 .

Un ptit plus

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

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.

02/05/2006, 16h24
SfJ5Rpw8

Citation:

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:

NumFIR = NumFIR + " where Numero_Action = '" & Num_Fir & "'"
02/05/2006, 16h33
toniox

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:

Range("B5").Value=Rdst1("nb").Value

Mais ça a pas l'air de marché.

bbil tu m'enverra la note de frais ;).

Antoine.
02/05/2006, 16h40
SfJ5Rpw8

tiens va voir la :

http://warin.developpez.com/access/d...artie_5#L5.4.1
02/05/2006, 16h45
toniox

Ahh super!! Merci jvais me gaver !!!

:)

Meme en recherhce j'ai du mal ( c'est grave doc?)

Encore Merci.

Antoine