VB6: tuer le processus Excel

**Svart26** · 11/07/2006, 20h16

Bonsoir,

J'ai un soucis concernant l'arrêt total du processus Excel qui persiste dans le gestionnaire de programme .

Voici la partie "problématique":

Code :

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

1
2
3
4
5
6
7
 
Dim wk as Object
Set wk=Workbooks.Open(FileName="C:\\......\Bilan.xls")
....
....
wk.close
Set wk = Nothing

Malgré les lignes de destruction de fin de code, le processus Excel reste en exécution, je n'ai pas saisi pourquoi...

Merci de vos suggestions

**Leray** · 11/07/2006, 20h20

Salut

Et avec :

Code :

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

wk.Quit

juste après le Close ?

**SfJ5Rpw8** · 11/07/2006, 20h52

au cas ou , pour sortir sans sauver:

Code :

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

1
2
 
wk.close false

**Svart26** · 11/07/2006, 21h36

Envoyé par Leray

Salut

Et avec :

Code :

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

wk.Quit

juste après le Close ?

Je ne suis pas sur que cette instruction existe???

Application.Quit ne m'a pas satisfait n'ont plus...ou à moins que ca soit parce que Excel n'est plus considéré comme l'appli active au moment de quitter...

Pour le wk.close False j'ai essayé, mais merci à vous deux quand même

Le problème vient peut être d'une autre partie de mon code, pourtant dans l'exécution pas à pas, c'est bien d'ici que semble venir mon soucis

**Leray** · 11/07/2006, 21h46

Tu devrais aller consulter le tutoriel suivant :

http://drq.developpez.com/vb/tutoriels/Excel/

**Svart26** · 11/07/2006, 22h30

Merci Leray

Je vais imprimer tout ca pour demain, histoire de tester...

**Svart26** · 12/07/2006, 20h33

En fait mon problème est un peu plus compexe que cela...

Il s'avère que je procède à la lecture de certaines valeurs dans divers fichiers Excel. (Dans une boucle)...De ces valeurs lues, j'en fait un graphique (Chart).

Ensuite, je lance l'ouverture de fichiers Excel via OLE (en cliquant sur un bouton). La fenêtre Excel s'ouvre, ca marche. Je la referme (Excel Compris). Je reclic alors sur le bouton qui lance cette fenêtre, et là je ne vois apparaitre que les contours de la fenêtre Excel, et pas son contenu (comme si il manquait de la RAM). Le lancement ne marche donc qu'une fois.

Par contre, si, une fois mon premier classeur ouvert, je ne referme que celui ci (et donc que je laisse Excel lancé), là le lancement d'autres classeurs via OLE fonctionne.

Là j'ai pas le code sous la main alors ca doit paraître vague (même sur

)...je le récupererai demain...

**jmfmarques** · 12/07/2006, 20h49

Et voilà que nous apprenons que OLE est utilisé !
Mieux vaut tard que jamais pour dire ces choses essentielles.

Alors là oui : ton code va devoir nous être montré avec précision quant au lancement de OLE, pardi....

**Svart26** · 17/07/2006, 20h17

lol..

Voici le code coupable:

Code permettant la lecture de certaines données dans divers classeurs Excel

Code :

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

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
Set FS = CreateObject("Scripting.FileSystemObject")
 
If FS.FolderExists(Chemin & "\" & Name & "\" & cmd_Annee.Text) = True Then
    Set Rep = FS.GetFolder(Chemin & "\" & Name & "\" & cmd_Annee.Text)
 
 
    For Each ssrep In Rep.subFolders
        If ssrep.Name = "Janvier" Then
            i = 1
       (...)
 
        ElseIf ssrep.Name = "Décembre" Then
            i = 12
        End If
 
        'Ouverture des fichiers Excel à lire
        Set wk = Workbooks.Open(FileName:=Chemin & "\" & Name & "\" & an & "\" & ssrep.Name & "\" & "Res.xls")
 
 
        (....)
 
        wk.Close (False)
        Set wk = Nothing
 
    Next
End If

Une fois cette opération réalisé, je lance quelques fichiers Excel par l'intermédiaire d'un bouton dont le code est le suivant

un objet OLE est dessiné sur une de mes feuille)

Code :

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

1
2
3
4
OLE1.CreateLink Chemin & "\" & Label3.Caption & "\" & cmd_Annee.Text & "\" & cmd_Mois.Text & "\" & "Rep.xls" '
    OLE1.DoVerb
    Application.WindowState = xlMaximized
    ActiveWindow.WindowState = xlMaximized

Excel se lance parfaitement et affiche le classeur voulue.

Je peux alors citer mon message précédent:

Ensuite, je lance l'ouverture de fichiers Excel via OLE (en cliquant sur un bouton). La fenêtre Excel s'ouvre, ca marche. Je la referme (Excel Compris). Je reclic alors sur le bouton qui lance cette fenêtre, et là je ne vois apparaitre que les contours de la fenêtre Excel, et pas son contenu (comme si il manquait de la RAM). Le lancement ne marche donc qu'une fois.

Par contre, si, une fois mon premier classeur ouvert, je ne referme que celui ci (et donc que je laisse Excel lancé), là le lancement d'autres classeurs via OLE fonctionne.

Si l'un de vous à une idée