Discussion :

[Au2laDeNosReves]

Bonjour,

Donc voici mon soucis

Dans ma Macro je demande de récupérer le nom de la feuille actuel donc j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Onglet = ActiveSheet.Name

Juste après je récupère donc le nom de la feuille pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ModRecapitulatif.TraitementRecapitulatif (Onglet)

Seulement le problème étant que

Onglet = "Lundi"

Au lieu de

Onglet = Lundi

Vue que j'utilise ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Enum SelectSheets
    Lundi
    Mardi
    Mercredi
    Jeudi
    Vendredi
    Recapitulatif
End Enum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Sub TraitementRecapitulatif(Onglet As SelectSheets)
 
    ' Verifie l'existence de l'onglet Récapitulatif
    Worksheet (Recapitulatif)
 
    Worksheet (Onglet)
 
    ReadLine
 
End Sub

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
Public Sub Worksheet(SelectSheets As SelectSheets)
Dim SearchSheet As String
 
On Error GoTo Err
    Select Case SelectSheets
        Case Lundi
            SearchSheet = "Lundi"
            LigneReca = 3
        Case Mardi
            SearchSheet = "Mardi"
            LigneReca = 4
        Case Mercredi
            SearchSheet = "Mercredi"
            LigneReca = 5
        Case Jeudi
            SearchSheet = "Jeudi"
            LigneReca = 6
        Case Vendredi
            SearchSheet = "Vendredi"
            LigneReca = 7
        Case Recapitulatif
            SearchSheet = "Récapitulatif"
    End Select
 
    IssheetstillThere (SearchSheet)
    Worksheets(SearchSheet).Select
 
Err:
    If Not IssheetstillThere("Récapitulatif") Then
        CreateRecapitulatif
    End If
Err.Clear
 
End Sub

En espérant que vous pouvez m'aider :-D

Cordialement