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 : Sélectionner tout - Visualiser dans une fenêtre à part
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