bonjour
 
voila le petit probleme j'aimerai effectuer un liens hypertext relatif
explication :
 
je possede un dossier dns lequel figure un fichier access qui sert a remplir le publipostage d'un fichier word tout fonction avec liaison word fusion d'un document.
 
j'aimerai pouvoir deplacer mon dossier m'import ou et garde le lien relatif .\fichier.doc
 
voila mon petit soucis je n'y arrive pas a fair eune commande VBA pour ouvrir mon fichier word
Sub OuvrirFichierWINWORD(ByRef Fichier As String)
    Dim valeur As Double
     
     
    On Error Resume Next
    valeur = Shell(Fichier, vbNormalFocus)
    If valeur = 0 Then
        MsgBox "Impossible d'ouvrirle fichier de type WORD!"
        End
    End If
 
End Sub
Private Sub fiche1_Click()
Const fiche1 = ".\CB1I.doc"
Dim chemin As String
 
Dim wrd As Object
Set wrd = CreateObject("Word.basic" )
   ' chemin = wrd.Path + "\winword.exe"
     
    OuvrirFichierWINWORD (fiche1)
   chemin = wrd.Path + "\winword.exe " + Chr(34) + ".\CB1I.doc" + Chr(34)
'récupère le chemin de word et ajoute le chemin complet du fichier à ouvrir
 
OuvrirFichierWINWORD (chemin + fiche1)
End Sub
 
a bientot
thierry

Sous access la commande :
 
Application.CurrentProject.Path  
 
Te rend le chemin d'accès à ta base. Tu n'aura plus qu'à modifier/concaténer le résultat avec le nom du fichier que tu souhaite ouvrir.