Discussion :

[AidezMoiSvp]

Bonjour,

Je souhaiterai visualiser un pdf dans un formulaire.
J'utilise pour ça le controle activx pdf reader avec ce code :

Code :

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

1
2
3
4
5
6
 
    If FichierExiste("C:\Users\moi\Documents\" & "2013-02*" & ".pdf") Then
        Me.AcroPDF0.LoadFile ("C:\Users\moi\Documents\" & "2013-02*" & ".pdf")
    Else
        MsgBox "existe pas"
    End If

Le contrôle de l'existence du fichier fonctionne bien MAIS le fichier pdf n'est pas ouvert pour autant.
D'où peut venir le problème ?

Merci

[ilank]

Bonjour,

Je pense qu'il te faut utiliser le nom exact du fichier à ouvrir. Donc sans le caractère "*" utiliser lors de la recherche.

[AidezMoiSvp]

Ok merci.

Une idée de comment je peux récupérer le nom du fichier trouvé ?

[ilank]

Regarde déjà le contenu de la fonction FichierExiste().
Tu peux aussi jeter un oeil sur la fonction Dir()

[AidezMoiSvp]

La fonction est celle présente dans la FAQ. Elle utilise Dir()

Code :

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

1
2
3
Function FichierExiste(NomFichier As String) As Boolean
    FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function

J'ai essayé de récupérer le nom par diverses méthode mais rien n'y fait

[ilank]

Ok, la fonction Dir() renvoie le nom du premier fichier trouvé correspondant aux critères de recherche.

[AidezMoiSvp]

Je n'y arrive pas

Code :

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

1
2
3
4
 
If FichierExiste("C:\Users\moi\Documents\" & Me.ID_PROJET & " -*.docx") Then
MsgBox Dir("C:\Users\moi\Documents\" & NomFichier)
End If

La message box ne m'affiche que le nom du document mais pas son chemin d'accès.

MAJ : bon je bidouille un peu et voilà comment je parviens à récupérer le chemin complet :

Code :

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

1
2
3
4
5
6
7
8
 
Dim varChemin As String
 
varChemin = "C:\Users\moi\Documents\"
 
If FichierExiste(varChemin & Me.ID_PROJET & " -*.docx") Then
msgbox varChemin & Dir(varChemin & NomFichier)
End If

Pourquoi "Dir(varChemin & NomFichier)" ne me renvoie pas directement le chemin complet ? Pourquoi suis-je obligé de mettre "varChemin & Dir(varChemin & NomFichier)" pour avoir le chemin complet ?