refresh fichier pdf

Salut

Voila j utilise le code suivant qui marche bien qd on met le chemin complet du fichier. (SelectedFile = NOM du Fichier avec chemin complet)

Code:

---

1 2 3 4 5

SelectedFile = File1.Path & "\" & File1.FileName AcroPDF1.Visible = False AcroPDF1.LoadFile SelectedFile AcroPDF1.Visible = True AcroPDF1.setShowToolbar (False)

---

Mais mon but est que le AcroPDf affiche le fichier selectionné dans une FilelistBox composé de la facon suivante :

Code:

---

(SelectedFile = File1.Path & "\" & File1.FileName)

---

si je place ce code dans form avec un chemin tout fait ca marche

mais avec un chemin composé

Code:

---

(SelectedFile = File1.Path & "\" & File1.FileName)

---

ca ne marche pas


Mon but est que le AcroPDf affiche le fichier selectionné dans une FilelistBox composé de la facon suivante

Code:

---

(SelectedFile = File1.Path & "\" & File1.FileName)

---

Comment faire pour le AcroPDF affiche le Fichier Sélectionné ?

Merci d 'avance


++

Normalement ca devrait marcher, Quand Vb appelle une fonction, il posse les paremètre sur la pile puis exécute la fonction. La fonction depile ensuite pour trouver ses parametres.
Donc pour la fonction appelée peu importe la façon dont les parametres ont été poussés sur la pile.

Je ne vois que la possibilité d'un probleme de type de variable. Vérifie que la variable SelectedFile est bien déclarée comme string.
Ensuite fait une debug.print SelectedFile pour verifier que ton nom de fichier est bien celui que attends.

salut


Merci D'avoir Repondu


Je suis sur de ma Variable SelectedFile mais on dirais qu'il n y a pas de mise a jour de donnée.

J'ai rajouté un TextBox dont le Text est = aSelectedFile et paraeil qd je clic sur un fichier le TextBox ne se met pas a jour.

Par contre dans un bouton oui

Je te Joins le code Complet

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Private Sub Command1_Click()   Dim SelectedFile As String SelectedFile = File1.Path & "\" & File1.FileName Text1.Text = SelectedFile   End Sub   Private Sub Dir1_Change()   File1.Path = Dir1.Path   End Sub   Private Sub Drive1_Change()   Dir1.Path = Drive1.Drive   End Sub   Private Sub Form_Load()   Drive1.Drive = "D:" Dir1.Path = "D:\scanner"   Dim SelectedFile As String SelectedFile = File1.Path & "\" & File1.FileName AcroPDF1.Visible = False AcroPDF1.LoadFile SelectedFile AcroPDF1.Visible = True AcroPDF1.setShowToolbar (False)   End Sub   Private Sub Text1_Change()   Dim SelectedFile As String SelectedFile = File1.Path & "\" & File1.FileName Text1.Text = SelectedFile   End Sub

---

Voila

Merci encore

Je ne Vois Vraiment pas ??


++ et bonne journée ;)

Ok, je comprend mieux, ce n'est pas un problème de passage de parametre, mais un probléme d'uilisation du trio de composants drive / dir / file

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Drive1_Change() Dir1.Path = Drive1.Drive ' Définit le chemin d'accès du répertoire. End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path ' Définit le chemin d'accès du fichier. End Sub Private Sub File1_Click() Debug.Print Dir1.Path & "\" & File1.FileName Dim SelectedFile As String SelectedFile = File1.Path & "\" & File1.FileName AcroPDF1.Visible = False AcroPDF1.LoadFile SelectedFile AcroPDF1.Visible = True AcroPDF1.setShowToolbar (False) End Sub

---

Salut Delbeke


Alors là Trop Fort,


Ca marche au poil.
Je te remercie pour ta soluce.

J'ai Commencé le VB6 depuis peu, l'autoformation n'est pas toujours facile
mais avec des aides comme ca, je pense que ca ira tres bien.

Grace a toi j'ai tout ce qui faut pour finir mon petit projet.

Merci encore

et @+


;)