Discussion :

[JOHN14]

Bonjours à tous.
"Impossible de gérer une érreur émise d'EXCEL". Voilà moi aussi j'exporte vers EXCEL et le problème que je rencontre est le suivant : Quand j'exécute : xlWBook.SaveAS Filename:=ThePath$ & TheFile$ et que TheFile$ exite déjà j'obtiens naturellement un message qui me me demande si je veux le remplacer... Pas de problème quand je réponds "Oui". Le problème se pose quand je réponds "Non", j'ai alors un message d'erreur que je n'arrive pas à intercepter : "Err. '1004': La méthode SaveAs de la classe Workbook a échoué."
Merci a tous ceux qui voudrons bien se pencher sur ce problème.

[pgz]

Bonjour,

Suggestion : regarder si un fichier du même nom existe avant d'enregistrer. Tu peux faire ça avec GetObject(CheminComplet) qui renverra une erreur gérable si le fichier n'existe pas.
Du genre

Code :

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

1
2
3
4
5
6
Dim xl2 as Object, bolFichierExiste as boolean
On Error Resume Next
set xl2 = GetObject(ThePath & TheFile)
bolFichierExiste = (Err.Number =0)
Set xl2 = Nothing
On Error GOTO 0

Aux erreurs de syntaxe près...

Bon courage,

PGZ

[JOHN14]

Merci PGZ pour ton aide.

J'ai testé ton code et il est sans faute. Quand le fichier existe, Ok il le trouve, mais quand il n'existe pas cette fois ça plante. J'ai le message :
"Erreur d'exécution 432 : Nom du fichier ou de la classe introuvable lors de l'opération automation."

Et, les instructions On Error Resume Next ou On Error Goto 0 ne permettent pas ici d'intercepter l'erreur. C'est ça le vrai problème !

Momentanément, j'effectue une recherche avec Application.FileSearch. Je choisis ensuite de supprimer le fichier avant d'utiliser xlBook.SaveAS [...] ou, d'arrêter l'opération en cours.

Cordialement

[JOHN14]

En fait le plus ennuyeux était de ne pas pouvoir gérer l'erreur de .SaveAS "X" liée au fait que le fichier "X" soit présent ne puisse être gérée.

En fait, dans mon access plus aucune erreur n'était gérée...
La cause est trouvée : L’option arrêt sur toutes les erreurs était sélectionnée dans mon éditeur VB.

J'espère que cela pourra servir à quelqu'un.