Ouvrir document Word

Bonjour à toute et tous,
J'ai besoin de votre aide.

Depuis mon fichier source, feuille "Accueil" je mets à jour par macro "M1" des données (issues de mon fichier source) dans un fichier Excel nommé FEDest.
Jusque là pas de problème.
Je dois aller ensuite dans un fichier Word afin de mettre à jour une valeur issue de la mise à jour du fichier Excel FEDest.
Jusqu'à présent je clique sur un lien hypertexte qui m'ouvre le fichier Word et je fais ma modification.

Aujourd'hui, je souhaite faire ouvrir mon fichier Word depuis ma macro "M1". Et là je bloque.
J'ai essayé

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Ouverture_docx()   Dim AppWord As New Word.Application Dim DocWord As Word.Document   Nom_Fichier_Word = ThisWorkbook.Worksheets("Accueil").Range("B50").Value Adresse_Fichier_Word = ThisWorkbook.Worksheets("Accueil").Range("B51").Value   Set DocWord = AppWord.Documents.Open(Adresse_Fichier_Word, ReadOnly:=False) .Visible = True End Sub

---

Ligne 3 => Type défini par l'utilisateur non défini
J'ai essayé

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Ouverture_docx()   Dim AppWord As Object Dim DocWord As Object   Nom_Fichier_Word = ThisWorkbook.Worksheets("Accueil").Range("B50").Value Adresse_Fichier_Word = ThisWorkbook.Worksheets("Accueil").Range("B51").Value   Set DocWord = AppWord.Documents.Open(Adresse_Fichier_Word, ReadOnly:=False).Visible = True   End Sub

---

Et là Ligne 9 = Nothing
avec Ligne 3 = Nothing

Je tourne en rond, je ne comprends pas pourquoi AppWord est Nothing

Tant que je n'aurais pas passé ce problème, je ne pourrai pas aller sur le terrain des Signets.
Merci pour votre aide
Philippe

Salut.

Pour pouvoir utiliser As Word.Application, tu dois référencer la bibliothèque Word dans Outils/Références...

Avant de pouvoir utiliser Set DocWord = ..., tu dois "instancier" l'objet qui pointe vers Word.Application, soit avec Set wApp = CreateObject("Word.Application") si tu travailles avec As Object, soit avec Set wApp = New Word.Application si tu travailles avec la bibliothèque et que tu as alors As Word.Application.

Bonjour Pierre,

Merci pour votre réponse,
J'avoue que je suis complétement perdu.

Citation:

---

tu dois référencer la bibliothèque Word dans Outils/Références

---

Je l'ai fais.

J'ai modifié Dim AppWord As Word.Application

Et c'est là que je ne comprends pas pourquoi cela ne fonctionne pas

Citation:

---

tu dois "instancier" l'objet qui pointe vers Word.Application [...] avec Set wApp = New Word.Application

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Ouverture_docx()   Dim AppWord As Word.Application Dim DocWord As Word.Document   Nom_Fichier_Word = ThisWorkbook.Worksheets("Accueil").Range("B50").Value Adresse_Fichier_Word = ThisWorkbook.Worksheets("Accueil").Range("B51").Value   Set wApp = New Word.Application Set DocWord = AppWord.Documents.Open(Adresse_Fichier_Word, ReadOnly:=False).Visible = True End Sub

---

Ligne 9 => Word Application <Variable objet ou variable de bloc With non définie>
Je ne sais pas m'en dépêtrer.
Merci pour votre aide
Philippe

Tu déclares AppWord en ligne 3 mais tu utilises wApp en ligne 9... :roll:


HS mais pas propre: Tu utilises Adresse_Fichier_Word pour le nom du fichier Word, mais la variable n'est ni déclarée ni valorisée dans le module. Ca me fait dire que tu utilises une variable publique, et les variables publiques, c'est le mal :evil:. De plus, tu n'utilises pas la déclaration explicite des variables. Ca risque de te jouer des mauvais tours.

Hello,

Citation:

---

Envoyé par Phil333250

Bonjour Pierre,

Merci pour votre réponse,
J'avoue que je suis complétement perdu.


Je l'ai fais.

J'ai modifié Dim AppWord As Word.Application

Et c'est là que je ne comprends pas pourquoi cela ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Ouverture_docx() Dim AppWord As Word.Application Dim DocWord As Word.Document Nom_Fichier_Word = ThisWorkbook.Worksheets("Accueil").Range("B50").Value Adresse_Fichier_Word = ThisWorkbook.Worksheets("Accueil").Range("B51").Value Set wApp = New Word.Application Set DocWord = AppWord.Documents.Open(Adresse_Fichier_Word, ReadOnly:=False).Visible = True End Sub

---

Ligne 9 => Word Application <Variable objet ou variable de bloc With non définie>
Je ne sais pas m'en dépêtrer.
Merci pour votre aide
Philippe

---

Ouvre bien les yeux 8O : tu as mis wApp au lien de AppWord

Ami calmant, J.P

Ligne 10, tu fais un truc que je n'oserai pas.

Ecrire plutôt :

Code:

---

1 2	Set WordDoc = xxxxx WordDoc.Visible=True

---