Bonjour,

J'ai un formulaire de consultation de courrier.
un bouton me permettait d'ouvrir les fichiers attachés mais depuis que j'ai transferer ma BD sur un pc muni d'un access 2000.
Il m'affiche systematiquement qu'il ne trouve pas le fichier.
Pouvez m'aider a voir si j'ai pas un problème de synthaxe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub BtnOuvDoc_Click()
Dim strFichier As String
Dim WApp As Word.Application
 
DoCmd.Hourglass True
strFichier = chemDoss.Value
If Dir(strFichier) <> "" Then
    Set WApp = CreateObject("word.application")
        With WApp
        .Visible = True
        .Documents.Open strFichier
        .Activate
        End With
Else
MsgBox "le courrier n'a pas été trouvé à l'endroit spécifié", vbOKOnly
End If
DoCmd.Hourglass False
 
End Sub
Hors je confirme le courrier n'a pas été déplacé et se trouve toujours là.
merci.