Discussion :

[law56100]

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

[Jean-Philippe André]

Bonjour,
le plus judicieux serait dans un premier temps de supprimer la ligne de On Error Goto, ce afin d'en savoir plus sur les éventuelles erreurs qui peuvent survenir.


Dis nous si avec cette ligne en moins tu arrives à avancer.