urgt : vba access : pb pour fermer un classeur xls

[sony]

Bonjour forum,

j'ai uncode qui me permet, à partir de vba access de fermer un classeur excel s'il est ouvert, avant d'exporter des données (d'une table acces vers une feuille du classeur à fermer).
Cependant le code ne marche pas.
Le classeur reste ouvert.

Dim AppXls As Object 'Excel.Application
Dim WbkXls As Object 'Excel.Workbook
Dim nom 'As String
Dim trouve As Boolean

Set AppXls = CreateObject("Excel.Application")

trouve = False
For Each WbkXls In AppXls.Workbooks
nom = WbkXls.Name
If nom = "classeur.xls" Then
trouve = True
MsgBox "le document " & nom & " est ouvert" & Chr(13) & _
"Merci de le fermer."
Exit Function
End If
Next WbkXls
If trouve = False Then
MsgBox "Le classeur n'est pas ouvert."
End If

 

[Emmanuel]

Bonjour

Vas sur le site www.developpez.com il te donnera des tips sur Access, notament dans les FAQ, ils sont très balèzes.

Bon courage