Discussion :

[Gylles_]

Bonjour à tous,

Je vous explique mon problème :

Je développe sous access une base de données destinée à récupérer des données statistiques depuis un serveur puis à les exporter sous excel.
A partir d'un formulaire, l'utilisateur sélectionne des critères (qui correspondent à des requêtes) et clique sur un bouton "export vers Excel".
J'utilise la commande Domcmd.TransferSpreadsheet qui renvoi la requête dans un fichiers excel : Stats.xls
Toutes mes requêtes vont dans ce fichier excel.
Tout marche très bien sauf dans un cas :
si l'utilisateur ouvre le fichier Stats.xls et lance sous access un nouvel export, une erreur arrête la macro.
La solution que j'ai trouvé serait de tester si le classeur Stats.xls est ouvert et alors de stopper la macro. C'est là que j'ai besoin de votre aide.

Merci par avance

[seb92400]

Pourquoi ne programme tu pas ton code en vab ? Ca te permettrait de gérer les erreurs... (les macros ne les gèrent pas, à ma connaissance...)

Si erreur n° xxxx (qui correpopnd à classeur ouvert) alors effetuer action yyyy (qui correspond à l'arrêt de la procédure)

[Gylles_]

J'utilise bien du code, c'est juste que je m'exprime mal ...

Pour ta solution, la difficulté c'est que la commande TranfertSpeadsheet créée au départ un object excel.application puis renvoi le message d'erreur parce que le transfert ne peut s'effectuer.

Donc même si j'arrête le code après l'apparition de l'erreur, il y aura l'application excel qui va rester ouverte.

Quand je vais dans gestionnaire de programmes j'ai deux applications Excel :
- une créée par Stats.xls à l'ouverture
- l'autre par TransferSpreadsheet

Du coup impossible après d'ouvrir un autre classeur excel !

Il faut donc que je test avant d'exécuter le code si le classeur stats.xls est ouvert ou non.

[helas]

Code :

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

1
2
3
4
5
6
7
8
 
Sub ExportExcel()
 On Error GoTo erreur
 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "NomTable", "e:\stat.xls", True
 Exit Sub
erreur:
 If Err = 3010 Then MsgBox ("Le fichier est occupé" & vbCrLf & "Veuillez réessayer plus tard")
End Sub

[Gylles_]

Salut helas, merci pour ta réponse. J'ai inséré ton code mais ca n'a pas pu résoudre mon problème.

Le message s'affiche bien après l'erreur 3010. Je ferme donc Stats.xls, j'essaie de l'ouvrir impossible...... Je regarde dans le gestionnaire des tâches dans les processus EXCEL.EXE est présent alors qu'aucun fichier excel n'est ouvert !

[Invité]

Bonjour Gylles_

A toutes fins utiles, une procédure que j'utilise pour ouvrir un fichier Excel s'il n'est pas ouvert ou pour y accéder s'il est déjà ouvert :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Option Compare Database
Public Cn As ADODB.Connection
' Déclare les routines d'API nécessaires:
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As Long) As Long
 
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
 
Sub Demarre_Excel()
Dim MyXL As Object
Dim ExcelWasNotRunning As Boolean
 
 
' Test pour déterminer si une copie de Microsoft Excel
' est déjà en exécution.
On Error Resume Next
Set MyXL = GetObject(, "Excel.Application")
 
If Err.Number <> 0 Then
ExcelWasNotRunning = True
Call DetectExcel
' Définit la variable objet faisant référence au fichier à ouvrir.
Set MyXL = GetObject("C:\xxxx\zzzzzzz.XLS")
fichouv = 1
 
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
GoTo Suite
End If
 
MyXL.Application.WindowState = vbMaximizedFocus
'MyXL.Visible = True
'MyXL.Parent.Windows(1).Visible = True
Set MyXL = Nothing ' Libère la référence à l'application
' et à la feuille de calcul.
End Sub
 
Sub DetectExcel()
 
Const WM_USER = 1024
Dim hWnd As Long
hWnd = FindWindow("XLMAIN", 0)
If hWnd = 0 Then
Exit Sub
Else
SendMessage hWnd, WM_USER + 18, 0, 0
End If
End Sub

Amicalement

[Gylles_]

Désolé de n'avoir pas répondu plus tôt, j'étais en déplacement professionnel cette semaine.

Pour revenir sur ton post, Getobject me permet de savoir si Excel est utilisé ou pas. Par contre je n'ai pas tout compris dans ton code, comment accéder au fichier excel ?

[Heureux-oli]

C'est que tu gardes une instance d'Excel ouverte dans ton code que nous n'avons pas pu voir.

Ce qui nous amène à répondre au hazard.

[Gylles_]

Voici le code que j'utilise : (grâce à la FAQ et à helas, merci au passage)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private sub commande50_click
Dim strchemin as string
on error Goto classeurouvert
strchemin = CurrentProject.path
strchemin = strchemin + "\StatsFrs.xls"
 
DoCmd.TransferSpreadSheet acExport, acSpreadsheetTypeExcel9,"CA",strchemin,True
 
Exit sub
classeurouvert:
if Err = 3010 then Msgbox "Le classeur StatsFrs doit être fermé pour pouvoir exporter les données"
 
End sub

J'ai essayé de mettre :

Code :

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

Excel.application.quit

après classeurouvert:
mais au lieu de quitter excel il m'a créer une nouvelle application.

[Heureux-oli]

Je viens de refaire le tour et tu n'as pas d'instance d'Excel ouverte, puisque tu n'ouvre pas Excel.

Mais si le fichier est ouvert, il est normal que tu reçoive un message d'erreur.

Une des solutions possible, c'est de travailler avec une frontale et une dorsale et de sauver ton fichier sur le disque local.

[Gylles_]

Je suis débutant donc j'ai pas tout compris sur la "frontale" et "dorsale". Par contre le fichier est bien sauvegardé en local.

La solution que j'ai pensé serait de tester si excel est actif (via GetObject) si oui alors de fermer le fichier StatsFrs :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim MyXL As Object
 
' Test pour déterminer si Excel est déjà en exécution.
 
Set MyXL = GetObject(, "Excel.Application")
 
If Err.Number = 0 Then
Excel.Workbooks("STATSFRS.XLS").close savechanges:=false
 
else
end if

(J'ai utilisé l'aide de VBA)
Message d'erreur Erreur d'exécution '9' l'indice n'appartient pas à la sélection

Code :

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

Excel.Workbooks("STATSFRS.XLS").close savechanges:=false

[Gylles_]

Je suis un peu bloqué sur mon projet. J'arrive à fermer un classeur mais que si je l'ai ouvert auparavant par VBA. En revanche je n'arrive pas à fermer ou détecter le classeur s'il est déjà ouvert, avez vous une idée ?

merci de votre aide

[Gylles_]

Ca y est j'ai résolu mon problème ! Avant de faire l'export je supprime le fichier StatsFrs, s'il y a un message d'erreur c'est qu'il est ouvert le tour est joué !

Je met le code final pour ceux qui pourrait en avoir besoin :

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
Private sub commande50_click
Dim strchemin as string
on error Goto classeurouvert
strchemin = CurrentProject.path
strchemin = strchemin + "\StatsFrs.xls"
 
kill strchemin
 
DoCmd.TransferSpreadSheet acExport, acSpreadsheetTypeExcel9,"CA",strchemin,True
 
Exit sub
classeurouvert:
Msgbox "Le classeur StatsFrs doit être fermé pour pouvoir exporter les données"
 
End sub

Merci à ceux qui m'ont aidé

[plebreton]

J'utilise le code suivant
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, maRequete, monFichierXLS, True
qui marche 1 fois

La 2eme fois si des champs sont ajoutés j'ai le message "trop de champs definis"
En fait access crée une plage limitée la 1ere
Je dois supprimer cette plage dans xl pour reimporter de nouveau!

Merci de vos tuyaux