Discussion :

[Fender60]

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

[r.morel]

Salut,
Quel est le message d'erreur lors de la déclaration de ta variable "kitsal" ?

[Fender60]

Et voici pour Mr un message d'erreur tous chaud :p

[r.morel]

Lorsque le message apparait vérifie que ta variable "listekit" ne soit pas égale à Nothing

[Fender60]

Lorsque le message apparait vérifie que ta variable "listekit" ne soit pas égale à Nothing

Comment qu'on fait ?

Puis ca me le fais pas toujours au même stade ca me le fait aussi et la plus part du temps sur l'une de ces lignes, au moment où il doit choisir la feuille correspondante à la taille de ma machine.
Ce qui veux dire qu'il a réussi à passer la ligne qui a précédemment générer l'erreur.

[r.morel]

Comment qu'on fait ?

Tu crées un arret en cliquant à gauche des numéros de ligne. Visual Studio va exécuter le code jusqu'à cette ligne. Ensuite tu fais un "pas à pas" avec [F8].
Ensuite comme sur l'image jointe tu peux voir la valeur de tes variables.

Je te conseil de te familiariser avec Visual Studio grâce par exemple à ce cours : http://ditch.developpez.com/articles/visualstudio/2008/presentation/
Le mode "pas à pas" et les fenêtres d’exécution et de débogage te seront très utiles.

En ce qui concerne le second message d'erreur. Il est assez clair ! Tu as un soucis d'index de tes feuilles. Tu dois vérifier que tu aies une feuille à l'index N°7 de ton classeur...

[r.morel]

Lorsque le message apparait vérifie que ta variable "listekit" ne soit pas égale à Nothing

Si tu veux que je puisse t'aider, peux-tu répondre à ce post ?

[Fender60]

Si tu veux que je puise t'aider, peux-tu répondre à ce post ?

Oui j'était justement entrain de le vérifier ( plusieurs choses à faire à la fois, on doit toujours être partout à la fois dans mon entreprise :p).

Effectivement, ma variable est nulle la majeur partie du temps et me génère donc cette erreur.