Macro AutoNew ne fonctionne pas

Question

J'essaie d'obtenir Word pour ouvrir un document Excel chaque fois qu'un document basé sur un modèle spécifique est créé.

Voici ma macro

Sub AutoNew() 
Dim oExcel As Excel.Application 
Dim oWB As Workbook 
Set oExcel = New Excel.Application 
Set oWB = oExcel.Workbooks.Open("E:\Letters.xlsx") 
End Sub 

Lorsque je double-cliquez sur le modèle, il apporte un document basé sur le modèle très bien, mais la macro ne fonctionne pas.

Il apparaît dans la liste des macros dans le modèle, mais tenter de l'exécuter ne fait rien.

Answer 1

Comme on l'a mentionné KazJaw, rendre l'application visible

Sub AutoNew() 
    Dim oExcel As Excel.Application 
    Dim oWB As Workbook 
    Set oExcel = New Excel.Application 
    Set oWB = oExcel.Workbooks.Open("E:\Letters.xlsx") 
    oExcel.Visible = true 
End Sub 

Un inconvénient est que l'application Excel lance une nouvelle tâche (voir gestionnaire tak) en cas d'un autre appel de la macro - chaque document est ouvert en sa propre tâche.

La manière correcte est une API d'utilisation pour le lancement d'un document application enregistrée, par exemple ici: http://access.mvps.org/access/api/api0018.htm

Ou contourner le problème d'une seule ligne, laid, mais fonctionne très bien:

Shell "cmd.exe /c start D:\a\test.xlsx" 

Notez que modèle avec la macro doit avoir l'extension .xltm, pas .xltx.