Discussion :

[JYL74]

Bonjour,
Je galère depuis plusieurs jours sur le problème suivant:
je requete dans un AS400 via ADO (2.8 ext)
Mon code se passe tout à fait normalement, me remonte les informations dont j'ai besoin dans Excel, c'est super !
Pourtant à chaque fois (?) que je veux fermer mon fichier ou quitter Excel, j'ai la fenêtre

Excel à rencontré un problème et doit fermer

.
Je précise que je pense enchainer les opérations "proprement" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ouverture connexion
ouverture recordset
../..
fermeture recordset
fermeture connexion

Le problème est le même avec les modes de connexion suivants:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CnxAS400.Open "provider=IBMDA400;data source=NOMAS400", User, Password

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CnxAS400.Open "DSN=NOMDSN", User, Password

OS400 5.3, Excel 2002
Quelqu'un a-t-il une idée,

Merci

[JYL74]

Le problème ne venait pas de la connexion mais d'un userform mal déchargé.
En rajoutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error GoTo Workbook_BeforeClose_err
    Unload monUserForm
 
    Exit Sub
 
Workbook_BeforeClose_err:
    'si l'objet n'est pas trouvé ...
    If Err.Number = 424 Then Resume Next
 
End Sub

je n'ai plus de soucis.
Merci a ceux qui se sont penché sur mon problème.