Erreur visual basic depuis passage de 2010 à 2016

paysan68 -
paysan68 - 2 févr. 2016 à 12:26

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:

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

A voir également:

Erreur visual basic depuis passage de 2010 à 2016
Visual basic - Télécharger - Langages
Microsoft 365 basic - Accueil - Microsoft Office
Visual c++ 2019 - Guide
Passage qwerty azerty - Guide
Visual paradigm - Télécharger - Gestion de données

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

paysan68

Bonjour, merci de ta réponse je vais essayer cela demain, je te tiens au courant

Discussions similaires

Erreur 3005 sur France TV

Microsoft Visual C++ ? C'est quoi ?

Votre réponse

Discussions similaires