Discussion :

[merlubreizh]

Salut à tous !!

Je cherche à lancer un fichier Excel à partir d'un clic sur un bouton d'un formulaire access. Comme j'arrive à lancer des documents Word, je pensais avoir la solution, mais apparemment, ce n'est pas le même code pour lancer des documents Word et Excel. Voici le code que j'utilise pour générer mes documents Word :

Code :

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

1
2
3
4
5
6
7
 
'Démarrer Word
    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
 
    'ouvrir le document
    oApp.Documents.Open "C:\Documents and Settings\administrateur\Mes documents\Documents Word Formations\ConventionFormation.doc"

Je pensais juste changer Word.Application par Excel.Application et aussi changer le chemin mais il m'indique "Méthode ou propriété non gérée par cet objet" en surlignant la ligne oApp.Documents.Open ...

[merlubreizh]

Voici le code complet

Code :

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

1
2
3
4
5
6
7
 
'Démarrer Word
    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
 
    'ouvrir le document
    oApp.Documents.Open "C:\Documents and Settings\administrateur\Mes documents\Documents Word Formations\ConventionFormation.doc"

[fazerman]

tu doit aussi déclarer un workbook :

Code :

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

1
2
 
dim wbexcel as excel.workbook

puis ensuite

Code :

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

1
2
3
 
set wbexcel = oapp.workbooks.open(C:\Documents and Settings\administrateur\Mes documents\...)
oapp.visible = true

[Vesta]

Code :

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

1
2
3
4
5
6
Sub OpenExcelWorkbook(WorkbookPath as string)
Set oapp = CreateObject("Excel.Application")
    oapp.Visible = True
    oapp.Workbooks.Open WorkbookPath 
set oApp=Nothing
End Sub

[merlubreizh]

Merci les gars, ça marche !!

[Tofalu]

Si c'est juste lancer Excel, l'utilisation d'automation Excel.Application est bien trop gourmande en ressource, il vaut mieux utiliser l'api shellExecute

Cf la FAQ