Alimenter 2 combobox

[maval]

Bonjour

Je suis à la recherche d'un code pour alimenter deux combobox qui se trouvent sur ma feuille
"Combobox1 pour les continent et combobox deux pour les pays"
Avec la combobox2 j'aimerais ouvrir le répertoire en sachant que le chemin est: J:\Dossier_Monnaies\Continent et combox1 et combobox2
Je vous remercie de votre aide

 

[BOISGONTIER]

Bonsoir,

Sans macro

Avec Macro

JB

 

[sousou]

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

 

[maval]

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

 

[maval]

Bonjour sousou

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

Merci et bonne soirée

 

[maval]

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:

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

 

[maval]

Bonjour

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

 

[sousou]

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

 

[maval]

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

 

[sousou]

Je ne vois pas, envoi ton fichier

 

[sousou]

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

 

[maval]

Re,

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