Discussion :

[Yves2507]

Bonjour.

J'exporte une requete dans un fichier excel avec le code.

Code :

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

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "STAT_06_DEBIT_PAR_MACHINE", "C:\STOCK_OUTILS\STATISTIQUE\CONSO_PAR_MACHINES " & Format(Now(), "DD-MM-YYYY") & " .xls"

Je voudrai que le fichier excel souvre après exportation .
Comment faire ?

J'ai regarder dans la FAQ mais je ne trouve pas ce que je veux.

[james35]

Voici la methode:
D'abord ce modul:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
 (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, _
  ByVal nshowcmd As Long) As Long
 
Public Const SW_HIDE = 0                  ' Versteckt öffnen
Public Const SW_MAXIMIZE = 3              ' Maximiert öffnen
Public Const SW_MINIMIZE = 6              ' Minimiert öffnen
Public Const SW_NORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNOACTIVATE = 4

Et ensuite sur la commande_Click ce code:

Code :

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

1
2
3
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "STAT_06_DEBIT_PAR_MACHINE", "C:\STOCK_OUTILS\STATISTIQUE\CONSO_PAR_MACHINES " & Format(Now(), "DD-MM-YYYY") & " .xls"
Call ShellExecute(Me.hWnd, "print", _
                    C:\STOCK_OUTILS\STATISTIQUE\CONSO_PAR_MACHINES " & Format(Now(), "DD-MM-YYYY") & " .xls", "", SW_NORMAL)

Bonne Chance

[james35]

a la place de

Code :

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

"print"

, tu ecris

Code :

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

"open"

Cordialement

[Yves2507]

J'ai essayé de taper t'on code.

Mais la ligne s'affiche en rouge erreu rde compilation.

J'ai mis:

Code :

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

1
2
Call ShellExecute(Me.hWnd, "open", _
C:\STOCK_OUTILS\STATISTIQUE\CONSO_PAR_MACHINES " & Format(Now(), "DD-MM-YYYY") & " .xls", "", SW_NORMAL)

Le curseur s'arrete sur les ":" apres le C

[james35]

Salut,
ecris integralement ce kode:

Code :

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

1
2
3
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "STAT_06_DEBIT_PAR_MACHINE", "C:\STOCK_OUTILS\STATISTIQUE\CONSO_PAR_MACHINES " & Format(Now(), "DD-MM-YYYY") & " .xls"
Call ShellExecute(Me.hWnd, "open", _
                    "C:\STOCK_OUTILS\STATISTIQUE\CONSO_PAR_MACHINES " & Format(Now(), "DD-MM-YYYY") & " .xls", "", SW_NORMAL)

Cordialement

[Yves2507]

Oui c'est bon il me manquais un "

Mais maintenant cela plante sur :

Call ShellExecute

et cela me marque argument non facultatif !!!!!

C'est compliqué le VBA !!!!!!!!!!!

[james35]

Tu devrais aller a extras-Verweise-et cocher Mikrosoft Excel 11 etc....
et je te redonne le Kode.

Code :

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

1
2
3
Call ShellExecute(Me.hWnd, "open", _
                    "nom du fichier", _
                    "", "", SW_NORMAL)

JE pense que cela doit aller

[Yves2507]

C'est quoi ca:

extras-Verweise-et cocher Mikrosoft Excel 11 etc....


Moi je suis allez dans Outils/Référence et j'ai trouvé Microsoft excel 10.0 object library mais cela ne fonctionne pas mieux.

Peu etre s'il te plait plus précis car je débute en VBA.

[pgz]

Bonsoir,

Avec la librairie excel que tu as trouvée, tu pourrais essayer

Code :

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

1
2
3
4
Dim wbk As Excel.WorkBook
Set wbk = GetObject("C:\...(nom complet)")
wbk.Application.Visible = True
set wbk = Nothing

Bon courage,

PGZ

[Yves2507]

Cela marche a moitier.

J'ai essayé le code de pgz cela ouvre bien Excel mais pas mon fichier j'obtiens un excel vierge de toute feuilles

[pgz]

Bonjour,

Et ça :

Code :

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

1
2
3
4
5
Dim wbk As Excel.WorkBook
Set wbk = GetObject("C:\...(nom complet)")
wbk.Application.Visible = True
set wbk = wbk.Application.WorkBooks.Open("C:\...(nom complet)")
set wbk = Nothing

?

Bon courage,

PGZ

[Yves2507]

Ca marche.

Super!!!!!!!!! merci beaucoup pour t on aide.