Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Instance Excel avec Access (automation)

2 réponses
Avatar
Eric RENAUD
Bonjour,
Je procède à une mise à jour d'un classeur Excel depuis Access VBA.
Le programme fonctionne parfaitement.

With XL_App
Set XL_classeur = .Workbooks.Open(MyFile)
Set XL_feuille = XL_classeur.Sheets(MySheet)
With XL_feuille
.............
.ActiveWorkbook.Close
.Quit
End With
Si au lieu de faire .ActiveWorkbook.Close, je fais .ActiveWorkbook.SaveAs
Filename:=MyPath & "\2004" &.....,
je m'aperçois qu'il reste toujours une instance d'Excel.
Comment résoudre ce cas de figure ?
D'avance merci

2 réponses

Avatar
Jessy Sempere [MVP]
Bonjour

C'est parceque tu dois toujours libérer toutes tes variables objets
genre :

Set XL_App = Nothing

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Eric RENAUD" a écrit dans le message news:

Bonjour,
Je procède à une mise à jour d'un classeur Excel depuis Access VBA.
Le programme fonctionne parfaitement.

With XL_App
Set XL_classeur = .Workbooks.Open(MyFile)
Set XL_feuille = XL_classeur.Sheets(MySheet)
With XL_feuille
.............
.ActiveWorkbook.Close
.Quit
End With
Si au lieu de faire .ActiveWorkbook.Close, je fais .ActiveWorkbook.SaveAs
Filename:=MyPath & "2004" &.....,
je m'aperçois qu'il reste toujours une instance d'Excel.
Comment résoudre ce cas de figure ?
D'avance merci






Avatar
Raymond [mvp]
bonjour Jessy.

petitre précision : le saveas n'autorise pas la suppression du close. soit
on fait un close avec un save ou save avec un close ce qui revient au même,
le tout bien sûr avant le nothing.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jessy Sempere [MVP]" a écrit dans le message de
news:c4jgqe$q7n$
Bonjour

C'est parceque tu dois toujours libérer toutes tes variables objets
genre :

Set XL_App = Nothing

@+
Jessy Sempere - Access MVP