Bonjour forum,
j'ai un code 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.
Il doit arreter de s'executer si le classeur est ouvert et afficher un message mais il réagit pas quand le classeur est 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