Discussion :

[lyxthe]

je voudrais exporter le résultat d'une requête depuis access vers Excel. Je crées donc ma requête et j'execute cette exportation ainsi :

Code :

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

1
2
3
4
5
6
Private Sub btn_exportexcel_Click()
Dim lq_req As QueryDef
Set lq_req = CurrentDb.CreateQueryDef("requete_xls", lst_Objets_2.RowSource)
DoCmd.OutputTo acOutputQuery, "requete_xls", acFormatXLS, , True
DoCmd.DeleteObject acQuery, "requete_xls"
End Sub

le problème c'est que pendant mes tests, il m'arrive que le fichier dans lequel je souhaite enregistrer mes resultats ne soit pas accessible.

Aparait alors une fenetre d'erreur me proposant le débugage. Le soucis c'est que le programme s'arrete et ne détruit plus requete_xls
donc quand je réexcute l'option la requete existe déjà et ça ne marche pas.

J'ai donc tenté de créer une gestion d'erreure :

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
Private Sub btn_exportexcel_Click()
 
Dim lq_req As QueryDef
 
Set lq_req = CurrentDb.CreateQueryDef("requete_marwane_xls", lst_Objets_2.RowSource)
On Error GoTo excel_error
 
DoCmd.OutputTo acOutputQuery, "requete_marwane_xls", acFormatXLS, , True
On Error GoTo excel_error
 
DoCmd.DeleteObject acQuery, "requete_marwane_xls"
Exit Sub
 
excel_error:
    MsgBox "error"
    DoCmd.DeleteObject acQuery, "requete_marwane_xls"
 
End Sub

mais cela ne change strictement rien. Pourquoi la gestion d'erreure ne s'applique pas?

[Lou Pitchoun]

Salut,
pour la gestion d'erreur : tu ne récupères par le numéro de l'erreur : donc ça ne fonctionne pas !!

Code :

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

On Error GoTo excel_error

Pas besoin de le mettre plusieurs fois.. tu le mets une fois en début de procédure : ca suffit.

C'est l'existance de la requête ou du fichier excel qui pose problème ??
Dans les 2 cas, procèdes ainsi :

1. Tester si ton fichier/requete existe
2. S'il existe : tu le supprimes/modifie le SQL de la requête
3. Ensuite tu fais ton exportation

Pour toutes ces choses : voir la

[lyxthe]

ok merci je v etudier tout ça

[lyxthe]

en fait j'ai réussi à tester si la requete existait ou non, de ce côté là c'est bon, mais pour ce qui est du fichier, il est laissé libre choix à l'utilisateur de l'entrer, et il peut choisir un fichier déjà utilisé ou dont il n'a pas les droits auquel cas un message d'erreur apparait.
Le plus simple serait donc pour moi d'effectuer un contôle des erreures et de gérer l'événement en demandant à l'utilisateur de réessayer.
donc il me fait bel et bien gérer les erreures. Enfin je crois, donc comment je fais pour capter cette erreure :

Code :

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

1
2
DoCmd.OutputTo acOutputQuery, "requete_marwane_xls", acFormatXLS, , True
On Error GoTo excel_error

on error là ne marche pas

[Lou Pitchoun]

Le on error doit être au début
exemple

Code :

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

1
2
Private Sub btn_exportexcel_Click()
On Error Goto etiquette

Dans ton cas pour récupérer l'erreur:

Code :

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

1
2
3
excel_error:
    MsgBox "error"
    DoCmd.DeleteObject acQuery, "requete_marwane_xls"

Deviens

Code :

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

1
2
excel_error:
    MsgBox err.number

Recherche dans la FAQ/les sources "tester existence fichier"
recherche également comment supprimer un fichier.
Tu auras alors toutes les réponses à tes questions.

Pour une gestion efficace des erreurs regarde la faq.

PS : ne vois rien d'expéditif la dedans mais
1) je ne réponds pas aux questions par MP (et je ne voulais pas partir sans te donner d'autres infos. Ah oui je ne m'y connais pas trop.. il m'arrive encore de poser des questions
2) je suis en retard.. (comme le lapin blanc d'Alice....)
@++