Gérer plusieurs Excel

Bonjour à tous,

J'ai plusieurs applications VB qui se lance en même temps. Chaques Application VB ouvre un Excel. Jusqu'ici rien de bien méchant. :D

Voilà mon problème c'est que régulièrement mes applications tombent en Carafe, l'erreur est :

Citation:

---

Envoyé par msgbox

Erreur n° : 1004
Description : La méthode '~' de l'objet '~' a échoué

---

En creusant cette erreur, il s'est avérer qu'elle se produit lors de la fermeture du premier excel.

Par exemple :
Mon programme1 ouvre l'Excel1 (Processus 1000) (1er à ce lancer)
Mon programme2 ouvre l'Excel2 (Processus 1100)

Si mon Programme1 ferme l'Excel1 alors le programme2 me retourne cette erreur. 8O

En revanche si le programme2 ferme l'Excel2 avant, il n'y a pas soucis.

J'ai l'impression que l'Excel1 est maître sur l'Excel2.

Je voudrais savoir si il est possible de configurer quelques part pour que mes 2 Excel n'est pas de liens entre eux, ou si quelqu'un pouvais m'expliquer cette erreur.

Merci d'avance.

Coin

Hmm je crois que tu es sur la piste. Je ne manipule jamais excel par VB, mais je sais que si tu ouvres plusieurs documents à la main il n'y a qu'un seul excel d'ouvert ...

Tu pourrais gérer un compteur de documents ouverts, et lorsque plus aucun ne l'est pratiquer le excelApp.quit non ?

Bonjour,

tu termines ton instance Excel de quelle façon ? appXl.Quit ?

Et l'ouverture ? Tu nous montres un peu de code ? (de chaque appli, même si je suppose que c'est la même chose)

Je dirais à priori qu'il ne faut gérer qu'une seule instance (comme le dit Vld), et contrôler si elle existe déjà pour l'ouverture, idem pour la fermeture : lier les applications entre elles pour quitter Excel à la fermeture de la dernière application.

Bonjour

Je pense que tu devrais jouer sur la fermeture du classeur

Code:

---

application.Workbooks(NomDeTonClasseur).Close

---

A mettre dans chaque appli VB qui ferme son propre classeur

Starec

mon code est le suivant :

Pour l'ouverture :

Code:

---

1 2 3 4

Set xlApp = New Excel.Application xlApp.DisplayAlerts = False xlApp.SheetsInNewWorkbook = 1 Set xlBook = xlApp.Workbooks.Add

---

Pour la fermeture j'utilise :

Code:

---

1 2 3

xlBook.Close xlApp.Quit Set xlApp = Nothing

---

Ce que vous êtes tous en train de me dire ; c'est que je dois laissé mon processus ouvert en permanence mais seulement ouvrir des classeurs ?

Je ne comprends pas bien comment je vais faire le lien entre VB et l'application Excel.

Coin.

Re

Essaye ce code

Code:

---

1 2 3 4

if xlApp.Workbooks.Count = 1 Then xlApp.Quit Set xlApp = Nothing end if

---

J'ai testé le principe sous Excel cela fonctionne, je n'ai pas VB6 sous la main.

C'est à mettre dans chaque programme VB.

Le principe est de compter le nombre de classeurs, quand c'est le dernier on ferme

Starec

Citation:

---

Envoyé par Starec

Code:

---

1 2 3 4

if xlApp.Workbooks.Count = 1 Then xlApp.Quit Set xlApp = Nothing end if

---

---

ça ne serai pas plutot :

Code:

---

1 2 3 4

if xlApp.Workbooks.Count = 0 Then xlApp.Quit Set xlApp = Nothing end if

---

Je test et je tiens au courant.

coin

Bonjour à tous,

Starec ton code fonctionne.

En revanche mon problème n'est pas résolu, car cette erreur arrive également lorsque un seul programme fonctionne...

Après une multitude de test :bug: , je me suis rendu compte que le programme se plantais avec la même erreur si je ferme en réalité le Classeur et non l'application...

Comment je peux perdre le lien entre mon appli VB et mon Classeur Excel ?

Comment faire pour optimiser mon code :

Code:

---

1 2	Set xlBook = xlApp.Workbooks.Add xlBook.Close

---

Merci d'avance

Coin.

Et le bon vieux

Code:

---

On Error Resume Next

---

?

Citation:

---

Envoyé par Delbeke

Et le bon vieux

Code:

---

On Error Resume Next

---

?

---

Pour ça j'ai ma gestion d'erreur qui marche parfaitement !!! ;) (voir le post de l'autre jour)

Mais le problème c'est que je ne pas faire tout mes traitements.

Dans mon programe, j'utilise plusieurs classeurs, et j'en ai jamais deux d'ouvert en même temps. Donc lorsque mon programme me retourne cette erreur, le traitement n'est pas terminé (Par exemple j'ai traité 2 classeurs sur 3).

Coin.