Code pour tester si un classeur excel est ouvert depuis access

Version imprimable

Bonjour, depuis ma base de données ACCESS, je créer des bon de commande sur Excel.

J'ouvre mon fichier excel de la façon suivante:
Code:

1 2 3 4 5 6 7 8 Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlBook = xlApp.Workbooks.Open(AdresseGmao + "Matériel à commander\Commandes\Commande Vierge.xls") Set xlSheet = xlApp.Worksheets("Commande")
Ensuite je colle des données dans les cellules de ma feuille excel.

Ma question est comment tester si le classeur est déja ouvert?

J'ai trouvé ceci dans la FAQ, mais je pense que l'on peux faire plus simple:

http://access.developpez.com/faq/?pa...p#estFicOuvert

Merci

Je ne sais pas si c'est la meilleure solution mais elle fonctionne sous Access 2002

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function ClasseurOuvert(fichier As String) As Boolean
 On Error GoTo erreur
 Dim o As Object
 Set o = GetObject(fichier)
 ClasseurOuvert = True
 Exit Function
erreur:
 ClasseurOuvert = False
End Function
 
Sub test()
 Dim xlw As Object, fichier As String
 fichier = "f:\excel\test.xls"
 If ClasseurOuvert(fichier) Then
  Set xlw = GetObject(fichier)
  xlw.Sheets("Feuil1").Range("C1") = 10
 End If
 
End Sub

Salut moilou2 et helas,

Sinon une autre solution,

tu déclare tes variables publiques dans un module indépendant:
Code:

1 2 3 4 Option Compare Database Public xlApp As Excel.Application Public xlBook As Excel.Workbook
Puis ton code pour ouvrir ton fichier Excel:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 On Error Resume Next If xlApp Is Nothing Then Set xlApp = CreateObject("Excel.Application") End If xlApp.Visible = True xlApp.WindowState = xlMaximized Set xlBook = xlApp.Workbooks.Open(AdresseGmao + "Matériel à commander\Commandes\Commande Vierge.xls") Set xlSheet = xlApp.Worksheets("Commande") ...
De cette façon tu n'ouvre pas plusieurs applications Excel.

Et tu libère tes variables globales par exemple à la fermeture de ta base:
Code:

1 2 3 set xlBook = Nothing set xlApp = Nothing
A+

14/08/2009, 14h32
moilou2

1 pièce(s) jointe(s)

Re, ça fonctionne, mais peut on enlever le message (voir pièce jointe) et répondre non par défaut?

Salut,

Une solution basique:
Sur erreur quand tu tentes d'activer le classeur (si classeur fermé), tu récupère l'erreur et ouvre le classeur...

A toi d'affiner la gestion d'erreur:(en testant le numéro de l'erreur si besoin)

Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
On Error GoTo err_book
 
   If xlApp Is Nothing Then
      Set xlApp = CreateObject("Excel.Application")
   End If
 
   xlApp.Visible = True
   xlApp.WindowState = xlMaximized
 
   xlBook.Activate ' active ou teste si le classeur est ouvert
 
   Set xlSheet = xlApp.Worksheets("Commande")
 
...
 
Exit Sub
 
err_book: ' si classeur fermé
Set xlBook = xlApp.Workbooks.Open(AdresseGmao + "Matériel à commander\Commandes\Commande Vierge.xls")
 
Resume ' Retour à la suite de l'erreur.
 
end sub

A+

17/08/2009, 09h28
moilou2

Merci beaucoup