Fermer Excel à partir de Word.

Fermer Excel à partir de Word. - Programmation

Marsh Posté le 25-10-2001 à 12:17:51    

J'ai créé un Userform qui à son initialisation ouvre l'application excel et le fichier qui m'interesse :  
 
       Public Sub UserForm_Initialize()
       Set x = New Excel.Application
       x.Application.Workbooks.Add
       x.Application.Workbooks.Open FileName:="D:\Fichier.xls"
       End Sub
 
Dans ce même Userform, se trouve un bouton de commande qui devrait fermer l'application Excel.
 
      Public Sub CommandButton1_Click()
      x.Quit
      end sub
 
Malheureusement pour moi, dans les processus se trouvent autant d'application excel que de fois où la macro à été lancée...
 
J'ai fait une recherche sur le forum, je trouve un post pour fermer un doc Word à partir d'Excel.... Que je n'arrive pas à transferer.

Reply

Marsh Posté le 25-10-2001 à 12:17:51   

Reply

Marsh Posté le 26-10-2001 à 15:44:38    

Il faut desalouer ton object COM
Set x = nothing 'met ca apres ton quit
 
 

dudley_SMITH a écrit a écrit :

J'ai créé un Userform qui à son initialisation ouvre l'application excel et le fichier qui m'interesse :  
 
       Public Sub UserForm_Initialize()
       Set x = New Excel.Application
       x.Application.Workbooks.Add
       x.Application.Workbooks.Open FileName:="D:\Fichier.xls"
       End Sub
 
Dans ce même Userform, se trouve un bouton de commande qui devrait fermer l'application Excel.
 
      Public Sub CommandButton1_Click()
      x.Quit
      end sub
 
Malheureusement pour moi, dans les processus se trouvent autant d'application excel que de fois où la macro à été lancée...
 
J'ai fait une recherche sur le forum, je trouve un post pour fermer un doc Word à partir d'Excel.... Que je n'arrive pas à transferer.  



Reply

Marsh Posté le 29-10-2001 à 15:18:43    

Merci !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed