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 : 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
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
Partager