Bonjour,
 
Comment puis-je ouvrir un document Word (nouveau document ou document deja existant) a partir d'une macro VB sous Excel?
 
Merci

Function ouv_word()
 
Dim wdApp As Word.Application
Set wdApp = CreateObject("word.Application" )
With wdApp
.Documents.Open ("c:\Document\test.doc" )
'ou
.Documents.Add
 
End With
     
ActiveDocument.SaveAs "C:\DOCUMENT\test.doc"
ActiveDocument.Close
     
End Function

et comme faire l inverse?? ouvrir un onglet excel a partir d un doc word??

merci pumpkin ca marche.
 
Pour dada:
c'est pareil, faut juste remplacer les mots cles Word par ceux Excel. Dans le menu Tools de VB il faut egalement choisir References... et cocher les applications que tu veux lancer. Par exemple si tu pars de Word et que tu veux lancer Excel il faut cocher Microsoft Excel dans la liste References... Sinon les mots cles Excel ne seront pas reconnus dans ta macro Word.  
 
Function ouv_excel()
 
Dim xlApp As Excel.Application
Set xlApp = CreateObject("excel.Application" )
With xlApp
 
.Workbooks.Add 'pour creer un nouveau workbook
.Workbooks("C.../1.xls" ).Worksheets("2" ).open 'pour ouvrir l'onglet 2 existant
.Visible = True
End With
 
End Function