Gestion des feuilles Excel
Bonjour,
Débutant en programmation, je m'atèle actuellement à développé pour un collègue une petite application afin de facilité son travail dans la création d'OF.
Dans cette application j'utilise plusieurs classeur Excel: Un classeur comprenant le modèle d'OF vierge, Un classeur comprenant toute les options, type de machine etc.
Dans l'un de ces classeurs j'ai besoin de lire deux feuilles différentes.
Une pour les options dites communes au différentes machines et une autre qui diffèrent selon la taille de la machine.
J'ai donc testé cette solution pour choisir la deuxième feuille voulu mais ça ne fonctionne pas quelqu'un aurait il une idée ?
Ci-dessous je vous met l'extrait comprenant le classeur qui me pose problème affilié à la variable "KitSal".
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| Dim xls As Excel.Application
Dim OF2 As Excel.Workbook
Dim ListeKit As Excel.Workbook
Dim AUTO As Excel.Worksheet
Dim Kitcommun As Excel.Worksheet
Dim KitSal As Excel.Worksheet
xls = CreateObject("Excel.Application")
OF2 = xls.Workbooks.Open(My.Settings.cheminOF)
AUTO = OF2.Worksheets(1)
ListeKit = xls.Workbooks.Open(My.Settings.cheminKit)
Kitcommun = ListeKit.Worksheets(1)
If Capacité.Text = "1m³" Then 'feuille excel corresepondant à la taille'
KitSal = ListeKit.Worksheets(2)
ElseIf Capacité.Text = "1,5m³" Then
KitSal = ListeKit.Worksheets(3)
ElseIf Capacité.Text = "2m³" Then
KitSal = ListeKit.Worksheets(4)
ElseIf Capacité.Text = "3m³" Then
KitSal = ListeKit.Worksheets(5)
ElseIf Capacité.Text = "4m³" Then
KitSal = ListeKit.Worksheets(6)
ElseIf Capacité.Text = "5m³" Then
KitSal = ListeKit.Worksheets(7)
ElseIf Capacité.Text = "6m³" Then
KitSal = ListeKit.Worksheets(8)
ElseIf Capacité.Text = "7m³" Then
KitSal = ListeKit.Worksheets(9)
ElseIf Capacité.Text = "8m³" Then
KitSal = ListeKit.Worksheets(10)
Else
MsgBox("Veuillez renseigner la capacité.", MsgBoxStyle.OkOnly, "Erreur")
OF2.Close(False)
ListeKit.Close(False)
xls.Quit()
Exit Sub
End If |