[VB6] Excel reste en exécution
Bonjour,
Je suis en train de créer mon premier programme en VB.
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
| Private sub Save_click()
dim xl as Excel.Application
dim exldoc as Excel.Workbook
dim sheet as excel.Worksheet
set xl = CreateObject ("Excel.application")
set exldoc = xl.workbooks.open(chemin)
set sheet = xl.ActivateWorkbook.ActiveSheet
with sheet
sheet.cells(7,3).value = ....
Remplissage de la feuille
end with
exldoc.save
exldoc.close
xl.quit
set sheet = nothing
set xl = nothing
set exldoc = nothing
End Sub |
Vous l'aurez compris mon bouton sert à sauvegarder des valeurs dans une feuille Excel, mon problème est qu'à chaque clique un nouveau processus EXCEL.EXE se lance et ne se ferme pas. A force, au bout de 20 sauvegarde le programme plante.
Pouvez vous m'aider svp?
Merci :)
