Fermer instance excel

Version imprimable

Bonjour,

Question con mais je ne trouve aucune solution sur internet...
J'ai un code qui :
ouvre un fichier excel
retire les lignes et colonnes qui ne m'intéressent pas
sauvegarde dans un nouveau fichier
déplace le fichier original dans un autre dossier.

Tout ça marque parfaitement.
Le problème c'est que l'instance excel du fichier créé reste malgré tout ouverte et je ne parviens pas à trouver une ligne de code pour la fermer.
J'ai essayé entre autre :
appexcel.close()
appexcel.quit()

Voici le code exact, si quelqu'un peut m'aider.... :) merci d'avance !

Code:

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
27
28
29
30
31
32
33
34
35
36
            For i As Integer = 0 To nbfichier - 1
                Dim nomfichier As String
                nomfichier = ListBox1.Items(i).ToString
                Label2.Text = nomfichier
                Dim appExcel As Object 'Application Excel
                Dim wbExcel As Object 'Classeur Excel
                Dim wsExcel As Object 'Feuille Excel
 
                'Ouverture de l'application
                appExcel = CreateObject("Excel.Application")
                'Ouverture d'un fichier Excel
                wbExcel = appExcel.Workbooks.Open("\\mbn-file-001\Public\VerifScan\Fichier à importer\" + nomfichier)
                'wsExcel correspond à la première feuille du fichier
                wsExcel = wbExcel.Worksheets(1)
 
                appExcel.Sheets(1).Columns("A:A").select
                appExcel.Sheets(1).Columns("A:A").activate
                appExcel.Sheets(1).Columns("A:A").delete
                appExcel.Sheets(1).Columns("D:D").select
                appExcel.Sheets(1).Columns("D:D").activate
                appExcel.Sheets(1).Columns("D:D").delete
                appExcel.sheets(1).rows("1:9").select
                appExcel.sheets(1).rows("1:9").activate
                appExcel.sheets(1).rows("1:9").delete
 
                ListBox1.Items.Add("-----------------------------------------------------------")
                ListBox1.Items.Add("Fichier " + nomfichier + " nettoyé")
                Dim pos As Integer = nomfichier.LastIndexOf(".")
                wsExcel.SaveAs("\\mbn-file-001\Public\VerifScan\Fichier à importer\" + nomfichier.Substring(0, pos) + "_nettoyé.xls")
                ListBox1.Items.Add("-----------------------------------------------------------")
                ListBox1.Items.Add("Fichier " + nomfichier + " sauvegardé")
                'IO.File.Move("\\mbn-file-001\Public\VerifScan\Fichier à importer\" + nomfichier, "\\mbn-file-001\Public\VerifScan\Fichiers traités\" + nomfichier)
                wsExcel = Nothing
                wbExcel = Nothing
                appExcel = Nothing
            Next

09/04/2018, 20h02
wallace1

Bonsoir,

Ta réponse se situe ICI

++
10/04/2018, 10h06
thovan

Bonjour,

Merci pour la réponse.
J'ai adapté mon code mais le problème reste toujours là :(...

Je vais poursuivre la suite de mon programme, si ce problème n'en pose pas d'autre je laisserai tomber :)
En attendant, si quelqu'un à une autre piste je suis preneur !
10/04/2018, 17h48
wallace1
Et en ajoutant ceci :
Code:

1 2 3 Marshal.ReleaseComObject(wsExcel) Marshal.ReleaseComObject(wbExcel) Marshal.ReleaseComObject(appExcel)
Il faut avant tout vérifier que chaque objet n est pas Null avant de releaser. Dans l idéal il faudrait mettre ton code dans un bloc Try... Catch... Finally.

A+

J'ai trouvé ceci dans un tuto sur youtube :
La fonction est un peu brutale dans le sens ou elle ferme tous les excel ouverts.... mais dans un sens, ça ne devrait pas poser de problème dans mon cas !
L'exécutable tournera sur un serveur de fichier par des utilisateurs qui n'ont qu'une licence office web... donc, jamais d'excel ouvert physiquement sur leur PC client.
Si j'ai des misère, j'essaierai ta solution :)
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub killProcess(ByVal processname As String) Dim svc As Object Dim sQuery As String Dim oproc svc = GetObject("winmgmts:root\cimv2") sQuery = " select * from win32_process where name='" & processname & "'" For Each oproc In svc.execquery(sQuery) oproc.terminate() Next svc = Nothing End Sub

11/04/2018, 13h23
wallace1
Je ne crois pas qu'arrêter brutalement un processus soit la meilleure solution, si tu souhaites poursuivre dans le développement il faut s affranchir de cette banale expression : Ça fonctionne donc ça me va....
Je veux dire par là qu' il faut aller plus loin dans le raisonnement et se poser cette question : pourquoi ça ne fonctionne pas ainsi. Tu en sortiras grandit à tout les coups et je parle de la connaissance qui découlera de tes recherches et expériences.

Ne le voit pas comme un reproche c est un simple conseil ;)

De plus la fonction kill process peut se résumer ainsi :
Code:

1 2 3 4 5 6 Public Sub KillProcess(ProcName as string) ' where Excel's ProcName is : EXCEL For Each ObjPro As Process In Process.GetProcessesByName(ProcName) ObjPro.Kill Next End Sub
En bref, il faut creuser du côté de la libération des ressources des composants COM.

Cdlt
++
11/04/2018, 13h36
thovan

Je suis bien d'accord avec toi... et c'est ma façon de travailler au niveau de notre gros logiciel...
Ici je fais juste un petit truc en externe qui vas tourner une fois toute les lunes.

Quand il sera bien rodé et qu'il roulera, je regarderai pour améliorer cet aspect des choses car j'aimerais savoir finalement comment le faire.

Je suis 100% autodidacte sans aucune formation dans la programmation... je suis sûr que si un pro voyais mes algos il dirait que c'est programmé avec les pieds ;)
11/04/2018, 13h42
wallace1

Au regards des membres actifs sur cette communauté nous sommes majoritairement auto didactes (et j'en fait partie) ;)
11/04/2018, 16h10
François DORIN

Citation:

Envoyé par thovan

Je suis 100% autodidacte sans aucune formation dans la programmation... je suis sûr que si un pro voyais mes algos il dirait que c'est programmé avec les pieds ;)

Ce n'est pas un gage de non qualité. De même qu'avoir une formation pro n'est pas un gage de qualité ;)

Par expérience, ce qui compte le plus, ce n'est pas la formation, mais la manière dont la personne réagit et s'adapte. J'ai déjà vu des master info (bac +5 donc) être de véritables quiches et des personnes sans formation informatique très douées.

Je préfère largement un autodidacte curieux, sachant se remettre en question et ouvert, acceptant les critiques (constructives quand même hein !) car il ira bien plus loin qu'un pro n'ayant pas ces capacités. Un autodidacte est souvent motivé et aime ce qu'il fait. Et mine de rien, ça change pas mal de choses aussi !
17/04/2018, 14h12
Pti Zozio
Je fais régulièrement des exports de mes données vers Excel (et non des manipulations de fichiers Excel, le contexte est donc différent).
En fin de mise à jour, je libère mon classeur Excel (et non mon application Excel) en faisant :
Code:

1 2 wbExcel.SaveDocument(Chemin) wbExcel.Dispose()
En espérant que cela t'aidera.
17/04/2018, 14h17
thovan

Hello,

Jamais essayé avec Dispose....
J'avoue que ma solution barbare fonctionne plutôt bien !