Discussion :

[toniox]

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]

sur qu'elle ligne l'erreur ?

[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.

[SfJ5Rpw8]

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

[toniox]

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]

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.