Kill process EXCEL.EXE ??? [Résolu]

Signaler
Messages postés
10
Date d'inscription
jeudi 27 septembre 2007
Statut
Membre
Dernière intervention
9 décembre 2008
-
Messages postés
8
Date d'inscription
samedi 6 janvier 2007
Statut
Membre
Dernière intervention
26 septembre 2009
-
Bonjour,

voilà j'ai le problème suivant, mon programme fait appel à excel pour créer une facture puis il ferme excel, le bug survient à la création de la 2eme facture car apparament EXCEL.EXE est resté en mémoire... Comment puis-je tuer le process d'excel??

Merci d'avance

5 réponses

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

Deja un petit truc plutot que defaire comme tu le fais et pour pour eviter d'utiliser la reference Microsoft Excel X.0 Object Library tu peux faire comme ceci:

Dim facture as object
Set facture = CreateObject("Excel.Application")

en suite pour terminer je ferais comme ceci

facture.Close False
facture.Quit
set facture = Nothing.

sinon pour verifier si une session excel cachee est ouverte et pour le tuer le cas echeant tu peux aller voir une de mes sources ici :

http://www.vbfrance.com/codes/TUER-SESSION-CACHEE-EXCEL-PARTIR-AUTRE-SESSION_47514.aspx

A+
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
32
Salut,

Comment ouvres-tu et fermes tu Excel?

Regardes ce source.

http://www.codyx.org/snippet_comment-ouvrir-classeur-excel-vierge-depuis-vb6_202.aspx
Messages postés
10
Date d'inscription
jeudi 27 septembre 2007
Statut
Membre
Dernière intervention
9 décembre 2008

je fais comme ceci:

Set facture = New excel.Application 'ouvre excel
    facture.Visible = False
    facture.Workbooks.Add

'mes procédures.......
'ensuite fermeture

    facture.Visible = True
   
    'sauvegarde
    ChDir "C:"
    ActiveWorkbook.SaveAs FileName:="C:\facturier\fact-" & num & ".xls", FileFormat:=xlNormal _
    , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False
   
    'apercu impression
    ActiveWindow.SelectedSheets.PrintPreview
   
'fermeture
    facture.Workbooks.Close
    facture.Application.Quit
    Set facture = Nothing
Messages postés
10
Date d'inscription
jeudi 27 septembre 2007
Statut
Membre
Dernière intervention
9 décembre 2008

merci c'est nickel!
Messages postés
8
Date d'inscription
samedi 6 janvier 2007
Statut
Membre
Dernière intervention
26 septembre 2009

salut

comment je peux lancer le servur mysql comme service et créer la base de donnée et les privilège

qq un m'aider

et merci