KILL "EXCEL.EXE"
Greengold
Messages postés
57
Date d'inscription
mercredi 16 octobre 2002
Statut
Membre
Dernière intervention
31 mars 2004
-
4 août 2003 à 18:32
cs_Axar Messages postés 19 Date d'inscription mardi 4 février 2003 Statut Membre Dernière intervention 12 juillet 2012 - 20 juin 2007 à 15:06
cs_Axar Messages postés 19 Date d'inscription mardi 4 février 2003 Statut Membre Dernière intervention 12 juillet 2012 - 20 juin 2007 à 15:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8141-kill-excel-exe
https://codes-sources.commentcamarche.net/source/8141-kill-excel-exe
20 juin 2007 à 15:06
De plus, dans mon programme je suis amené à réouvrir Excel.
je tente d'entré la commande suivante :
With RapportCl.ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Data Source=192.168.59.37;Use Procedure for Prepare=1;Auto" _
, _
" Translate=True;Packet Size=4096;;Use Encryption for Data=False;Tag with column collation when possibl" _
, "e=False;Initial Catalog=ARCHIVES_TEST"), Destination:=Range("A1"))
.CommandType = xlCmdSql
.CommandText = Array(str_SQL)
.Name = "192.168.59.37 ARCHIVES_TEST ADHMVT"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
'.SourceConnectionFile = _
'"C:\travail\Mes sources de données\192.168.59.37 ARCHIVES_TEST ADHMVT.odc"
.Refresh BackgroundQuery:=False
End With
le programme s'arrete a la premiere ligne et affiche : "Erreur 1004, la méthode 'Range' de l'objet '_Global' a echoué"
pensant que c'etait a cause de l'instance Excel encore présente.
je la supprime et la j'ai le message qui me dit que le serveur distant n'est plus diponible.
je deviens fou avec Excel !!!!
Please Help me!!!!
17 août 2006 à 10:18
18 mai 2006 à 16:08
Comme dirais un Michel célèbre: "désolé"
3 nov. 2005 à 10:48
http://www.vbfrance.com/code.aspx?ID=27541
23 avril 2005 à 00:22
14 mars 2005 à 19:34
J'avais trouvé qu'une simple déclaration dans la procédure en cours avec un Set AppXl= nothing à la fin marchait.
Mais là je me heurte à nouveau au problème.
Par contre je passe par deux autres procédures auquelles je passe les paramètres MonClasseur et MaFeuille. J'ai bien le quit et le nothing.Et là Excel reste en instance.
Mais j'utilise des blocs with et en lisant tous les mails, j'ai vu que c'était pas bon.
Merci à tous de vos commentaires.
4 févr. 2005 à 12:28
tu auras le même problème en utilisant des block with
exemple:
With Feuille1.Range("A3", "E3").Font
.Size = 12
.Bold = True
.Color = vbBlack
End With
dans ce cas précis il suffit de remplacer le code par :
Feuille1.Range("A3", "E3").Font.Size = 12
Feuille1.Range("A3", "E3").Font.Bold = True
Feuille1.Range("A3", "E3").Font.Color = vbBlack
arfff.... Avec des copier/coller c'est pas trop fatiguant lol
2 févr. 2005 à 13:05
Haaaaaaaaaaaaaaaaaaaaaaaaaaaaaa hahahahahahaha.
Mouhahahhahaha
Trop MoRt De RiRe !!!!!
Pardon ?
2 févr. 2005 à 12:39
MDrrrr, je viens juste de relire mon poste.
Salut, voila le post en mode debboguer:
"Je viens juste de me rendre compte de ce probleme aujourd'hui meme, et franchement, pour la premiere fois que je suis confronter a un probleme en programmation qui trouve sa reponse simplement, clairement et efficacement, ca se fait en moins de 5h (tout cours !)
Tout ca pour dire QUE plus jamais je ne chercherais une reponse sur le net plus de 5h ^^ et encore merci !"
Enfin le seul truc a retenir dans ce que je raconte C merci.
Tu t vu quand t'a bus ??? (0.o) ???
2 févr. 2005 à 12:33
Franchement ca tombe trop bien.
Je viens juste de rendre compte de ce problem aujourd'hui, et je franchement, pour la premiere fois que je un probleme en programmation qui trouve une reponse simple, claire et efficace, ca se fait en moins de 5h koi.
TouT ca pour dire, plus jamais je ne chercherais une reponse sur le net plus de 5h ^^ et encore merci !
(Reste plus qu'a savoir comment on utilise la proprieter selection en passant par l'objet EXCEL.Application "appXL", Chiiiii Chuuuu selection t ou ? )
3 févr. 2004 à 21:45
Set appXL = WScript.CreateObject("Excel.Application")
... bal bla bla ...
appXL.quit
set appXL = Nothing
et excel se ferme à tous coup même si des référence à des élément d'excel (sheet...) n'ont pas été détruit
6 nov. 2003 à 16:23
MyNemIsU
6 août 2003 à 15:03
10/10
5 août 2003 à 23:41
Je vais la tester
Merci
Keneyda
5 août 2003 à 09:55
4 août 2003 à 18:32
Avec cette ligne de code tu ne fais que créer ton objet en mémoire, ensuite pour pouvoir l'utiliser il faut l'instancier, et là on utilise Set oXl = New clsXL pour faire une instanciation différée en fait.
Si tu veux instancier à la déclaration, il faut faire : Public oXl As New clsXL
C juste une question de vocabulaire. Merci d'avoir partagé ton expérience.