Ouvrir un fichier excel à partir d'access

**Christ79** · 05/12/2013, 08h28

Bonjour à toutes et tous

Voilà mon soucis. J'exporte le résultat de ma requête vers un fichier excel et je souhaiterais ouvrir le fichier après cette exportation. J'ai chercher la solution sur le site mais impossible de trouver. Je vous mets le code pour l'exportation (qui fonctionne très bien) et je souhaiterais lui adjoindre la commande d'ouverture du fichier "Tbord".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande282_Click()
On Error GoTo Err_Commande282_Click
 
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Ri_synthese", "S:\mcsrgc\13_odsr\01_ATBH\Accidents\Tbort.xls", , "Donnees"
 
 
Exit_Commande282_Click:
    Exit Sub
 
Err_Commande282_Click:
    MsgBox Err.Description
    Resume Exit_Commande282_Click
 
End Sub

Merci d'avance pour votre aide

**madefemere** · 05/12/2013, 09h03

Bonjour,

Ajouter la déclaration suivante dans ton module (pour pouvoir utiliser les commandes SHELL:

Code :

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

Private 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

Ajouter la ligne :

Code :

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

 ShellExecute 0, "open", "S:\mcsrgc\13_odsr\01_ATBH\Accidents\Tbort.xls", "", "", 1

après ton transfert.

Tu devrais avoir Excell ouvert sur ton fichier.

@+

**Christ79** · 05/12/2013, 10h10

Bonjour madefemere,

Merci pour cette réponse rapide.

Excuse mon ignorance, mais tu déclares ta fonction dans quel module ?.

Si j'ai bien compris, je copies la 2ème ligne après celle de mon export.

Et encore désolé pour mon ignorance