Fermeture d'Excel ImpossbileRésolu

Question

Bonjour, 

j'ai un gros probleme avec excel car apparemment il ne se ferme pas ,
car qd j'essaye d'ouvrir l'excel normalement ou pour le modifier il me
dis 3Fichier en cours de modification etc......"

'D&#233;claration des variables

Dim appExcel As Excel.Application 'Application Excel

Dim wbExcel As Excel.Workbook 'Classeur Excel

Dim wsExcel As Excel.Worksheet 'Feuille Excel



'Ouverture de l'application

Set appExcel = CreateObject("Excel.Application")

'Ouverture d'un fichier Excel

Set wbExcel = appExcel.Workbooks.Open("I:\Xc.xls")

'wsExcel correspond &#224; la premi&#232;re feuille du fichier

Set wsExcel = wbExcel.Worksheets(1)

appExcel.Quit

voila le code... si qq 1 peu maider :D

jpleroisse · Accepted Answer

Bonjour,
Essaie : (Il y a des lignes que tu devras peut-&#234;tre modifier o&#249; supprimer??)

   'on lib&#232;re la m&#233;moire
ExcelApp = Nothing
WorkSheet = Nothing


ExcelApp.DisplayAlerts = False
ExcelApp.Save
ExcelApp.DisplayAlerts = True


ExcelApp.ActiveWorkbook.Close
ExcelApp.Quit

jpleroisse

Fermeture d'Excel Impossbile

1 réponse

Discussions similaires