problème pour ouvir un document WORD

**emma07** · 29/05/2006, 14h12

Je suis en train de créer une base de donnée, j'ai crée un bouton de commande pour exécuter un document WORD que j'ai tapé, mais hélas mon bouton ne marche pas.

quelqu'n pourrez-t-il-m'aider.

**stéphane_ais2** · 29/05/2006, 14h22

Bonjour et bienvenue,

Peux-tu nous donner ton code sans lequel il est difficile de t'aider ?

SE

**emma07** · 29/05/2006, 14h26

voiçi mon code :
Set objDoc = Application.Documents.Open("c:\manuel d'utilisation.doc")

peut être faut-il ouvrir une bibliothèque ?

**stéphane_ais2** · 29/05/2006, 14h32

Si tu cherches à ouvir un document Word sans le mettre en relation avec des données de la base, regarde par ici...
Pour le publispostage c'est par là...

En espérant t'avoir aidé...

SE

**emma07** · 29/05/2006, 14h36

qu'est ce que le module d'une form ?

Je dois rajouter tout ceçi dans le Source de mon bouton ?

**stéphane_ais2** · 29/05/2006, 14h43

Tu dois placer comme cela est expliqué dans la FAQ la première partie du code dans les déclarations du formulaire et mettre la seconde partie sur un événement comme le clic sur un bouton par exemple...(tout cela se passe dans l'éditeur VBA)

N'hésite pas à utiliser l'aide d'Access...

SE

Pour exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Compare Database
Option Explicit
 
'Déclaration pour démarrer une application avec ShellExecute
Private Declare Function apiShellExecute 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

Code :

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

1
2
3
4
5
 
Private Sub BtnInfos_Click()
'Ouvre le fichier Lisez-moi dans le répertoire courant du projet AIS 2
apiShellExecute Me.hwnd, "open", "LISEZ_MOI.doc", "", CurrentProject.Path, 1
End Sub

...

SE

**emma07** · 30/05/2006, 08h34

A quoi correspond le SHELL32.dll et ShellExecuteA ?

**emma07** · 30/05/2006, 09h02

aprés avoir taper le code VBA que vous m'avez donné j'ai toujours une erreur de compilation qui surgie : Erreur de compilation SUB ou FUNCTION non definie

**stéphane_ais2** · 30/05/2006, 09h40

Bonjour,

Le nom de la Sub est un exemple ; il faut la remplacer sur l'évenement sur clic par le nom du bouton qui lance la procédure

Code :

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

Private Sub NomDuBouton_Click()

SE

**emma07** · 30/05/2006, 09h47

oui c'est ce que j'ai fait mon bouton s'apelle ouvir_manuel_utilisation

j'ai donc ecrit: private Sub ouvir_manuel_utilisation_Click()

**stéphane_ais2** · 30/05/2006, 09h58

Peux-tu donner le code complet ?

SE

**emma07** · 30/05/2006, 10h08

Voilà exactement ce que j'ai tapé:

Option Compare Database
Option Explicit

'Déclaration pour démarrer une application avec ShellExecute
Private Declare Function apiShellExecute 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

ce code je l'ai placé dans un module que j'ai appelé module 1

Private sub ouvrir_manuel_utilisation_click()
apishellexecute me.hwnd, "open", "C:\Documents and settings\Emmanuelle\Mes documents\manuel d'utilisation de la base de donnée THERM'ECO.doc","",currentProject.path, 1

ce code je l'ais placé dans le bouton sur click en procedure evenementielle

**stéphane_ais2** · 30/05/2006, 10h26

Il manque

Code :

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

End Sub

en fin de procédure ;

Il faut placer le premier code en tête de procédure du formulaire...

SE

**emma07** · 30/05/2006, 10h28

excuse_moi le end sub je l'est bien marqué mais j'ai oublié de le marquer dans le message.

je vais essayé de changé la première procédure de place. je te dis si sa marche.

merçi pour ton aide

**emma07** · 30/05/2006, 10h34

J'ai placé ma première procédure à l'endroit que tu m'a indiqué maintenant j'ai une autre erreur qui apparait : Point d'entrée ShellExecuteA d'une DLL introuvable dans Shell32.dll

**stéphane_ais2** · 30/05/2006, 10h49

Dans la deuxième partie du code,

Code :

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

CurrentProject.Path

évite d'avoir à placer le chemin complet du fichier à ouvrir ; il suffit de placer ce fichier dans le répertoire courant de la base...Regarde de ce côté peut-être...
Sinon l'erreur que tu rapportes m'est inconnue...

SE

**emma07** · 30/05/2006, 10h57

j'ai placé mon document dans le répertoire de base mais hélas la même erreur apparaît. merçi encore pour ton aide. je vais essayé de me débrouiller autrement.

**stéphane_ais2** · 30/05/2006, 11h05

J'ai oublié de préciser que dans ce cas il suffit d'écire le nom du fichier à la place du chemin...mais peut-être l'avais-tu déjà fait?

SE

**emma07** · 30/05/2006, 11h12

c'est à dire ecrire cela : "open", "manuel_utilisation.doc", currentProject.path....

**pgz** · 30/05/2006, 11h13

Bonjour,

je te propose le code suivant, qui requiert Microsoft Word 11.0 Library Object ( Outils/référence sous éditeur VB)
[CODE]Dim WdDoc as Word.Document

Set wdDoc = GetObject("C:\Documents and settings\Emmanuelle\Mes documents\manuel d'utilisation de la base de donnée THERM'ECO.doc"
wdDoc.Application.Visible = True
Set WdDoc = nothing[/CODE]

Si tu veux juste ouvrir le document, cela devrait suffire. Tu peux aussi ajouter un traitement d'erreur, GetObject produira une erreur si le fichier désigné n'existe pas.

Bon courage,

pgz

problème pour ouvir un document WORD

Access

Discussions similaires

Partager

Partager