Liste valeurs combobox dans un classeur fermé

[btellier]

Bonjour à tous,

ma question va peut-être paraître bête pour certains mais je la pose quand même. J'ai une Combobox dans un classeur 1, la liste source se situe sur un classeur 2. Est-il possible d’accéder à la liste des valeurs de ma combobox sachant que le classeur 2 est fermé ?

Merci par avance...

Benoit

 

[youky(BJ)]

Re : Liste valeurs combobox dans un classeur fermé

Bonsoir btellier,
Il existe plusieurs façon de faire . . .
Voici un exemple avec un combobox à 2 colonnes
Supprime le code en rouge si tu as une seule colonne
Bruno

ComboBox1.Clear
Chemin = "'" & ThisWorkbook.Path & "\"
Fichier = "[charpente.xls]" ' le nom du fichier à lire
Onglet = "Tuiles'!" 'le nom de l'onglet à lire
For k = 7 To 65000 'commencer à lire à la ligne 7
ChampALire = "R" & k & "C1" ' k est la ligne incrémentée C1 est col A C2 est B ainsi de suite
[COLOR="Red"]ChampALire2 = "R" & k & "C2"'si 2 colonnes
[/COLOR]ComboBox1.AddItem Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire)[COLOR="red"]
ComboBox1.Column(1, ComboBox1.ListCount - 1) = Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire2)'si 2 colonnes[/COLOR]If ComboBox1.List(ComboBox1.ListCount - 1) = 0 Then
ComboBox1.RemoveItem (ComboBox1.ListCount - 1)
Exit For
End If
Next