Discussion :

[Phil333250]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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.

[Phil333250]

Bonjour Pierre,

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

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jurassic pork]

Hello,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 : tu as mis wApp au lien de AppWord

Ami calmant, J.P

[Doatyn]

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

Ecrire plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WordDoc = xxxxx
WordDoc.Visible=True

[Pierre Fauconnier]

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


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 . De plus, tu n'utilises pas la déclaration explicite des variables. Ca risque de te jouer des mauvais tours.