Bonjour le forum
J'ai créé un document sur excel que j'ai appelé vierge
je l'ouvre avec access je le renommer et enregistre dans un chemin différent
jusqu'à la pas de problème
a la fin de ma formulaire j'ai mis
pour fermer le dossier excel
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 xlapp.Quit Set xlapp = Nothing Set xlbook = Nothing Set xlsheet = Nothing
mais quand je veux l'ouvrir après export il ne dit qui est déjà ouvert
formule dans vba access
je ne trouve pas erreur merci pour votre aide
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 Dim xlapp As Excel.Application Dim xlsheet As Excel.Worksheet Dim xlbook As Excel.workbook Dim Chemin As String Dim I 'ouvrir une dossier excel vierge Set xlapp = CreateObject("excel.application") Set xlbook = xlapp.workbooks.Open("c:\david\Table ACCESS\VIERGE.xls") 'renomme et enregistrer Chemin = Format(date, "dd mm yy") Chemin = "c:\david\stock\" & Chemin & ".xls" xlbook.saveas Chemin xlapp.Sheets("feuil1").Select xlapp.Cells(1, 1) = "Edité le:" & date xlapp.Cells(1, 19) = DLookup("pers", "tableinfo") xlapp.Sheets("feuil2").Select xlapp.Cells(1, 1) = "Edité le:" & date xlapp.Cells(1, 19) = DLookup("pers", "tableinfo") 'fermer excel xlapp.Quit Set xlapp = Nothing Set xlbook = Nothing Set xlsheet = Nothing
david @+
Partager