Discussion :

[mumu64]

Bonjour,

J'ai écrit ce code dans un formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande5_Click()
 
....
 
Dim xlApp As Object
Set xlApp = GetObject(, "Excel.Application")
xlApp.Workbooks.Open "C:\mondossier\monfichier.xls"
 
End Sub

Malheureusement il s'arrête à cette ligne :

Code :

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

Set xlApp = GetObject(, "Excel.Application")

Quand je lance Excel manuellement, et que j'achève l'exécution du code ça marche.......
Je n'arrive pas à trouver ce qui ne va pas....
Un petit conseil serait le bienvenue.

D'avance merci.

Mumu64

[azertix]

Bonjour.
Qu'est censé faire ton code ?

[Frank]

Voici le code proposé dans l'aide de Microsoft Access :

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
' Declare necessary API routines:
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 GetExcel()
    Dim MyXL As Object    ' Variable to hold reference
                                ' to Microsoft Excel.
    Dim ExcelWasNotRunning As Boolean    ' Flag for final release.
 
' Test to see if there is a copy of Microsoft Excel already running.
    On Error Resume Next    ' Defer error trapping.
' Getobject function called without the first argument returns a 
' reference to an instance of the application. If the application isn't
' running, an error occurs.
    Set MyXL = Getobject(, "Excel.Application")
    If Err.Number <> 0 Then ExcelWasNotRunning = True
    Err.Clear    ' Clear Err object in case error occurred.
 
' Check for Microsoft Excel. If Microsoft Excel is running,
' enter it into the Running Object table.
    DetectExcel
 
' Set the object variable to reference the file you want to see.
    Set MyXL = Getobject("c:\vb4\MYTEST.XLS")
' Show Microsoft Excel through its Application property. Then
' show the actual window containing the file using the Windows
' collection of the MyXL object reference.
    MyXL.Application.Visible = True
    MyXL.Parent.Windows(1).Visible = True
     Do manipulations of your  file here.
    ' ...
' If this copy of Microsoft Excel was not running when you
' started, close it using the Application property's Quit method.
' Note that when you try to quit Microsoft Excel, the
' title bar blinks and a message is displayed asking if you
' want to save any loaded files.
    If ExcelWasNotRunning = True Then 
        MyXL.Application.Quit
    End IF
 
    Set MyXL = Nothing    ' Release reference to the
                                ' application and spreadsheet.
End Sub

[mumu64]

Bonjour,

Pour répondre à ta question azertix, le code est censé envoyer le résultat de requêtes dans un même fichier excel puis d'ouvrir ce fichier pour qu'une macro continue à faire des manip sur le fichier excel nouvellement créé. Voici la ligne de code d'export des données dans le fichier :

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "ma requete", "C:\mondossier\monfichier.xls", True

C'est pourquoi j'ai besoin qu'Excel s'ouvre à un moment donné.

Frank, je te remercie pour le code mais le début "API" n'est pas très parlant pour moi...... Je voudrais juste comprendre pourquoi Excel ne s'ouvre pas.... Mais je vais regarder attentivement ton code.

Merci

[Frank]

Code :

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

1
2
3
4
5
6
7
8
9
' Declare necessary API routines:
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

Cette partie doit être déclarée au début de ton module.
C'est nécessaire pour que le code puisse fonctionner.

[mumu64]

Merci Frank,

Je vais essayer ça à mon retour de vacances.....

[mumu64]

Bonjour,

J'e n'ai pas abandonné ce fil mais je n'arrivais pas à utiliser le code que tu m'avais donné Frank, impossible de l'adapter (pas assez de maîtrise je pense). Mais j'ai quand même trouvé une solution à mon problème ! voici le code qui ouvre Excel et mon fichier par la suite.

Code :

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

1
2
3
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open "C:\mondossier\monfichier.xls"

Merci quand même et à bientôt peut-être.

Mumu64