S
sony
Guest
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
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
