Liaison feuille dans un combobox

[Myriam4m]

Bonjour à tous,

J'essaye en ce moment de créer une belle macro pour faciliter un peu mon travail .
Mais soucis : je n'arrive pas à importer une liste de données qui se trouve dans un autre classeur pour la mettre dans un combobox.

Voilà le code k j'ai fait pour remplir ma combobox:

Me.ListeInvestisseurs.RowSource = 'Q:\\Book\\[Fichiers vierges]\\[Liste Investisseurs]Feuil1!A1:A' & Sheets('Feuil1').Cells(1, 1).End(xlDown).Row

Mais cela ne marche pas !!
Une erreur de syntaxe ou autre .. ??

Merci de votre aide, myriam :unsure:

 

[Baside]

Bonsoir Myriam4m, le Forum,

Une question: Est ce que les fichiers se trouvent dans le même dossier ?

Bonne soirée, Baside

 

[Franz63]

Bonjour,

Votre probleme n'est pas simple car il fait appel à un autre classeur

vous trouverez ci joint un petit exemple

il faut placer les 2 fichiers dans un répertoire D:\\Excel ou bien modifier le répertoire dans le code

le programme ouvre le classeur, et ajoute un a un les éléments situés dans la feuille tant qu'il n'y a pas de case vide

bonne soirée

François

[file name=test_20050509180416.zip size=13910]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20050509180416.zip[/file]

 

[Myriam4m]

Bonjour Basile

Effectivement, les fichiers se trouvent dans le meme dossier ..

Myriam

 

[Myriam4m]

Merci Franz,

Je n'ai aps encore pu ouvrir ton fichier car pb d'autorisation admin au travail .. si tu peux me l'envoyer en texte plein ou par mail
sinon j'essayerai ce soir en rentrant ..

Merci pour ta réponse ..

Myriam

 

[Franz63]

bonsoir Myriam,

ci dessous le code utilisé à insérer dans la 'userform'


Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm

Dim i As Integer
Dim Insertion As String

Workbooks.Open Filename:='D:\\EXCEL\\ListeRef.xls'
Sheets('Liste').Select
i = 1

While Cells(i, 1) <> ''
Insertion = Cells(i, 1).Value
mois.AddItem Insertion
i = i + 1
Wend

End Sub


je n'ai pas votre adresse, voici mon adresse mail fdelabarre@caramail.com
si vous souhaitez que je vous envoie le fichier

bonne soirée