Discussion :

[pascalouh]

Bonjour,

Sous access 2000 j'ai une procedure qui ouvre un fichier excel, fait des traitements dessus, sauvegarde et referme.

Cependant, après la procédure, il reste EXCEL.EXE dans les processus windows. Ce qui fait tout planter si je relance la procédure (ce qui amène une autre question mais je fais un autre post pour ça)

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim appli As Excel.Application
Dim classeur As Excel.Workbook
 
Set appli = CreateObject("Excel.Application")
Set classeur = appli.Workbooks.Open("C:\ftamf.xls", False, False)
 
'mes traitements (creation de feuilles et replissage de cellules)
 
classeur.Save
classeur.Close
appli.Application.Quit
Set appli = Nothing
Set classeur = Nothing

Je fais quelque chose de travers ?

Merci

[Invité]

Bonjour

Ici

Code :

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

appli.Application.Quit

Essaye

Code :

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

appli.Quit

Starec

[pascalouh]

Merci.

Mais en fait c'est ce que j'avais au départ. Et comme ça ne marchait pas j'ai tenté d'ajouter le "application".

[pascalouh]

Je viens de remarquer un truc.

EXCEL.EXE reste dans les processus mais il se ferme par contre si je ferme Access...

Ca ne résoud pas le problème mais peut être ça donnera une piste à quelqu'un. Parce que je ne peux pas avancer avant d'avoir trouvé une solution...

[lola06]

Salut,
je ne suis pas une pro mais moi j'essayerai à la place de :

Code :

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

appli.Application.Quit

ceci :

Code :

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

appli.Close

ou des variantes...

j'espère que tu trouvera la solution

[pascalouh]

J'ai testé dans le doute (parce que l'explorateur d'objet ne donne pas de méthode Close pour un objet de ce type mais au point où j'en suis...)

Ca ne fonctionne pas. Close n'est pas reconnu pour un objet application.


Par contre chose intéressante pour faire avancer le schmilblik.
J'ai passé mes traitements en commentaires de façon à n'avoir que l'ouverture d'excel, l'ouverture du fichier, et les fermetures....et là ça marche... Ce serait donc mes traitements qui sont en causes...

Je vais tenter de décommenter ligne par ligne pour voir quelle instruction pose le problème et je vous tiens au courant

[pascalouh]

Bon je pense avoir trouvé (je ne passe pas le tag résolu tant que j'ai pas finis de décommenter tout le code)

Ca pourra toujours servir si des gens ont le même problème

Un moment, je fais une copie d'une feuille avec le code

Code :

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

classeur.Worksheets("1").Copy After:=Worksheets(classeur.Worksheets.Count)

Cette ligne engendre le problème
Et le problème est résolu en mettant :

Code :

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

classeur.Worksheets("1").Copy After:=classeur.Worksheets(classeur.Worksheets.Count)

Comme quoi il vaut mieux toujours préciser le chemin complet jusqu'à l'objet...

[Lou Pitchoun]

Salut

Comme quoi il vaut mieux toujours préciser le chemin complet jusqu'à l'objet...

Sauf si tu fais :

Code :

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

1
2
3
4
5
With classeur
    .range("..").Select
    ....
    .Worksheets("1").Copy After:= .Worksheets(classeur.Worksheets.Count)
End With

[pascalouh]

Bon ben voilà ca marche

Donc toujours faire attention à spécifier les chemin (ou utiliser le with que j'oublie tout le temps, merci kikof )

Merci pour vos réponses

[AlainTech]

La réponse que j'ai mise dans ton autre discussion est donc pertinente.