Forum automatisme

Bonjour à tous,

Je n'arrive pas à remplir une combobox sur PCvue via VBA. J'ai trouvé le code ci-dessous sur un sujet du forum que j'ai "tenté" d'adapter en vain à mon projet mais je n'y arrive pas et je ne comprends pourquoi... Quelqu'un peut-il m'aider ?

Sub combobox_remp()
'Declaration des variables
Dim recup As String
Dim tabsplit() As String
Dim recette As String
Dim famille As String


' Ouverture du fichier contenant les recettes
Open "C:\ARC Informatique\PcVue 11.2\Usr\STP MBHLS\CTEMP\VAREXP.dat" For Input As #1

AIComboBox1.Clear

Indexa = 1
Do While Not EOF(1)
Line Input #1, recup

If recup <> "" Then
tabsplit = Split(recup, ",")

If tabsplit(0) = "DOM" Then

recette = tabsplit(1)


tmp = AIComboBox1.addItem(recette, "", Indexa)
Indexa = Indexa + 1

End If
End If

Loop

Close #1


End Sub

je vous remercie d'avance

Cordialement,

SamSam

slts,
Montrer le contenu du fichier VAREXP.dat pour voir

Le varexp est bon car quand je fais le pas à pas sur VBA, la variable "recette" récupère la valeur souhaitée. Le problème survient à la ligne "tmp = AIComboBox1.addItem(recette, "", Indexa)"...

je vous joint quand même le varexp.

merci de votre réponse

J'ai trouvé le problème : il fallait commencer Indexa à 0 et non à 1. Voilà merci quand même