Récupérer un numéro de processus

Version imprimable

23/01/2007, 13h38
Coin

Récupérer un numéro de processus

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.
23/01/2007, 14h19
AlainTech

Quel est ton environnement de développement?
23/01/2007, 14h44
Coin

Désolé :oops:

je suis en VB6 SP6
23/01/2007, 17h47
AlainTech

Si tu nous montrais ton code où tu lances Excel...
24/01/2007, 08h27
Coin
Voici mon code qui permet d'ouvrir un fichier Excel :
Code:

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. :(
29/01/2007, 16h16
Vld44

xlApp.Quit ?
29/01/2007, 21h13
AlainTech

Citation:

Envoyé par Vld44

xlApp.Quit ?

Heu... Ca donne un numéro de process, ça?
30/01/2007, 10h26
Vld44

Citation:

Envoyé par Coin

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

Citation:

Envoyé par Coin

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 ...
01/02/2007, 07h41
Delbeke

c'est encore pire que çà, il faut le handle de la fenetre qui contient le document !
01/02/2007, 18h18
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.
01/02/2007, 18h39
ProgElecT
Citation:

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:

1 2 3 On Error Resume Next xlapp.quit If Err.Number <> 0 Then Err.Clear
02/02/2007, 09h07
Coin
Salut,
Citation:
Non si dans la procedure de fermeture, Unload ou QueryUnload

Code:

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:

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

Ok cela fonctionne dans tout les cas avec le xlapp.quit, mais je ne trouve pas la méthode très propre.

Merci pour l'indice.

Voici mon code pour gérer les erreurs, cela pourra peut être servir à d'autre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
Public Sub GestionErreur(Nbre As Long, Mess As String)
    On Error Resume Next
 
    Dim trouve As Boolean
    Dim i As Integer
    Dim SQL As String
    Dim fso As Scripting.FileSystemObject
    Dim test As String
    Dim f
    Dim myname As String
    Dim dd As DAO.Database
    Dim Envoi As DAO.Recordset
    Dim dbs
 
 
 
    Set dd = DBEngine.OpenDatabase("d:\GestErreur.mdb")
    Set Envoi = dd.OpenRecordset("TableEnvoi", dbOpenTable)
 
 
 
 
    While Not Envoi.EOF
        If Command <> "" Then
            Shell ("Net send " & Envoi![NumUC] & " Erreur du programme " & App.EXEName & " du client " & Command & vbCrLf & "Erreur N° : " & Nbre & vbCrLf & "Description : " & Mess)
        Else
            Shell ("Net send " & Envoi![NumUC] & " Erreur du programme " & App.EXEName & " " & vbCrLf & "Erreur N° : " & Nbre & vbCrLf & "Description : " & Mess)
        End If
        Envoi.MoveNext
    Wend
 
 
 
    myname = Dir("D:\", vbDirectory)
    Do While myname <> ""   ' Commence la boucle.
        If myname = "Erreur_" & App.EXEName & ".txt" Then
            trouve = True
            Exit Do
        End If
        myname = Dir    ' Extraire l'entrée suivante.
    Loop
 
    If trouve = True Then
 
        Set fso = New Scripting.FileSystemObject
        Set f = fso.OpenTextFile("D:\Erreur_" & App.EXEName & ".txt")
 
        'Lire tout le fichier
        test = f.ReadAll
 
        Open "D:\Erreur_" & App.EXEName & ".txt" For Output As #1
 
        If Command <> "" Then Print #1, "Erreur pour le client : " & Command
        Print #1, "Le " & Now
        Print #1, "Erreur n° : " & Nbre
        Print #1, "Description : " & Mess
        Print #1, ""
        Print #1, test
 
        Close #1
    Else
        Open "D:\Erreur_" & App.EXEName & ".txt" For Output As #1
        If Command <> "" Then Print #1, "Erreur pour le client : " & Command
        Print #1, "Le " & Now
        Print #1, "Erreur n° : " & Nbre
        Print #1, "Description : " & Mess
        Close #1
    End If
 
    xlApp.Quit
    If err.Number <> 0 Then err.Clear
End Sub

Mon code permet, lors d'une erreur, de créer un fichier txt et d'envoyer un ou plusieurs net send dont le paramétrage peut se faire à partir d'une base de données Access.

Si quelqu'un à des idées à me soumettre je suis toujours ok.

Merci.

@+.

Bonne journée.

02/02/2007, 14h43
Vld44
Oui j'ai une solution.

1) tu travailles dans un seul projet :
- Dans ton module tu crées une variable publique "m_objMyExcelApp as Excel.Application"
- Dans ta fonction "qui permet d'ouvrir un fichier excel" utilise la variable globale m_objMyExcelApp à la place de ta variable locale
- Dans ta gestion d'erreur dans ton module, teste si m_objMyExcelApp est nothing et sinon fait m_objMyExcelApp.quit
2) la gestion d'erreur et la création de l'app excel sont dans deux projets différents :
- Dans le module du projet qui crée l'app excel tu crées une variable publique "m_objMyExcelApp as Excel.Application"
- Toujours dans ce projet tu ajoutes une classe global multiuse avec comme seule fonction :
  Code:
  
  1 2 3 Public Function GetExcelApp() as Excel.application set GetExcelApp = m_objMyExcelApp End Function
- Dans ta fonction "qui permet d'ouvrir un fichier excel" utilise la variable globale m_objMyExcelApp à la place de ta variable locale
- Dans ta gestion d'erreur dans ton module, teste si GetExcelApp est nothing et sinon fait GetExcelApp.quit
Voilà.

EDIT : cela suppose que tu n'ouvres les applis excel qu'une par une.
20/04/2007, 15h54
toutyx

Bonjour,
j'ai le meme probleme, J'ai une application qui tourne et qui travaille sur un fichier excel caché à l'utilisateur et quand mon appli ferme ce dernier il me ferme tous les fichiers excel... meme ceux qui sont extérieur à l'appli...

et mon second problème c'est que si un utilisateur ouvre un fichier excel pendant que mon appli travaille avec le fichier caché, il m'affiche ce dernier...

:?
20/04/2007, 16h03
Coin
Salut,

Je pense que ce n'est pas tout à fait le même problème.

je pense que ce post t'apportera une solution :

http://www.developpez.net/forums/sho...d.php?t=314308

essaye :
Code:

1 2 3 4 if xlApp.Workbooks.Count = 1 Then xlApp.Quit Set xlApp = Nothing end if
Coin.
20/04/2007, 16h46
toutyx

Mon probleme c'est que pendant que mon appli tourne mon processus Exel ne se tue pas quand je fais mon Xlsapp.quit. Hors dans ma boucle si je creer 100 fichers exel, tant que mon appli tourne j'aurais 100 processus excel...
20/04/2007, 16h52
Coin

Désolé mais je n'ai pas de méthode.

Mais si tu en trouves une, cela m'intéresse.

Bonne journée.

Coin.
20/04/2007, 16h56
toutyx

je crois avoir trouvé une méthode mais bon c'est pas beau

tu ouvres 2 processus excels
1 pour mon appli et 1 autre fantome au cas ou un utilisateur ouvre un fichier excel
du coup au moment de kill, je kill le workbook de mon appli et si le workbook de l'autre proccess n'est pas le mien je le laisse pour le fichier externe à mon appli sinon je kill les deux...

je sais que ca marche mais c'est pas beau...