Workbooks.Open Filename:=" U:\Divers\Yannick\Outil Cartographie\RICSTest.doc "
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim k As Object k = CreateObject("Word.Application") k.Visible = True GetObject ("U:\Divers\Yannick Besnier\Outil Cartographie\RICSTest.doc")
Dim AppWd As Object Dim DocWd As Object On Error Resume Next Set AppWd = GetObject("Word Application") If Err <> 0 Then Err.Clear Set AppWd = CreateObject("Word Application") End If AppWd.Visible = True Set DocWd = AppWd.Documents.Open(ThisWorkbook.Path & "\RICSTest.doc") AppWd.Activate
Dim o As Object o = CreateObject("Word.Application") o.Visible = True o.Documents.Open ("U:\Divers\Yannick Besnier\Outil Cartographie\RICSTest.doc")
o = CreateObject("Word.Application")