Erreur visual basic depuis passage de 2010 à 2016

Fermé

paysan68 - Modifié par pijaku le 2/02/2016 à 13:07
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
Erreur 0x80070643 - Guide
Visual basic download - Télécharger - Langages
Microsoft 365 basic - Guide
Microsoft visual c++ runtime - Guide
Visual paradigm - Télécharger - Gestion de données

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 févr. 2016 à 09:46

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
2 févr. 2016 à 12:26

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

Discussions similaires

Site de confiance ou non ?

Problème Chronopost : Pas d'avis de passage !!

Instagram "Désolé, une erreur s'est produite"

Erreur de lecture sur iptv smarters

Erreur vidéo inconnue sur le Freebox Player

Discussions similaires

Newsletters