Discussion :

[Teddy7]

Bonjour,
Dans mon pgr VB j'ouvre un fichier Excel de la maniere suivante :

Code :

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

1
2
3
4
5
6
7
8
9
 
Public objExcel As Excel.Application
Public objDocumentE As Excel.Workbook
Public FeuilleExcel As Excel.Worksheet 
 
Set objExcel = CreateObject("Excel.Application")
Set objDocumentE = objExcel(L).Workbooks.Open(monfichierExcel)
objExcel.DisplayAlerts = wdAlertsNone 
Set FeuilleExcel = objDocumentE.Sheets(1)

En controlant dans le "Gestionnaire des taches de Windows" (Ctrl + Alt + Suppr) s'ajoute alors un processus 'EXCEL' (faisant 2400k).

Apres avoir utilise le fichier, n'en n'ayant plus l'utilite, je le ferme de la maniere suivante (dans la meme fontion ou je l'ai ouvert):

Code :

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

1
2
3
4
5
6
7
 
objExcel.DisplayAlerts = True 
objDocumentE.Close True   
objExcel.Quit  
Set FeuilleExcel = Nothing
Set objDocumentE = Nothing
Set objExcel = Nothing

Mais la quand je regarde dans le "Gestionnaire des taches de Windows" je constate que le processus est toujours la !!! (il a simplement un peu diminue de taille).
Est-ce la procedure que j'utilise pour fermer Excel qui n'est pas fonctionnelle ou est-ce normal ?

En revanche, quand je ferme mon progarmme VB, la procedure Excel disparaît bien !!!! (sans code particulier ???)

Auriez-vous une explication ?

[DarkVader]

Bonjour,
Un erreur de désinstanciation est typique d'une erreur non gérée dans le code qui empêchera une destruction de l'object en cours.
Par curiosité, crée un formulaire avec un bouton pour l'instanciation et un bouton pour la désinstanciation sans code intermédiaire
et tu constateras que l'instance Excel est bien détruite ...

... enfin, en supposant que tu corriges déjà l'erreur

Code :

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

Set objDocumentE = objExcel(L).Workbooks.Open(monfichierExcel)

Dans tous les cas de figure :
1/ gérer les erreurs directes

Code :

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

if typename(objExcel)<>"Nothing" then ...

2/ utiliser systématiquement des gestionnaires d'erreurs

Code :

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

On Error goto errxxxx 'etc.

Voir tutoriel en rapport

[Teddy7]

Merci DarkVader pour cette reponse.
En faite, j'ai cerné ou est l'erreur (mais je ne me l'explique pas).
Apres avoir ouvert mon fichier excel, je vais chercher le nb de ligne renseignees en faisant:

Code :

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

1
2
 
Nbenreg = Range("A65536").End(xlUp).Row

Puis j'alimente un tableau avec les donnees du fichier en faisant une boucle

Code :

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

1
2
3
4
 
For i = 1 To Nbenreg
 
next

Et a la fin de la boucle, je ferme mon fichier
Ecrit tel quel, la fermeture du fichier ne marche. En revanche, si je remplace
Nbenreg = Range("A65536").End(xlUp).Row par Nbenreg = 2 par exemple, alors la ca marche bien !!!
Evidemment cela ne fait pas ce que je souhaiterai (lire toutes les lignes renseignees) mais la fermeture elle se passe bien. Cela veut donc dire que l'instruction

Code :

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

1
2
 
Nbenreg = Range("A65536").End(xlUp).Row

'bloque' le fichier en utilisation ? comment faire autrement si je veux boucler sur un nombre de ligne non connu a l'avance ?

[DarkVader]

Code :

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

Range("A65536").End(xlUp).Row

est une erreur de conception :
à quel parent penses-tu que l'object Range est attaché ?

[Teddy7]

Ok, j'ai change ma boucle et ca marche
thanks