Remplir une listBox

[jper]

Bonjour,

Je cherche désespérément a afficher dans une listbox les item se trouvant dans une colonne d'une feuille excel
Voici le code que j'utilise lors de l'ouverture de ma form

Private Sub UserForm_Initialize()
Dim i As Integer
Dim myRange As Range

With Workbooks(FicResultatI).Sheets(SheetCaisse)
For i = 1 To .Range("W65536").End(xlUp).Row
ListBox1.AddItem .Range("W1").Offset(i - 1, 0)
Next i
End With
End Sub

Les variables FicResultatI et SheetCaisse sont déclarées au début de programme.
Quand je lance le programme il ne trouve pas le fichier.

j'ai joint le fichier excel où il n'y que le code et le fichier zip où il y a l'arborescence du projet.

Cordialement,

Jean-François

 

[camarchepas]

Re : Remplir une listBox

Bonsoir ,

Le code est dans le même fichier que les données ?

 

[jper]

Re : Remplir une listBox

Bonjour,
Désolé de ma réponse tardive, justement les données ne sont pas dans le même fichier que la macro.
Cordialement,

Jean-François

 

[camarchepas]

Re : Remplir une listBox

Re ,

La déclaration est fait dans un module standard ou dans le thisworkbook .

Sous cette syntaxe ?

public FicResultatI as string
public SheetCaisse as string

ou

public const FicResultatI as string = "Exemple.xls"
public const SheetCaisse as string = "Boite"