'******************* Combo Numéro Dim hMenu2 As Long Dim menuItemCount2 As Long Dim A12 As String Open "C:\Rapport événement\Base de donnée SITES adresse.txt" For Input As #1 While Not EOF(1) Line Input #1, A12$ A12$ = Left$(A12$, 5) ' NOUVELLE LIGNES ComboNumero.AddItem (A12$) Wend Close #1 '******************** Combo Site Dim i%, j% aFile = GetColumnsFromFile("C:\Rapport événement\Base de donnée SITES adresse.txt", vbTab) For i = 1 To UBound(aFile) Combo1.AddItem aFile(i, 1) Next i
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question