houssine77
XLDnaute Nouveau
Bonjour à tous
j'ai 8 combobox sur un userfor qui sont alimenter par un fichier txt de données, les données du Txt ne sont pas à modifier juste à les lire j'ai vu plusieur code me je n'arrive pas à les adapter à mes besoin quelqu'un peut m'aider à adapter ce code que j'ai trouvé sur le net que je remercie l'autheur d'avace
merci d'avance
j'ai 8 combobox sur un userfor qui sont alimenter par un fichier txt de données, les données du Txt ne sont pas à modifier juste à les lire j'ai vu plusieur code me je n'arrive pas à les adapter à mes besoin quelqu'un peut m'aider à adapter ce code que j'ai trouvé sur le net que je remercie l'autheur d'avace
Code:
Public Sub LitValeurs(strChemFich As String)
Dim F As Integer
Dim Val1 As String, Val2 As Integer, Val3 As Date
F = FreeFile '1er numéro libre
Open strChemFich For Input As #F 'ouvert en lecture
While Not EOF(F)
Input #F, Val1, Val2, Val3 'lit chaque valeur de la ligne et les attribue aux variables correspondantes
MsgBox Val1 & " - " & Val2 & " - " & Val3
Wend
Close #F
End Sub