Sujet Précédent Sujet Suivant

Urgt : vba access : pb pour fermer un classeur xls

matsony Messages postés 7 Date d'inscription dimanche 1 février 2004 Statut Membre Dernière intervention 9 juillet 2004 - 27 mai 2004 à 16:33
mystoizo Messages postés 6 Date d'inscription lundi 10 février 2003 Statut Membre Dernière intervention 23 juillet 2004 - 27 mai 2004 à 16:47
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

1 réponse

Réponse 1 / 1
mystoizo Messages postés 6 Date d'inscription lundi 10 février 2003 Statut Membre Dernière intervention 23 juillet 2004
27 mai 2004 à 16:47
D'aprés ce que g pu voir ton code cherche un classeur excel nommé classeur.xls si celui ci a un autre nom ça marche pas
0
Rejoignez-nous