j'espere que ces exemples répondront à ta demande :
Les 2 exemples necessitent d'activer la reference Microsoft Excel xx.x Object Library
dans l'editeur de macros
Menu Outils
References
coches la ligne ' Microsoft Excel xx.x Object Library'
(xx.x depend de ta version d'Office)
cliques sur OK pour valider
pour ouvrir un classeur existant depuis Word
Sub ouvrirClasseurExcel()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
Set appXl = CreateObject('Excel.Application')
appXl.Visible = True
Set Wb = appXl.Workbooks.Open('C:\monClasseur.xls')
'.....
End Sub
pour ouvrir un nouveau classeur depuis Excel
Sub ouvrirNouveauClasseurExcel()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
Set appXl = CreateObject('Excel.Application')
appXl.Visible = True
Set Wb = appXl.Workbooks.Add
'.....
End Sub