choisir son repertoire "fichier ouvrir" avec variable

Question

bonjour a tous

j'aimerais pouvoir avec un bouton faire un "ouvrir sous" mais avec 2 conditions : j'ai deux listbox avec dans la premiere des noms de societe (correspond au nom du 1er repertoire) et une deuxieme des annees (correspond au nom du 2eme repertoire) exemple si on choisis societe x avec annee 2002 je voudrais que automatiquement il ouvre la boite de dialogue "ouvrir" C:\x\2002\*.pdf

voila mon code actuel :
 
dim rep1 as string
dim rep2 as string
dim monfichier as variant

monFichier = Application.GetOpenFilename("Fichier pdf (*.pdf),*pdf")

ChDir ("c:" & "" & rep1 & "" & rep2 & "" & "*.pdf")

mais il ne fonctionne pas et je seche...

Merci pour votre aide

Fred

cs_ITALIA · Answer

Facile !

il faut uiliser un controle de type commonDialog

en cochant la case : Microsoft Common Dialog Control 6.0 dans Fichier....Composant...

tu place un controle sur ta forme

Remplace x et Annee par tes selection de tes ListBox
 
Ensuite dans le code de ton bouton :

***********************************************

Repertoire = x & "" & Annee & "" 

CommonDialog1.DialogTitle = "Selection Fichier PDF"
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.InitDir = "C:" & Repertoire
CommonDialog1.Filter = "Fichiers PDF (*.pdf)|*.pdf"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen

Chemin = CommonDialog1.FileName)
**********************************************

It@li@

cs_Fredo25 · Answer

je ne comprend pas....

je suis sur vba excel

je ne trouve pas le commondialog

sur VB je connais mais vba quid ?

fred

cs_ITALIA · Answer

c pas des masse expliqué dans ton message que t'es en vba !!!!

It@li@

cs_Fredo25 · Answer

ok meaculpa j'ai trouve

merci j'essais de suite

fred

cs_Fredo25 · Answer

impossible de le faire fonctionner :

Private Sub CommonDialog1_Enter()

rep1 = societe.Text
rep2 = annee.Text

CommonDialog1.DialogTitle = "Selection Fichiers PDF"
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.InitDir = "c:\streamserve" & "" & rep1 & "" & rep2 & "" & "*.pdf"
CommonDialog1.Filter = "Fichier pdf (*.pdf),*pdf"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen

monFichier = CommonDialog1.Filename

End Sub

Fred

cs_ITALIA · Answer

Quel est le message d'erreur et ou se trouve t-il ?? Sinon t'as fais des fautes c'est : Private Sub CommonDialog1_Enter() rep1 = societe.Text rep2 = annee.Text CommonDialog1.DialogTitle = "Selection Fichiers PDF" CommonDialog1.Flags = cdlOFNHideReadOnly CommonDialog1.InitDir = "c:\streamserve" & "" & rep1 & "" & rep2 & "" ~~& "*.pdf"~~ CommonDialog1.Filter = "Fichier pdf (*.pdf),*pdf" CommonDialog1.FilterIndex = 2 CommonDialog1.ShowOpen monFichier = CommonDialog1.Filename End Sub It@li@

cs_ITALIA · Answer

t'as une faute Private Sub CommonDialog1_Enter() rep1 = societe.Text rep2 = annee.Text CommonDialog1.DialogTitle = "Selection Fichiers PDF" CommonDialog1.Flags = cdlOFNHideReadOnly CommonDialog1.InitDir = "c:\streamserve" & "" & rep1 & "" & rep2 & "" ~~& "*.pdf"~~ CommonDialog1.Filter = "Fichier pdf (*.pdf),*pdf" CommonDialog1.FilterIndex = 2 CommonDialog1.ShowOpen monFichier = CommonDialog1.Filename End Sub It@li@

cs_Fredo25 · Answer

Merci pour ton aide j'ai corrigé la faute, de plus j'ai  deplacé mon code de : 

Private Sub CommonDialog1_Enter()

à :

Private Sub bouton1_Click()
... et quand je click sur ce bouton en ayant fais mes 2 choix ça marche nickel

Encore merci

Fred

Choisir son repertoire "fichier ouvrir" avec variable

8 réponses

Discussions similaires