Discussion :

[adri891]

Bonjour,

Après avoir parcouru les sujets qui décrivent comment ouvrir un fichier word avec access, je ne trouve toujours pas la solution à mon problème.
Je suis débutant et j'ai les notions de base d'access.

Voilà ce que je voudrais réaliser : j'aimerais que, lorsque l'on clique sur un boutton de commande dans un formulaire, un fichier word s'ouvre afin que je puisse l'imprimer ou le modifier.

Dois-je passer par une macro ? Ou bien coder avec VB ?

Merci pour vos réponses.

[nico84]

Bonjour,

La commande shell ouvre le fichier avec le programme windows par défaut :

Code :

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

ShellExecute 0&, vbNullString, "monfichier.doc", vbNullString, vbNullString, vbNormalFocus

[adri891]

Merci pour votre réponse.
J'ai mis ce code dans la propriété "sur clic" du boutton avec le nom de fichier associé mais cela ne fonctionne pas. Que faire ?

[nico84]

Il faut mettre ça qqpart (par exemple dans un module) :

Code :

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

1
2
Public 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

Et donc aussi ajouter la référence shell32.dll

[adri891]

J'ai mis le code que vous m'avez transmis dans un module que j'ai appelé : modOpenWord.
J'ai également rajouter la référence shell32.dll et j'ai également cocher la case "shellExtension" dans Outils\Références.
Ceci ne fonctionne toujours pas (Oui je suis un novice sous access )

Code :

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

1
2
3
4
5
6
7
8
Option Compare Database
 
    References.AddFromFile ("C:\WINDOWS\system32\shell32.dll")
 
    Public 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
 
End Sub

Autre question : comment appeler mon module d'après le code VB de mon boutton de commande ?

Merci pour tout nico84 !

[nico84]

Ceci ne fonctionne toujours pas

Ca compile ???

Je ne connais pas

Code :

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

References.AddFromFile ("C:\WINDOWS\system32\shell32.dll")

J'ajoute une référence par le menu du VBA

Par ailleurs le End Sub ne ferme rien

[adri891]

Lorsque je compile, il me demande de faire une macro . Puis quand je fais exécuter, il me dit que les macros sont désactivées. Que dois-je faire ?

[adri891]

En cherchant un peu, j'en ai déduit ce code ci :

//////////////////////////////////////////////////////
Private Sub OpenFile_Click()

On Error GoTo Err_OpenFile_Click

Call Shell("C:\Program Files\Microsoft Office\Office12\WINWORD.EXE", 1)

Exit_OpenFile_Click:
Exit Sub

Err_OpenFile_Click:
MsgBox Err.Description
Resume Exit_OpenFile_Click

End Sub
///////////////////////////////////////////////////////////

Est-ce correct ? (car cela n'ouvre pas word)

[adri891]

J'ai enfin trouvé les éléments de réponse : il fallait activer les macros dans les options de Word et d'access.

Merci pour votre aide !!