Bonjour,
Voila mon problème. J'ai un fichier que mes collaborateurs utilisent pour se transmettre les infirmations d'une équipe à l'autre.
Jusqu'à maintenant, ça ne posait pas problème, mais depuis un certains temps, ils me remontent qu'ils aimerait que ça suivent leur planning.
A ce jour ma macro fait ça:
Sub Resume_Onglet()
NBRE_ONGLET = ActiveWorkbook.Sheets.Count
LIGNE_DEB_TAB_ONGLET = 7
LIGNE_DEB_TAB_RESUME = 4
NBRE_OCCURENCE = 0
Sheets.Add before:=Worksheets(1)
Sheets(1).Name = "RESUMÉ"
Worksheets(1).Cells(3, 2).Value = "DATE"
Worksheets(1).Cells(3, 3).Value = "Nbre de Point(s)"
'For ONGLET = (NBRE_ONGLET) To 2 Step -1
For ONGLET = 2 To (NBRE_ONGLET)
Worksheets(1).Cells(LIGNE_DEB_TAB_RESUME, 2).Value = Sheets(ONGLET).Name
RECHERCHE_LIGNE = LIGNE_DEB_TAB_ONGLET
While Not Worksheets(ONGLET).Cells(RECHERCHE_LIGNE, 1).Value = ""
CONTENU_LIGNE = Worksheets(ONGLET).Cells(RECHERCHE_LIGNE, 1).Value
TEST_CONTENU = Split(CONTENU_LIGNE, "h")
If Not TEST_CONTENU(0) = "xx" Then
NBRE_OCCURENCE = NBRE_OCCURENCE + 1
End If
RECHERCHE_LIGNE = RECHERCHE_LIGNE + 1
Wend
Worksheets(1).Cells(LIGNE_DEB_TAB_RESUME, 3).Value = NBRE_OCCURENCE
LIGNE_DEB_TAB_RESUME = LIGNE_DEB_TAB_RESUME + 1
NBRE_OCCURENCE = 0
Next
Worksheets(2).Select
End Sub
Ce qui chaque jour à minuit, me génère un onglet du jour.
Aujourd'hui, il faudrait qu'un onglet soit ouvert à chaque ouverture de fichier en fonction des heures.
Un onglet pour la tranche 14h30-22h30, un onglet pour le tranche 22h30-6h30 et le week end, le samedi et le dimanche, un onglet 06h30-18h30, et 18h30-06h30.
Seulement la je suis un peu perdu, une idée pour adapter ça de cette façon?
Merci de votre aide par avance.