Erreur visual basic depuis passage de 2010 à 2016
paysan68
-
paysan68 -
paysan68 -
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
