Discussion :

[Coin]

Bonjour,

Je voudrais gérer les erreurs dans mon programme, ce programme génère un fichier Excel.

Le but est lorsque j'ai une erreur, je voudrais tué le processus Excel.

J'ai trouvé sur la FAQ du code permettant de le faire ; cela fonctionne très bien, mais je tue toutes les tâches Excel.

Pour palier à ce problème je pensais donc récupérer le numéro ID du processus lors de l'ouverture d'Excel, pour, lorsqu'il y a une erreur je tue le processus par son numéro et non plus par son nom.

Est-ce que quelqu'un connaît la commande permettant de récupérer le numéro de processus ?

En cas de questions, ne pas hésiter à me la poser.
Merci d'avance.

Coin.

[AlainTech]

Quel est ton environnement de développement?

[Coin]

Désolé

je suis en VB6 SP6

[AlainTech]

Si tu nous montrais ton code où tu lances Excel...

[Coin]

Voici mon code qui permet d'ouvrir un fichier Excel :

Code :

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

1
2
3
4
5
6
 
Set xlApp = New Excel.Application
xlApp.SheetsInNewWorkbook = 1
xlApp.DisplayAlerts = False
 
Set xlBook = xlApp.Workbooks.Add

Le but serai de mémoriser le numéro du processus EXCEL.EXE que je viens de lancer !!!

Pour l'instant je n'ai pas trouvé d'instruction me le permettant.

[Vld44]

xlApp.Quit ?

[Vld44]

Le but est lorsque j'ai une erreur, je voudrais tué le processus Excel.

cela fonctionne très bien, mais je tue toutes les tâches Excel.

Avec ce code il doit pouvoir tuer UNIQUEMENT l'appli excel visée sans passer par je ne sais quel pid ...

[Delbeke]

c'est encore pire que çà, il faut le handle de la fenetre qui contient le document !

[Coin]

Bonjour à tous.

Le problème avec xlapp.quit c'est que si mon programme créer une erreur avant de lancer l'application EXCEL, je vais créer une nouvelle erreur, puisqu'il voudra fermé une application n'ayant pas été ouverte.

A moins que l'on puisse testé si l'application à bien été lancé ?

Je voudrais éviter d'avoir recours à un flag lorsque je lance mon application.

Merci d'avance.

Coin.

[ProgElecT]

je vais créer une nouvelle erreur, puisqu'il voudra fermé une application n'ayant pas été ouverte.

Non si dans la procedure de fermeture, Unload ou QueryUnload

Code :

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

1
2
3
On Error Resume Next
xlapp.quit
If Err.Number <> 0 Then Err.Clear

[Coin]

Salut,

Non si dans la procedure de fermeture, Unload ou QueryUnload

Code :

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

1
2
3
On Error Resume Next
xlapp.quit
If Err.Number <> 0 Then Err.Clear

Je ne suis pas sur que ça fonctionne, car j'ai créé un module permettant de gérer les erreurs, càd de les enregistrées dans un fichier txt, et d'envoyer un net send aux personnes concernées.

Et c'est dans ce module que je voudrais tuer le processus correspondant...

Je vais tester quand même, car j'ai peur que ça plante car au début de mon code j'ai mis :

Code :

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

1
2
3
4
5
6
7
8
On error goto fin
.
.
.
fin :
      If err.Number <> 0 then
                    call GestionErreur(err.number, err.description)
       end if