[VBA-E] ouverture fichier word

Bonjour, je souhaiterai à partir d'un bouton ouvrir un document word.:cry:

1 : Cliquer sur le bouton
2 : Ouvrir le document word situé sous C:\Travail\specification.dot

Voilà l'initilisation de mon code qui me renvoie une erreur :

Code:

---

1 2 3

Dim appWord As Word.Application Dim docWord As Word.Document

---

Si vous avez une solution, merci.

Fais une recherche sur le forum VB/VBA, le sujet a été traité de nombreuses fois.
Si tu ne trouves pas, tu dis

A+

et le message d'erreur ?

regarde tes références ... et rajoute y microsoft Word..

Regarde là http://www.developpez.net/forums/sho...ght=Word+Excel

A+

Merci, il suffiser simplemenf que je coche la case Microsoft Word 10.0 Object library dans l'onglet Outil, référence.

Mais comment puis je lui demander d'ouvrir le document C:\travail\essai.doc

Merci

En vba

Code:

---

Document.open filename:="C:\travail\essai.doc"

---

En VB, je pense que tu dois mettre
with appWord
.open...

Sous toutes réserves :(

A+

Voilà le code que j'ai mis et il me renvoie un message d'erreur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() Dim laDate As Long Dim appWord As Word.Application Dim docWord As Word.Document Dim Document As Variant Set appWord = CreateObject("Word.Application") Document.Open Filename:="C:\travail\essai.doc" With appWord .Visible = True Set docWord = .Documents.Add .Activate End With

---

L'erreur se produit sur la ligne souligné avec message suivant :
Erreur d'execution '424' Objet requis

Vous avez des solutions pour ce bug !!! :cry: :cry:

D'intuition, je ferais:

Code:

---

Set docWord = appWord.Document.Open Filename:="C:\travail\essai.doc"

---

Non testé.

Edit --> De même que, toujours intuitivement, je supprimerais la déclaration de Document

Je viens de voir que tu as plusieurs questions ouverte sur ce forum.

Commence par répondre à ces autres questions pour dire où tu en es et je rouvrirai cette discussion-ci.

Pour que tu n'aies pas à les chercher:
http://www.developpez.net/forums/sho...d.php?t=143918
http://www.developpez.net/forums/sho...d.php?t=143958

non cela ne fonctionne pas.
Mais je cherche toujours...

Il m'a fallu 30 secondes pour trouver l'erreur. Et pourtant, je ne programme pas sous Word, habituellement.

Code:

---

Set docWord = appWord.Documents.Open Filename:="C:\travail\essai.doc"

---

Petit truc que j'ai utilisé:
Je suis allé dans les macro de Word.
J'ai tapé Application (qui correspond à ton appWord, depuis Excel), puis un point, puis doc et là, j'ai vu que la seule possibilité qui était proposée était Documents.

Tu devrais en faire autant.
Tu apprendrais plein de choses.

Merci de ta réponse,
Malheureusement, cela ne fonctionne pas non plus.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() Dim laDate As Long Dim appWord As Word.Application Dim docWord As Word.Document Dim Documents As Variant Set docWord = appWord.Documents.Open Filename:="C:\travail\essai.doc" With appWord .Visible = True Set docWord = .Documents.Add .Activate End With End Sub

---

L'erreur, dite par excel : Erreur de compilation : erreur de synthaxe

Si vous avez des idées.

Code:

---

1 2 3 4 5 6 7 8 9

Sub ouvrirNouveauDocWord() 'necesite d'activer la reference Microsoft Word xx.x Object Library Dim appWrd As Word.Application Dim docWrd As Word.Document Set appWrd = CreateObject("Word.Application") appWrd.Visible = True Set docWrd = appWrd.Documents.Add docWrd.SaveAs "C:\monDocument.doc" End Sub

---

Généreusement offert par SilkyRoad

Tu dis

A+

Mon problème n'est pas d'enregistrer le document ouvert mais à partir d'excel d'ouvrir le document Word nommer "Essai.doc"

Merci de ta contribution.

dans ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton1_Click() Dim laDate As Long Dim appWord As Word.Application Dim docWord As Word.Document Dim Documents As Variant Set docWord = appWord.Documents.Open Filename:="C:\travail\essai.doc" With appWord .Visible = True Set docWord = .Documents.Add .Activate End With End Sub

---

l'instance de Word n'est pas créée !!
il manque un :

Code:

---

Set appWord = New Word.Application

---

ou comme te l'a dit ousk :

Code:

---

Set appWord = CreateObject("Word.Application")

---

Tout dépend ce que tu veux faire avec le document Word. Si tu veux juste ouvrir un document sous word, tu peux faire

Code:

---

1 2 3

n = "WINWORD.EXE " + Chemin + NomFich DemWord = Shell(n, 3)

---

Maintenant, si c'est pour insérer des données d'Excel, continue avec ton code, tu n'en est pas loin.
(Désolé mais je dois m'en aller)

A+

Bon voici donc le code que je met dans un fichier excel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click() Dim laDate As Long Dim appWord As Word.Application Dim docWord As Word.Document Dim Documents As Variant Set docWord = New Word.Application 'Set docWord = CreateObject("Word.Application") Set docWord = appWord.Documents.Open Filename:="C:\travail\essai.doc" With appWord .Visible = True Set docWord = .Documents.Add .Activate End With End Sub

---

Le problème se passe dans la compilation.
Il me dit :"Erreur de compilation : erreur de synthaxe"

Avez vous essayer le code. Il fonctionne chez vous ???

Autres questions : comment mettre définitivement Microsoft Word **.* Object library

Merci.
Je reste connecté

regarde ca (le debut du code) :
http://vb.developpez.com/faq/?page=word#propdocword

et prends la peine de te relire avant d'écrire n'importe quoi !!!

Code:

---

1 2 3 4

Dim appWord As Word.Application Dim docWord As Word.Document Dim Documents As Variant Set docWord = New Word.Application

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'Ouvrir un document Word existant à partir d'Excel -> SilkyRoad '************************************** Sub ouvrirDocWordExistant() 'necesite d'activer la reference Microsoft Word xx.x Object Library Dim appWrd As Word.Application Dim DocWord As Word.Document Set appWrd = CreateObject("Word.Application") appWrd.Visible = True Set DocWord = appWrd.Documents. _ Open("C:\mes documents\monDocument.doc", ReadOnly:=False) End Sub

---

Une recherche sur le forum aurait pu te conduire à ce code ;)

Inutile de recopier ce code sur 3 pages

Le copier/coller, cher à jmf :mouarf: , sans comprendre ce que l'on copie, conduit immanquablement aux inepties sus-mentionnées :?