Discussion :

[DamKre]

Bonjour.

Je tente d'exporter une table vers Excel.

J'ai créé un bouton dans mon fomulaire. Lorsque je clique sur ce bouton, une fenêtre "copier vers" s'ouvre. je peux choisir l'emplacement, ... tout va bien. Je clique sur OK et l'export est réussi.

Subsite un petit problème : imaginez en effet que je me sois trompé, et que je ne souhaite plus exporter. Dans cette fenêtre "Copier vers" et que je clique sur "annuler". Mon problème est le suivant : une fenêtre s'ouvre :

Microsoft Visual Basic

Erreur d'exécution '2501' :
L'action OutputTo a été annulée.

Fin - Débogage

Voici le code que j'ai utilisé :

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
Option Compare Database
 
Private Sub ExportVersExcel_Click()
 
MsgBox "Dans la boîte de dialogue qui suit, indiquez où stocker votre fichier. ", vbInformation + vbOKOnly, "Export de l'historique vers Excel"
 
MsgBox "Afin d'éviter une erreur d'exécution, ne cliquez pas sur le bouton ""Annuler"" ou ne fermez pas la fenêtre, mais enregistrez quand même une copie de votre historique !", vbExclamation + vbOKOnly, " Export de l'historique vers Excel"
 
'Exporter
  DoCmd.OutputTo acOutputTable, "Historique des attributions", acFormatXLS, , 0
 
' Message de réussite
MsgBox "L'export vers Excel a réussi !", vbInformation + vbOKOnly, "Export de l'historique vers Excel"
 
End Sub

Comment faire pour que lorsque je clique sur "annuler" au moment de l'export, il ne m'affiche plus qu'il y a une erreur d'exécution, mais plutôt un message "Vous avez annulé l'export de votre table" ???

Merci à vous.

[pgz]

Bonjour.

Il suffit de poser la question et de traiter la réponse, du genre

Code :

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

1
2
3
4
5
6
7
8
9
iRéponse = MsgBox "Export confirmé?", vbQuestion + vbOKCancel, " Export de l'historique vers Excel"
 
if iRéponse = vbCancel then exit sub
 
'Exporter
  DoCmd.OutputTo acOutputTable, "Historique des attributions", acFormatXLS, , 0
 
' Message de réussite
MsgBox "L'export vers Excel a réussi !", vbInformation + vbOKOnly, "Export de l'historique vers Excel"

C'est juste une piste ...

PGZ

[schwarzy2]

t'as essayé de mettre un truc du genre:
Exit_ExportVersExcel_Click:
Exit Sub

Err_ExportVersExcel_Click:
MsgBox "l'export de votre table n'a pas été réalisé"

mais bon c'est vrai que si tu fais ça même si y'a vraiment une erreur il va te mettre ce message là, mais vu que c'est un message vrai même en cas d'erreur,moi je mettrais ça...

à toi de voir...
t'as aussi la solution de pas faire appel à une MsgBox mais à un formulaire avec des boutons de commande etc...plus casse-pied

[Invité]

Bonjour,

Il faut que tu gères l'erreur avec un code de ce style

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
Option Compare Database
 
Private Sub ExportVersExcel_Click()
on Error Goto GestError
MsgBox "Dans la boîte de dialogue qui suit, indiquez où stocker votre fichier. ", vbInformation + vbOKOnly, "Export de l'historique vers Excel"
 
MsgBox "Afin d'éviter une erreur d'exécution, ne cliquez pas sur le bouton ""Annuler"" ou ne fermez pas la fenêtre, mais enregistrez quand même une copie de votre historique !", vbExclamation + vbOKOnly, " Export de l'historique vers Excel"
 
'Exporter
  DoCmd.OutputTo acOutputTable, "Historique des attributions", acFormatXLS, , 0
 
' Message de réussite
MsgBox "L'export vers Excel a réussi !", vbInformation + vbOKOnly, "Export de l'historique vers Excel"
Exit Sub
GestError:
     If err.number = 2501 Then
     else
          msgbox err.number & " - " & err.Description
     end if
End Sub

Lorsque qu'une erreur survient (déclenché par On Error), le programme t'aiguille vers GestError, si l'erreur est la 2501, rien ne se passe, si c'est une autre erreur la boite de dialogue te l'affiche. Tu peux enlever ton message d'avertissement

Code :

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

MsgBox "Afin d'éviter une erreur d'exécution, ne cliquez pas sur le bouton ""Annuler"" ou ne fermez pas la fenêtre, mais enregistrez quand même une copie de votre historique !", vbExclamation + vbOKOnly, " Export de l'historique vers Excel"

Starec

[DamKre]

à tous

Un grand merci pour vos réponses !

Je touche du bois, maintenant, ça fonctionne !