|    Page 8 of 10    |

' ******************************************

' Ajout d'item depuis un fichier texte pour

' remplir une ComboBox ou Listbox.

'*******************************************

Private Sub UserForm_Initialize()

     ' Ouvre le fichier en lecture.

     Open "C:\Excel\Donnees.txt" For Input As # 1

     Do While Not EOF ( 1 )

          ' Lit les donnes

          Input # 1 , NomClient

          ' Ajoute les donnes dans la ComboBox ou Listbox

          Me.ComboBox1.AddItem NomClient

     Loop

     Close # 1

End Sub




|    Page 8 of 10    |