Probleme de message d'erreur. Je teste cette fonction, je n'ai pas installé le driver odbc HyperFileSQL donc j'ai une erreur.

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
Private Sub ConnexionODBC()
    Dim strConnWinpaie As String
    Dim strConnWinpaieRef As String
    
    ' Connexion à la base hyperfile par lien odbc
    Set ConnWinPaie = New ADODB.Connection
    Set ConnWinPaieRef = New ADODB.Connection

    On Error GoTo errorhandler
    
    ' Connexion base WinPaie
    strConnWinpaie = "DRIVER={HyperFileSQL};DSN=Winpaie;ANA=" & RepWinpaie & AnalysWinpaie & ";REP=" & RepFichiers & "\;Server Name=;Server Port=;Database=;UID=;PWD"
    ConnWinPaie.ConnectionString = strConnWinpaie
    ConnWinPaie.Open

    ' Connexion base WinPaie
    strConnWinpaieRef = "DRIVER={HyperFileSQL};DSN=Winpaie;ANA=" & RepWinpaie & AnalysWinpaie & ";REP=" & RepFichiersRef & "\;Server Name=;Server Port=;Database=;UID=;PWD"
    ConnWinPaieRef.ConnectionString = strConnWinpaieRef
    ConnWinPaieRef.Open

    Exit Sub
    
errorhandler:
        
        MsgBox Err.Number & vbLf & Err.Description, vbCritical, "ERREUR Connexion ODBC"

        'Quitte Excel
        Application.Quit
        'Libère la mémoire
        Set ApplicationExcel = Nothing
       
End Sub
Donc j'ai le message de ma msgbox (en rouge) je valide l'erreur et au lieu de quiter l'application (en bleu), il m'ouvre une autre feêntre d'erreur avec erreur "3709"...

pourquoi???

cordialement law56100