Bonjour

Je tente de me faire une fonction connexion malheureusement lors de l'exécution du script j'ai l'erreur qui suit :

=> Variable objet ou varaible de bloc With non définie.

Je ne parviens pas a comprendre et à corriger l'erreur

I need some help

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
 
Function bdConnect() As Variant
 
 
     'Déclaration des variables communes
    Dim vCnx As ADODB.Connection
    vCnx = New ADODB.Connection
 
    Dim vDsn As String
    vDsn = "DW"
 
    Dim vUser As String
    vUser = "Joss"
 
    Dim vPassword As String
    vPassword = "Aze456&jU"
 
    'Début de la connection
    'Définition de la chaîne de connexion
    vCnx.ConnectionString = "DSN=" & vDsn & ";UID=" & vUser & ";PWD=" & vPassword & ";"
 
    On Error GoTo ErrorHandler
        'ouverture de la base de donnée
        bdConnect = vCnx
 
     Exit Function
 
ErrorHandler:
        'Le code qui s'execute si il y a une erreur
        'Par exemple:
        bdConnect = MsgBox("Erreur n° " & Err.Number & vbCrLf & "Description : " & Err.Description, vbCritical + vbOKOnly, "Erreur d'execution")
 
End Function