Macro word dans un fichier excel pour office365
Bonjour à tous.
Je suis confronté à un problème de mise à jours. Je suis passé en Office365 depuis peu. avec le nouvel Excel 2013 version 15 et Le nouveau Word version 15
J'ai une macro dans un fichier excel qui édite un fichier word.
Je dois donc utiliser la nouvelle bibliothèque d'instruction de reférence word. "Microsoft Word 15.0 Object Library"
Jusque là tous va bien la macro fonctionne sans bug.
A un détail prés. le fichier Word s'ouvre encore avec Word 14 (qui n'a pas été désinstallé pour le moment.)
J'utilise cette instruction.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Set DestWrd = CreateObject("Word.Application")
'Open our specified Word file, On Error is used in case the file is not there
On Error Resume Next
Set DestDoc = DestWrd.Documents.Open(Chemin_d_acces & "\" & NomFich)
On Error GoTo 0
If DestDoc Is Nothing Then
MsgBox "Le fichier " & NomFich & " n'a pas été trouvé !"
DestWrd.Quit
Set DestWrd = Nothing
Exit Sub
End If |
Ma question est donc pourquoi la macro ne m'ouvre pas mon fichier word avec Word 15 ?
et comment faire pour y remédier.
( Notez qu'il s'ouvre bien avec Word 15 avec de cette instruction. )
Code:
Workbooks.Open FileName:=Chemin_d_acces & "\" & NomFich
Merci d'avance pour votre aide.
