Ouvrir Excel depuis une macro Word

[guy974]

Bonjour,

Avez-vous une idée pour ouvrir Excel depuis Word en VBA ?

Merci

Guy

 

[MichelXld]

bonjour Guy

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


bonne journée
MichelXld

 

[Guy]

Parfait Michel,

Merci beaucoup

Bon WE