Ouverture doc Word2003 depuis Access2003 avec Directory Concatener

Re Bonjour !

Je suis désolé de vous avoir embêté avec ma question car j'ai trouvé une
solution (au bout de 3 heures de recherches!).

Je vous la donne ci dessous. Si quelqu'un a une idée pour l'optimiser, je
suis preneur ! Et si ça aide quelqu'un (j'en doute) et bien tant mieux !

Voici ma solution :
Private Sub BtnWord_Click()
On Error GoTo Err_BtnWord_Click

Dim stAppName As String

Dim stDir1 As String
Dim stDir2 As String
Dim stDir3 As String
Dim DIRECTORY As Variant
Dim PAM1 As Variant
Dim PAM2 As Variant
Dim PAM3 As Variant
Dim PAM4 As Variant

Dim DOCUMENT As Variant
Dim PROGRAMME As Variant


stDir1 = "d:Mes documentsFanfictionHarry
PotterHarry-GinnyEnregistrer"
stDir2 = Me.TitreFanfic
stDir3 = "Chapter 01.doc"
DIRECTORY = stDir1 & stDir2 & stDir3
PAM1 = """"
PAM2 = """"
DOCUMENT = PAM1 & DIRECTORY & PAM2

stAppName = "WINWORD.exe"
PAM3 = """"
PAM4 = """"
PROGRAMME = PAM3 & stAppName & PAM4

stLancement = PROGRAMME & DOCUMENT

'TEST DE RENVOI DE DIRECTORY SUR FORMULAIRE

txtESSAI.Value = stLancement

'OUVERTURE DE LA FANFICTION AU CHAPITRE 01

Call Shell(stLancement, 1)

Dim wdApp As WORD.Application

With wdApp

WORD.Application.WindowState = wdWindowStateMaximize

End With


Exit_BtnWord_Click:
Exit Sub

Err_BtnWord_Click:
MsgBox Err.Description
Resume Exit_BtnWord_Click

End Sub

Faites en bonne usage !!

Mallory
--
"Life is not about the amount of breath you take.....but the moments that
take your breath away."

Bonjour !

J'ai crée une SGBDR gérant Mes fanfiction.
Je souhaiterais pouvoir ouvrir le Premier chapitre en cliquant sur un bouton
de commande.
La particularité serais que la directory reprendrais la valeur d'un activeX.
Voila ce que j'ai déjà réalisé :

Private Sub BtnWord_Click()
On Error GoTo Err_BtnWord_Click

Dim stAppName As String

stAppName = "WINWORD.EXE""D:Mes documentsFanfictionHarry
PotterHarry-GinnyEnregistrerA Lost LoveChapter 01.doc"
Call Shell(stAppName, 1)

Exit_BtnWord_Click:
Exit Sub

Err_BtnWord_Click:
MsgBox Err.Description
Resume Exit_BtnWord_Click

End Sub

A la place de :
""D:Mes documentsFanfictionHarry PotterHarry-GinnyEnregistrerA Lost
LoveChapter 01.doc"
J'ai essayé :
""D:Mes documentsFanfictionHarry PotterHarry-GinnyEnregistrer" &
TitreFanfic.Value & "Chapter 01.doc"
Mais cela ne marche pas.

Quelqu'un aurait il la solution ?

Je vous remercie d'avance.

Mallory
--
"Life is not about the amount of breath you take.....but the moments that
take your breath away."