jy arrive pas cherche auto pdf dans repertoires

Question

Bonjour

Je cherche en vain un code qui marche :
j'ai 1 1ere combo dans laquelle je choisis 1 repertoire
j'ai 1 2ieme combo dans laquelle je choisis 1 sous repertoire
Enfin j'ai un textbox dans laquelle j'indique un chiffre

je voudrais au click d'un bouton qu'il imprime le PDF contenant le chiffre textbox. ce pdf se trouve dans repertoire
+sous repertoire choisis dans les combo....

et la je coince

Merci d'avance

Fred

cs_ITALIA · Answer

Chemin=combo1.text & "" & Combo2.text & ""& text1.text & ".pdf" ' Construction du Chemin

Imprim = ShellExecute(Me.hwnd, "print", Chemin, "", vbNullString, 0)'Impression

Je ne sais pas si ca répond à ton souci !
ton probléme c'est l'impression ou la recherche du Fichier ??

It@li@

cs_Fredo25 · Answer

Et bien c'est surtout le recherche

j'ai essaye avec 
Set ListeDossiers = CreateObject("Scripting.FileSystemObjet")

mais jy arrive vraiment pas

Fred

cs_ITALIA · Answer

Utilise le composant FileListBox....

il a besoin du chemin de Recherche
File1.Path=combo1.text & "" & Combo2.text & ""

du type de Fichier
File1.Pattern="*.pdf"

la liste se remplis alors toute seule...comme une ListBox..
les lignes sont accessibles 
File1.List(2)

ca te va ??

It@li@

cs_Fredo25 · Answer

Merci pour ta reponse mais ca ne fonctionne pas
Si je pose un arret et je regarde la valeur que prend File1.path j'ai le chemin de vb98

?

Fred

cs_ITALIA · Answer

File1.Path=.....' c'est toi qui fixe le chemin du Repertoire de Recherche
Ex : File1.Path="C:"

Pour Recuperer le chemin Complet d'un Fichier il faut faire:
Chemin=File1.List(0)' 0 C'est le numéro de la Ligne sachant que ca commence à Zéro

It@li@

cs_Fredo25 · Answer

C'est ce que j'ai fait :

Private Sub RECHERCHER_Click()

File1.Path = "c:\streamserve" & "" & SOCIETES.Text & "" & ANNEES.Text & "" 

End sub

SOCIETES : choix societe qui determine le 1er repertoire
ANNEES : choix de l'annee qui detremine le sous repertoire
avec ce code la dans ma filelistbox j'ai une liste de facture.
je voudrais avec une textbox en choisir une ou plusieurs
text box numfacture : 622435
de la j'aimerais que dans ma filelistbox je visualise mon pdf s'appelant TF-HG-23-04-622435.pdf et je puisse soit l'ouvrir soit l'imprimer

Fred

cs_ITALIA · Answer

la FileListBox se remplis bien des nom de tes PDF contenu dans ton PATh ???non ??

It@li@

cs_Fredo25 · Answer

En fait c'est bon quand je remplis mes combo et ma textbox le resultat s'affiche bien dans la filelistbox

sais tu si je peux l'imprimer directement (sans passer par une commondialog) et/ou l'ouvrir avec acrobat

merci pour ton aide precieuse

Fred

cs_ITALIA · Answer

oui à mon Avis :

-----------------------------------------------------------------
Private Sub Command1_Click()

Impression= ShellExecute(Me.hwnd, "print", CheminComplet, "", vbNullString, 0)

End Sub
-----------------------------------------------------------------

CheminComplet est un string contenant l'emplacement + Nomdu Fichier..
Ex : "c:\streamserve" & "" & SOCIETES.Text & "" & ANNEES.Text & "" & TF-HG-23-04-622435.pdf

It@li@

Jy arrive pas cherche auto pdf dans repertoires

9 réponses

Discussions similaires