Discussion :

[moilou2]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helas]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[User]

Salut moilou2 et helas,

Sinon une autre solution,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
set xlBook = Nothing
set xlApp = Nothing

A+

[moilou2]

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

[User]

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'erreuren testant le numéro de l'erreur si besoin)

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[moilou2]

Merci beaucoup