Discussion :

[mulanzia2003]

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]

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]

et le message d'erreur ?

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

[ouskel'n'or]

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

A+

[mulanzia2003]

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]

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]

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