Problème de beug

[Wabo]

J'ai un petit souci dans ma macro:

Sub HIIII()
'
' HIIII Macro
' Macro enregistrée le 10/01/2006 par Frédéric WEBER
'

'
Dim Cn As New ADODB.Connection
Dim Fichier As String

Fichier = Application.GetOpenFilename('Base de données (*.mdb), *.mdb')
If Fichier = 'Faux' Then Exit Sub

MsgBox Fichier

'With Cn
'.Provider = 'Microsoft.JET.OLEDB.4.0'
'.Open Fichier
'End With

'
'ma requete
'

'Cn.Close
'Set Cn = Nothing
End Sub

Erreur lors de la ligne : Dim Cn As New ADODB.Connection

Si quelqu'un pouvai jeter un petit coup d oeil

Merci d avance

 

[PascalXLD]

Bonjour (on n'oublie pas le mot magique 😉 )

c'est plutot pour declarer

Dim Cn As ADODB.Connection

et plus tard pour faire ta connexion

Set Cn = New ADODB.Connection

Bon courage

Message édité par: Pascal76, à: 10/01/2006 15:14

 

[wabo]

Re bonjour

désolé d etre osi mauvais en macro. pouvez vous me marquer exactement ce que je dois mettre pour faire fonctionné ma macro

Merci d avance

 

[MichelXld]

bonsoir Wabo , bonsoir Pascal

ta macro ressemble étrangement à celle ci :

Lien supprimé

as tu activé la reference 'Microsoft ActiveX Data Objects x.x Library'
dans l'editeur de macros
Menu Outils
References
coche la ligne 'Microsoft ActiveX Data Objects x.x Library'
Clique sur OK pour valider


bonne soirée
MichelXld