Erreur visual basic depuis passage de 2010 à 2016
Bonjour, j'ai un petit soucis avec une macro que j'ai écris sur excel 2010, car depuis que je suis passé sur escel 2016 j'ai une erreur d'exécution '13', le soucis se produit à la ligne indiquée ci-dessous:
Pour info la macro sert à remplir des signets dans un fichier word.
Merci beaucoup pour vos réponses
Sub Macro1()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
Dim j As Byte
Set WordApp = CreateObject("Word.Application") 'ERREUR ICI
WordApp.Visible = True
memoire = "C:\Users\adrien.haenn\Desktop\Lingenheld Démolition\Chiffrage\nouveau chiffrage\MT_TS_Desam_Demol.docx"
Set WordDoc = WordApp.Documents.Open(memoire, ReadOnly:=True)
Pour info la macro sert à remplir des signets dans un fichier word.
Merci beaucoup pour vos réponses
1 réponse
-
Bonjour,
quelque soit l'Office:
Sub Macro1() 'avec reference Microsoft Word xx.x object library Dim WordApp As Word.Application Dim WordDoc As Word.Document 'ou sans 'Dim WordApp As Object 'Dim WordDoc As Object Dim i As Byte Dim j As Byte Set WordApp = CreateObject("Word.Application") Set WordDoc = CreateObject("Word.Document") WordApp.Visible = True
