Ouvrir un fichier word avec VBA Access

Version imprimable

26/10/2007, 19h41
alainb

Ouvrir un fichier word avec VBA Access

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:

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

Ou sont mes erreurs ?
Merci
26/10/2007, 19h45
Invité

Bonjour

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

Fait une recherche dans la :faq: 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

bonjour,

une alternative sans api...

Code:

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

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

Code:

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

avec
Code:

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