- Private Sub Form_Load()
-
- Dim a As Integer 'declaration de la variable a incrementer
- 'qui correspond a la valeur de la ligne
-
- Dim data As String 'declaration de la variable qui prendra comme
- 'valeur le contenu de la cellule
-
- Dim monclasseur As Excel.Workbook 'declaration d'une variable comme classeur excel
- Set monclasseur = workbooks.Open("c:\test.xls") 'qui prendra comme valeur le fichier test.xls place
- 'dans C
-
- a = 0 'attribution de la valeur "0" à "a"
-
- suite: 'debut d'un sous programme appele suite
- a = a + 1 'incremente "a" de "1"
- data = Sheets("données").Range("a" & a) 'place la valeur de la cellule de colonne "A" et de
- 'ligne "a" dans "data"
- If data = "" Then GoTo fin 'si la cellule est vide alors on saute à fin
- Combo1.AddItem data 'on ajoute le contenu de "data" dans le combo1
- GoTo suite 'on retourne au sous prog "suite"
-
- fin: 'début d'un sous prog appele "fin
-
- workbooks.Close 'fermeture des classeurs
-
- End Sub
Private Sub Form_Load()
Dim a As Integer 'declaration de la variable a incrementer
'qui correspond a la valeur de la ligne
Dim data As String 'declaration de la variable qui prendra comme
'valeur le contenu de la cellule
Dim monclasseur As Excel.Workbook 'declaration d'une variable comme classeur excel
Set monclasseur = workbooks.Open("c:\test.xls") 'qui prendra comme valeur le fichier test.xls place
'dans C
a = 0 'attribution de la valeur "0" à "a"
suite: 'debut d'un sous programme appele suite
a = a + 1 'incremente "a" de "1"
data = Sheets("données").Range("a" & a) 'place la valeur de la cellule de colonne "A" et de
'ligne "a" dans "data"
If data = "" Then GoTo fin 'si la cellule est vide alors on saute à fin
Combo1.AddItem data 'on ajoute le contenu de "data" dans le combo1
GoTo suite 'on retourne au sous prog "suite"
fin: 'début d'un sous prog appele "fin
workbooks.Close 'fermeture des classeurs
End Sub