Bonjour à tous,
je suis une très grande débutant en VB et je dois réaliser pour le boulot une petite application. Et dans cette application, j'ai créé une listbox et je voudrais qu'en double-cliquant sur une des lignes de la listbox soit sélectionné une feuille d'un fichier Excel déjà ouvert.
Voici ce que j'ai réalisé (et qui ne marche pas!!!)

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
39
'Création de la listBox
Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.AddItem "Janvier"
ListBox1.AddItem "Février"
ListBox1.AddItem "Mars"
ListBox1.AddItem "Avril"
ListBox1.AddItem "Mai"
End Sub
 
'Action du double click : Récupération du numéro d'index de la listbox et ouverture du programme de selection de la feuille 
Sub ListBox1_DoubleClick()
Dim N As Integer
N = ListBox1.SelectedIndex
Windows("Fichier.xls").Activate
Call Selectionfeuille
End Sub
 
'Programme de selection de la feuille
Sub Selectionfeuille()
Dim N As Integer
     If N = 0 Then
        Sheets("Janvier").Selected
        ActiveWindow.SelectedSheets
End If
    If N = 1 Then
        Sheets("Février").Selected
        ActiveWindow.SelectedSheets
End If
    If N = 2 Then
        Sheets("Mars").Selected
End If
    If N = 3 Then
        Sheets("Avril").Selected
End If
    If N = 4 Then
        Sheets("Mai").Selected
End If
 End Sub

Pourriez vous me dire pourquoi ça ne fonctionne pas et comment puis-je corriger cela. Merci d'avances!
Attention n'oubliez pas je suis une novice, ne soyez pas trop techniques dans vos réponses!


Merci mille fois!