Discussion :

[p'tite Sandrine]

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.

[Invité]

Bonjour

Tu fais appel à word, sur ton PC avec Access 2000, serait-t-il Word 2000, et avec qu'elle version d'office à tu programmé ?

Va voir les références au cas où ?

Starec

[p'tite Sandrine]

hello,

j'ai programmé en 2002.

Mais toute les références sont bien présente.

Ps; d'ailleur je viens de faire le test sans la condition if et ca fonctionne parfait.
Mais si jamais il trouve pas le document car celui ci a été déplacer ou supprimer bonjour la kata

[Domi2]

Re,

Et si tu modifies le code comme ceci

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
20
21
22
Private Sub BtnOuvDoc_Click()
Dim strFichier As String
Dim nom Fichier As String
Dim WApp As Word.Application
 
DoCmd.Hourglass True
strFichier = chemDoss.Value
nomFichier = Dir(strFichier)
Msgbox nomFichier
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

le chemin du fichier est-il correct ?

Domi2

[p'tite Sandrine]

merci pour votre aide j'y suis parvenue ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
If Not IsNull(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é!"
End If

Y a plus qu'a espérer que cette synthaxe ne me fera pas de mauvaise surprise