Comment Convertir une Variable
Bonjour,
Donc voici mon soucis
Dans ma Macro je demande de récupérer le nom de la feuille actuel donc j'utilise :
Code:
Onglet = ActiveSheet.Name
Juste après je récupère donc le nom de la feuille pour
Code:
ModRecapitulatif.TraitementRecapitulatif (Onglet)
Seulement le problème étant que
Onglet = "Lundi"
Au lieu de
Onglet = Lundi
Vue que j'utilise ceci
Code:
1 2 3 4 5 6 7 8
| Public Enum SelectSheets
Lundi
Mardi
Mercredi
Jeudi
Vendredi
Recapitulatif
End Enum |
Code:
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:
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