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
PC Vue 11.2 : Remplir Combobox Vba
-
- Apprend le binaire
- Messages : 3
- Inscription : 01 juil. 2019, 16:51
- itasoft
- Mi homme - Mi automate
- Messages : 7037
- Inscription : 20 oct. 2015, 10:15
- Localisation : Lyon
- Contact :
Re: PC Vue 11.2 : Remplir Combobox Vba
slts,
Montrer le contenu du fichier VAREXP.dat pour voir
Montrer le contenu du fichier VAREXP.dat pour voir
Automaticien privé (de tout)
itasoft@free.fr
itasoft@free.fr
-
- Apprend le binaire
- Messages : 3
- Inscription : 01 juil. 2019, 16:51
Re: PC Vue 11.2 : Remplir Combobox Vba
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
je vous joint quand même le varexp.
merci de votre réponse
-
- Apprend le binaire
- Messages : 3
- Inscription : 01 juil. 2019, 16:51
Re: PC Vue 11.2 : Remplir Combobox Vba
J'ai trouvé le problème : il fallait commencer Indexa à 0 et non à 1. Voilà merci quand même