XL 2019 ouvrir word en vba

[desmonts]

Bonjour à toutes et tous

J'essai d'ouvrir Word nommé "x" en vba qui se trouve sur mon bureau. Ensuite je vais coller via des signets ce qu'il y a dans mes champs de mon fichier Excel. Mais impossible d'ouvrir ce fichier excel ? vous auriez une idée ?
Par avance merci. La macro s'arrête à ce niveau .Documents.Open Filename:="C\x.docx"
sub contrat()

Dim WordApp As Word.Application
Dim worddoc As Word.Document
Dim i As Byte

Set WordApp = New Word.Application

With WordApp
.Visible = True
.Documents.Open Filename:="c:\x.docx"
End With
Set WordApp = Nothing
End Sub

 

[Staple1600]

Bonjour le fil, desmonts

desmonts
Avant de créer une nouvelle question
Merci d'assurer un suivi dans la précédente 😉

XL 2019 - Erreur de compilation : Type défini par l'utilisateur non défini

Bonjour, Je souhaite remplir via un fichier Excel des signets dans un document word. J'ouvre mon fichier excel et je lance ma macro. Elle ouvre mon fichier word, l'enregistre et rempli les signets que j'ai défini de 1 à 88, via les champs Excel (1 à 88). Mais cela ne fonctionne pas il me dit...

www.excel-downloads.com

 

[Dranreb]

Re-bonjour.
Le classeur dont le projet vba contient ce code est forcément ouvert.
J'ignore cependant si ActiveSheet, ActiveWorkbook et autres choses assumées si non précisées devant les méthodes Cells ou Range sont toujours bien définies, dans la mesure où ce n'est plus Excel qui est en avant plan. Dans le doute je stockerais préalablement tout ce dont j'ai besoin dans des variables ou tableaux dynamiques.

 

[Staple1600]

Re, Re-Bonjour Dranreb

Encore dans la même minute 😉
(cf message#2)

desmonts
EDITION: Chez moi (Excel 2013), le code ci-dessous fonctionne

Sub test_Word()
    Set wrdAPP = CreateObject("word.Application")
    wrdAPP.documents.Open "C:\Users\STAPLE\fichierWord.docx"
    wrdAPP.Visible = True
End Sub

NB: Changer le chemin du dossier et le nom du fichier avant de tester.

 

[Staple1600]

Re

desmonts
Je viens de relire ton message et j'ai noté ceci

J'essai d'ouvrir Word nommé "x" en vba qui se trouve sur mon bureau.

Si ton document Word est sur le bureau alors le chemin dans le code n'est pas le bon
.Documents.Open Filename:="c:\x.docx"

 

[desmonts]

Merci, oui effectivement avec le bon chemin c'est mieux. Merci à tous pour vos retour.