Bonjour,
J'ai une erreur d'exécution normale et maitrisée dans du code vba.
Quand une erreur est levée, j'affiche le message avec la description de l'erreur et j'arrête la fonction.
Le code Vba est lancé via ExecuterCode dans une macro ACCESS.
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 Function Import_Data(sDestinationtableName As String, sSourceSheetname As String, sRange As String) '---------------------------------------------------------------------------------------------------' ' Import_Data() ' Ajoute les données du fichier Excel chargé en mémoire dans les table de destinantion ' En paramètre : ' - la table de destination ' - la feuille Excel contenant les données ' - la plage de données de la feuille Excel '---------------------------------------------------------------------------------------------------' On Error Resume Next DoCmd.TransferSpreadsheet acImport, 8, sDestinationtableName, "" & excelFile & "", True, sSourceSheetname & "!" & sRange If Err.Number <> 0 Then MsgBox Err.Description, , Err.Number Err.Clear GoTo Fin: End If Fin: End End Function
Avec l'application en accdb, je lève bien l'erreur et la macro s'arrête bien
En version runtime accdr, l'erreur est bien levé mais j'ai en plus une fenêtre avec l'erreur suivante:
Cette application a été arrêtée à cause d'une erreur d'exécution - Elle ne peut continuer et va être fermée
Comment faire pour éviter ce type de message surtout quand l'erreur n'est pas grave, maitrisée et sans conséquence sur le fonctionnement l'application ?
Cordialement
Partager