Alimenter 2 combobox

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 9 Août 2016

• #2

Bonsoir,

Sans macro

Avec Macro

JB

 

Pièces jointes

• Copie de Recherche dossier.xlsm

  13.2 KB · Affichages: 46
• Copie de FormCascade2niv.xls

  57 KB · Affichages: 32

Dernière édition: 9 Août 2016

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 9 Août 2016

• #3

Bonsoir
Avec macro.
Dans la macro combobox2 utilise le chemin de tes fichier avec le chdir

 

Pièces jointes

• Copie de Recherche dossier.xlsm

  28.8 KB · Affichages: 43

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 9 Août 2016

• #4

Bonjour JB

Je te remercie beaucoup Mon problème comment je peut ouvrir mon dossier avec la valeur de la deuxième combobox qui se trouve J:\Dossier_Monnaies
Merci et bonne soirée

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 9 Août 2016

• #5

Bonjour sousou

Ton code fonctionne très bien mais je n'arrive pas a mettre le chemin avec chdir....?

Merci et bonne soirée

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 9 Août 2016

• #6

Bonjour

Voilà j'ai modifier le code pour accéder au répertoire mon problème est que je n'arrive pas a voir les images en Gif ou Jpg voici mon code que j'ai mis:

Code:

Private Sub ComboBox2_Change()
Dim F As String

ChDrive "J:"
On Error GoTo 0
  ChDir "J:\Dossier_Monnaies\continent\" & Me.ComboBox1.Value & "\" & Me.ComboBox2.Value & "\"
    F = Dir(CH & "*.gif" & "*.Jpg")
   
Application.Dialogs(xlDialogOpen).Show

End Sub

Merci de votre aide

 

Dernière édition: 10 Août 2016

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 10 Août 2016

• #7

Bonjour

Personne peut m'aider a résoudre mon problème.
Bonne journée à tous

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 10 Août 2016

• #8

Bonjour
Essai ceci.
Tu disposera du nom du fichier et pourra ainsi déterminer ce que tu veux en faire
Private Sub ComboBox2_Change()
On Error GoTo 0
ChDrive ("j:")
ChDir "J:\Dossier_Monnaies\continent\" & Me.ComboBox1.Value & "\" & Me.ComboBox2.Value

fichier = Application.GetOpenFilename("fichier image (*.jpg ;*.gif), (*.gif)")

MsgBox fichier


End Sub

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 10 Août 2016

• #9

Bonjour sousou

Je te remercie beaucoup juste une question pourquoi lorsque j'ouvre la combobox1 le dossier s'ouvre, problème il que je le referme et recherche par la combobox2 pour ouvrir le bon fichier
Bonne journée

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 10 Août 2016

• #10

Je ne vois pas, envoi ton fichier

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 10 Août 2016

• #11

si je vois!
Private Sub ComboBox2_Click() au lieu de change()....

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 10 Août 2016

• #12

Re,

Ok Nickel je te remercie et te souhaite une bonne soirée

 

Vote positif 0 Vote négatif