Discussion :

[alainb]

Bonjour,
J'ai testé avec succès des lignes de code pour ouvrir avec Notes.exe un fichier texte
mais avec WINWORD.exe, cela ne marche pas pour un fichier doc

Code :

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

Shell "winword.exe " & CurrentProject.Path & "\mon_fic.doc" , vbMaximizedFocus

Ou sont mes erreurs ?
Merci

[Invité]

Bonjour

Ne t'embête pas avec la fonction Shell, il y'a mieux que cela.

Fait une recherche dans la avec ShellExecute et sur le forum.

C'est une API qui te permet d'ouvrir un fichier avec le programme associé, comme quand tu cliques sur une icône dans ton explorateur.

Starec

[philben]

bonjour,

une alternative sans api...

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
16
 
Public Function RunApp(ByVal sNomApplication As String, _
                             Optional ByVal sParametres As String = vbNullString, _
                             Optional ByVal eWindowStyle As VbAppWinStyle = vbNormalFocus, _
                             Optional ByVal bAffErreur As Boolean = False) _
                             As Boolean
On Error Resume Next
If Len(Trim$(sParametres)) > 0 Then
   sNomApplication = sNomApplication & " """ & Trim$(sParametres) & """"
End If
RunApp = Shell(sNomApplication, eWindowStyle)
If err And bAffErreur Then
   MsgBox "Erreur n°" & err.Number & vbCrLf & "Description : " & err.Description, _
          vbExclamation, "Fonction RunApp()"
End If
End Function

Philippe

[alainb]

Bingo les amis(es)
Ce soir, je suis le plus heureux des hommes !

Code :

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

ShellExecute Me.hWnd, "open", "c:\Nouveau Document Microsoft Word.doc", "", CurrentProject.Path, 1

avec

Code :

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

1
2
3
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

dans le module de mon formulaire

merci à philben pour le complément
Alain