[VBA-E] ouverture fichier word

**mulanzia2003** · 22/05/2006, 10h29

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

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 :

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

1
2
3
 
Dim appWord As Word.Application
Dim docWord As Word.Document

Si vous avez une solution, merci.

**ouskel'n'or** · 22/05/2006, 10h35

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

A+

**SfJ5Rpw8** · 22/05/2006, 10h36

et le message d'erreur ?

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

**ouskel'n'or** · 22/05/2006, 10h37

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

A+

**mulanzia2003** · 22/05/2006, 10h48

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

**ouskel'n'or** · 22/05/2006, 11h17

En vba

Code :

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

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

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

Sous toutes réserves

A+

**mulanzia2003** · 23/05/2006, 07h13

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

Code :

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

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 !!!

**AlainTech** · 23/05/2006, 07h53

D'intuition, je ferais:

Code :

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

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

**AlainTech** · 23/05/2006, 08h02

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

**mulanzia2003** · 23/05/2006, 14h05

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

**AlainTech** · 23/05/2006, 15h46

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

Code :

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

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.

**mulanzia2003** · 24/05/2006, 15h08

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

Code :

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

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.

**ouskel'n'or** · 24/05/2006, 15h15

Code :

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

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+

**mulanzia2003** · 24/05/2006, 15h55

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.

**ThierryAIM** · 24/05/2006, 17h49

dans ton code :

Code :

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

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 :

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

Set appWord = New Word.Application

ou comme te l'a dit ousk :

Code :

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

Set appWord = CreateObject("Word.Application")

**ouskel'n'or** · 24/05/2006, 19h19

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 :

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

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+

**mulanzia2003** · 24/05/2006, 20h00

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

Code :

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

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é

**ThierryAIM** · 24/05/2006, 20h24

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 :

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

1
2
3
4
Dim appWord As Word.Application
Dim docWord As Word.Document
Dim Documents As Variant
Set docWord = New Word.Application

**ouskel'n'or** · 24/05/2006, 22h25

Code :

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

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