Récupérer la valeur d'un groupBox dans Excel
Bonjour à tous et à toutes,
Voilà je suis plus que débutant en programmation. Mais je vais essayer d'être le plus précis possible :)
J'ai plusieurs formulaire avec les classiques ( checkbox, listbox, RadioButton, etc).
J'aimerais transférer dans un fichier Excel définit ( qui me sert d'Ordre de fabrication avec un mise en page prédéfinit) à l'avance le résultat de tous ce petit monde. Et après moult essais j'y suis arrivé. Mais étant fainéant :) je me demande si il y a pas une solution pour récupérer directement le RadioButton actif pour chaque groupbox plutôt que d'enchainé chaque cas et d'avoir 1 million de ligne...
Je précise que c'est ma grande première en matière de programmation de ce genre. J'était resté auparavant à la programmation machine avec mes grafcets et langage LADDER ^^
Voici la démarche que j'utilise des fois que je soit dans le faux :p
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Dim xls As Excel.Application 'Application Excel'
Dim OF2 As Excel.Workbook 'Classeur Excel'
Dim AUTO As Excel.Worksheet 'Feuille Excel'
'Export OF'
Private Sub CréerUnOFToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CréerUnOFToolStripMenuItem.Click
xls = CreateObject("Excel.Application")
OF2 = xls.Workbooks.Open("C:essai.xlsx")
AUTO = OF2.Worksheets(1)
If choix1.Checked = True Then
AUTO.Cells(16, 7).Value = " choix1"
End If
If choix2.Checked = True Then
AUTO.Cells(16, 7).Value = "choix2"
End If
AUTO.Cells(3, 9).Value = listbox.Text
OF2.Save()
xls.Quit() |
