ouverture d'un document Word

Salut Pierre,
Teste ceci :

Private Declare Function ShellExecute _
Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal lpszOp As String, _
ByVal lpszFile As String, _
ByVal lpszParams As String, _
ByVal lpszDir As String, _
ByVal FsShowCmd As Long) As Long

Private Sub Command1_Click()
Dim Fichier As String
Fichier = "D:Mon document.doc"
ShellExecute 0, _
"open", _
Fichier, _
vbNullString, _
vbNullString, _
1
End Sub

Hervé.

"Pierre" <moldry(supprimer)@hotmail.com> a écrit dans le message news:
uvPjKQlJFHA.3356@TK2MSFTNGP12.phx.gbl...

Bonjours a Tous

j'ai encore un petit problème
je voudrais ouvrire un document word a partire de VB
C:monFichier.doc

j'ai bien esseiller la commande Shell :o( mais sa fonctionne pas

est qu'il y une ligne de commande que je pourais me servire

Salut,
voir la variable suivant et le chemin en APP.Path
Youky

Dim AppWrd As Object
Dim DocWrd As String
suivant="monfichier" 'ici que le nom du fichier
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
If Err <> 0 Then _
Set AppWrd = CreateObject("Word.Application")
AppWrd.Visible = True 'false pour pas voir
On Error GoTo 0
'App.Path renvoie le chemin de l'application
'si <> rentrer le chemin exact
DocWrd = App.Path & "" & suivant & ".doc"
On Error Resume Next
AppWrd.Windows(suivant & ".doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate suivant
AppWrd.Windows(suivant & ".doc").WindowState = 0
Set AppWrd = Nothing

"Pierre" <moldry(supprimer)@hotmail.com> a écrit dans le message news:
uvPjKQlJFHA.3356@TK2MSFTNGP12.phx.gbl...

Bonjours a Tous

j'ai encore un petit problème
je voudrais ouvrire un document word a partire de VB
C:monFichier.doc

j'ai bien esseiller la commande Shell :o( mais sa fonctionne pas

est qu'il y une ligne de commande que je pourais me servire

Merci pour les deux réponses je vais potasser la dessus
des maintenant

"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
%23ZKGZayJFHA.4064@tk2msftngp13.phx.gbl...

Salut,
voir la variable suivant et le chemin en APP.Path
Youky

Dim AppWrd As Object
Dim DocWrd As String
suivant="monfichier" 'ici que le nom du fichier
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
If Err <> 0 Then _
Set AppWrd = CreateObject("Word.Application")
AppWrd.Visible = True 'false pour pas voir
On Error GoTo 0
'App.Path renvoie le chemin de l'application
'si <> rentrer le chemin exact
DocWrd = App.Path & "" & suivant & ".doc"
On Error Resume Next
AppWrd.Windows(suivant & ".doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate suivant
AppWrd.Windows(suivant & ".doc").WindowState = 0
Set AppWrd = Nothing

"Pierre" <moldry(supprimer)@hotmail.com> a écrit dans le message news:
uvPjKQlJFHA.3356@TK2MSFTNGP12.phx.gbl...

Bonjours a Tous

j'ai encore un petit problème
je voudrais ouvrire un document word a partire de VB
C:monFichier.doc

j'ai bien esseiller la commande Shell :o( mais sa fonctionne pas

est qu'il y une ligne de commande que je pourais me servire