utilisation commande Dir

Version imprimable

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:

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.

21/02/2007, 13h04
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
21/02/2007, 13h22
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

Re,

Et si tu modifies le code comme ceci

Code:

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

merci pour votre aide j'y suis parvenue ainsi:

Code:

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