Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 ouvrir word en vba

desmonts

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonjour le fil, desmonts

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

Dranreb

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Re, Re-Bonjour Dranreb

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

desmonts
EDITION: Chez moi (Excel 2013), le code ci-dessous fonctionne
VB:
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.
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…