XL 2010 acces a classeur fermé

[jeffe]

Bonjour le Forum,
je cherche une solution pour alimenter une liste dans comboboxs depuis un classur fermé.
j'ai bien une première solution qui fonctionne mais je suis obligé d'activer Microsoft ActiveX Data Object 2.8 sur tous les postes utilisants mon fichier.
j'ai trouvé (mais pas compris) un code ne nescéssitant pas l'activation de nouvelles Refs
Pouvez vous m'aider?
merci

 

[youky(BJ)]

Bonjour Jeffe,
Voici un fichier avec un simple userform et combobox1
Il faut adapter la macro Chemin -Fichier -Onglet
Ce fichier est très ancien mais fonctionne encore très bien.
Utilise le méthode Excel4Macro
Bruno
Edit voici le code

Sub vachercher()
With UserForm1
.ComboBox1.Clear
Chemin = "'" & ThisWorkbook.Path & "\"  'à adapter au besoin
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
ChampALire2 = "R" & k & "C2"
.ComboBox1.AddItem Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire)
'.ComboBox1.Column(1, .ComboBox1.ListCount - 1) = Application.ExecuteExcel4Macro(Chemin & Fichier & Onglet & ChampALire2)
If .ComboBox1.List(.ComboBox1.ListCount - 1) = 0 Then
.ComboBox1.RemoveItem (.ComboBox1.ListCount - 1)
Exit For
End If
Next
.Show
End With
End Sub

 

[jeffe]

Bonjour, je vais essayer
je viens d'adapter mon chemin, merci, reste à adapter ton exemple pour 2 combobox
bon we
jf