Discussion :

[David1259]

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

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

pour fermer le dossier excel

mais quand je veux l'ouvrir après export il ne dit qui est déjà ouvert

formule dans vba access

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

je ne trouve pas erreur merci pour votre aide
david @+

[Stef999]

Bonjour,

il faudrait enregistrer à la fin sinon il y a demande de confirmation pour l'enregistrement et le fichier reste ouvert il me semble ...

Cordialement