Discussion :

[Diablange]

Bonjour à tous.
Désolé pour le titre, j'ai pas trouvé mieux !!!

Dans mon code, je crée un objet excel :

Code :

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

1
2
3
4
5
6
7
Set ObjetOLE = CreateObject("excel.Application")
'[...]
'Puis je le ferme
ObjetOLE.application.quit
'[...]
'Puis je le vide, le réutilise pour autre chose, puis le vide encore
ObjetOLE = nothing

Puis je ferme la fonction
Pas de problemes.... sauf s'il y une erreur avant de fermer ma fonction.
La je voudrais tester si mon objet est encore du type excel.application dans ma gestion des erreurs (et dans ce cas le fermer) mais je ne sais pas comment faire :
J'avais pensé à :
If ObjetOLE is excel.application mais cela ne marche pas.
Je tiens particulierement à tester avec excel.application et non "Microsoft Excel" qui est le nom de l'objet.

Comment puis je faire?
Merci à vous
Damien

[Rico Nuch]

Il y a TypeName mais je viens de tester, ça ne renvoie pas "Excel.Application", ça renvoie seulement "Application". Je ne sais pas si ça va faire l'affaire.

Code :

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

1
2
?TypeName(mAppXL)
Application

[iclic]

Bonjour,

Essaie ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim ExcelWasNotRunning As Boolean   ' Indicateur de libération finale.
 
On Error Resume Next   
Set ObjetOLE = GetObject(, "Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear    ' Efface l'objet Err si une erreur s'est produite
 
If ExcelWasNotRunning = True Then ...
        'mon objet n'est pas du type  excel.application

[Diablange]

Merci de vos réponses,
Rico Nuch : Non cela ne me suffit malheuresement pas, je lance également des word avec et cela s'appelle également application.
iclic : J'y avait pensé aussi sauf que si excel était bien fermé mais que l'utilisateur avait une autre session excel en cours en meme temps, cela lui fermera l'autre session. Du coup ca ne me convient pas, je ne voudrais fermer que celui que j'ai ouvert, meme si d'autres sont également ouverts.

Merci à vous pour vos suggestions.
Damien

[l_autodidacte]

Salut;

Il te faut alors utiliser le PID(Process ID) de l'instance ouverte

[Diablange]

C'est effectivement correcte.
Je ne voulais pas vraiment utiliser cette fonction ; même si elle résoud le probleme elle ne répond pas à ma question.
Je crains de ne pas avoir de réponse car ce que je demande est peut etre impossible à savoir tester si un objet est du type excel.application.
Mais si jamais qqn connait l'astuce, n'hésitez pas.
Merci
Damien

[l_autodidacte]

Salut,

Un test avec une instance de l'application Excel ouverte et affichée ou non a permis de voir que c'est l'instance créée par le code suivant qui se ferme uniquement et pas celle déjà en route :

Code :

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

1
2
3
4
5
6
7
8
9
10
 Set ObjetOLE = CreateObject("excel.Application")
   MsgBox "Name : " & ObjetOLE.Name
   ObjetOLE.Application.Quit
   MsgBox "Version : " & ObjetOLE.Version
   Nom = ObjetOLE.Name
   Set ObjetOLE = Nothing
   If Not ObjetOLE Is Nothing Then
    MsgBox ObjetOLE.Name & " est encore activé"
   Else: MsgBox "L'objet " & UCase(Nom) & " a été déchargé = n'est plus accessible", 16
   End If

Si tu mets en commentaire la ligne

Code :

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

Set ObjetOLE = Nothing

tu verras que l'instance est encore active.
Tu remarqueras que même si on quitte l'application (ObjetOLE.Application.Quit), l'objet reste accessible et on peut en avoir le nom, la version .... par exemple
En espérant avoir donné une toute petite raie de lumière