Discussion :

[xaviou99]

Bonjour,

J'espère que vous allez bien.


Je travaille actuellement sur un panneau de performance industrielle. Chaque jour, une nouvelle feuille est générée qui reprend les performances du jour précédent (avec la condition des jours ouverts).
Actuellement, j'ai réussi à faire le code suivant qui me permet de gérer les weekends (afin de reprendre les valeurs du vendredi). Mon problème est le suivant : je voudrai empêcher de créer une feuille excel si celle-ci existe déjà. Or je ne vois pas comment procéder avec la manipulation des dates dans le code suivant :

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
 
Application.ScreenUpdating = False 
 
Select Case Weekday(Date, vbMonday) 
    Case 7: JourOuvrablePrecedent = Date - 2 
        Sheets("Panneau vierge").Copy After:=Worksheets(Worksheets.Count()) 
        ActiveSheet.Name = Format(Date - 2, "dd-mm") 
        Range("AA2") = Format(Date - 2, "dd-mmm") 
 
    Case 1: JourOuvrablePrecedent = Date - 3 
        Sheets("Panneau vierge").Copy After:=Worksheets(Worksheets.Count()) 
        ActiveSheet.Name = Format(Date - 3, "dd-mm") 
        Range("AA2") = Format(Date - 3, "dd-mmm") 
        Nomfeuille = ActiveSheet.Name 
 
    Case Else: JourOuvrablePrecedent = Date - 1 
        Sheets("Panneau vierge").Copy After:=Worksheets(Worksheets.Count()) 
        ActiveSheet.Name = Format(Date - 1, "dd-mm") 
        Range("AA2") = Format(Date - 1, "dd-mmm") 
        Nomfeuille = ActiveSheet.Name 
End Select
 
'il y a encore du code derrière mais cela ne concerne plus le problème

Pour information, mes feuilles sont sous le format suivant :

Code :

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

1
2
Test = Format(Date , "dd-mm")
Test = "03-05"

J'ai consulté de nombreux forum mais je ne vois pas comment transposer ce que je vois à mon problème.

Merci par avance pour vos retours.

[Invité]

Bonjour,

Essayez cette fonction :

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
 
 
Function OngletValide(ByVal FichierAModifier As Workbook, ByVal NomDeLOnglet As String) As Boolean
 
Dim ShACreer As Worksheet
 
    OngletValide = True
    For Each ShACreer In FichierAModifier.Sheets
        If ShACreer.Name = NomDeLOnglet Then
           OngletValide = False
           Exit For
        End If
    Next ShACreer
 
End Function
 
 
Sub EssaiOngletValide()
 
    If OngletValide(ActiveWorkbook, "03-05") = False Then Exit Sub 'MsgBox "Cet onglet existe déjà !", vbCritical
 
End Sub

[ARTURO83]

Bonjour,

Autre solution à partir de votre code

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
Sub New_Sheet()
    Dim Ref As Long
    Application.ScreenUpdating = False
    Select Case Weekday(Date, vbMonday)
        Case 7: JourOuvrablePrecedent = Date - 2
            Ref = 2
        Case 1: JourOuvrablePrecedent = Date - 3
            Ref = 3
        Case Else: JourOuvrablePrecedent = Date - 1
            Ref = 1
    End Select
    For i = 1 To Sheets.Count
        If Sheets(i).Name = Format(Date - Ref, "dd-mm") Then Exit Sub
    Next i
    Sheets("Panneau vierge").Copy After:=Worksheets(Worksheets.Count())
    ActiveSheet.Name = Format(Date - Ref, "dd-mm")
    Range("AA2") = Format(Date - Ref, "dd-mmm")
    Nomfeuille = ActiveSheet.Name
End Sub

Cdlt

[xaviou99]

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
Sub New_Sheet()
    Dim Ref As Long
    Application.ScreenUpdating = False
    Select Case Weekday(Date, vbMonday)
        Case 7: JourOuvrablePrecedent = Date - 2
            Ref = 2
        Case 1: JourOuvrablePrecedent = Date - 3
            Ref = 3
        Case Else: JourOuvrablePrecedent = Date - 1
            Ref = 1
    End Select
    For i = 1 To Sheets.Count
        If Sheets(i).Name = Format(Date - Ref, "dd-mm") Then Exit Sub
    Next i
    Sheets("Panneau vierge").Copy After:=Worksheets(Worksheets.Count())
    ActiveSheet.Name = Format(Date - Ref, "dd-mm")
    Range("AA2") = Format(Date - Ref, "dd-mmm")
    Nomfeuille = ActiveSheet.Name
End Sub

Bonjour,

J'aime bien coder une première fois de façon lourde pour ne rien oublier puis j'épure à mon deuxième passage. Vous m'avez devancé donc je vous en remercie (ce sera toujours du travail en moins ).

Bonne fin de dimanche.

[xaviou99]

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
 
 
Function OngletValide(ByVal FichierAModifier As Workbook, ByVal NomDeLOnglet As String) As Boolean
 
Dim ShACreer As Worksheet
 
    OngletValide = True
    For Each ShACreer In FichierAModifier.Sheets
        If ShACreer.Name = NomDeLOnglet Then
           OngletValide = False
           Exit For
        End If
    Next ShACreer
 
End Function
 
 
Sub EssaiOngletValide()
 
    If OngletValide(ActiveWorkbook, "03-05") = False Then Exit Sub 'MsgBox "Cet onglet existe déjà !", vbCritical
 
End Sub

Bonjour,

Merci pour cette réponse si rapide qui va pouvoir me faire avancer dans mon projet.
Je viens de l'adapter et cela fonctionne parfaitement.

Bonne fin de journée.

[Philippe Tulliez]

Bonjour,
Voici une proposition parmi d'autres
La fonction IsSheetExist renvoie True ou False en fonction de la présence ou non de la feuille dont le nom est passé dans l'argument SheetName , le second argument est facultatif, il repséente l'objet Workbook dans lequel la recherche de la feuille doit être effectuée (par défaut, c'est le classeur actif)

Basée sur une boucle qui parcoure l'ensemble des feuilles présentes dans le classeur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function IsSheetExist(SheetName As String, Optional oWorkbook As Workbook) As Boolean
  Dim flag As Boolean
  Dim Count As Integer
  If oWorkbook Is Nothing Then Set oWorkbook = ActiveWorkbook
  With oWorkbook
    While (Not flag) And (Count < .Sheets.Count)
     Count = Count + 1
     flag = (SheetName = .Sheets(Count).Name)
    Wend
  End With
  IsSheetExist = flag
End Function

Que l'on invoque par exemple comme ceci

Code :

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

1
2
3
4
Sub TestIsSheetExist()
  Const cSheetName As String = "Sites"  ' Nom de la feuille
  MsgBox "La feuille nommée [" & cSheetName & IIf(IsSheetExist(cSheetName), "] Existe", "] N'existe pas")
End Sub

ou en précisant le classeur

Code :

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

1
2
3
4
Sub TestIsSheetExist()
  Const cSheetName As String = "Sites"  ' Nom de la feuille
  MsgBox "La feuille nommée [" & cSheetName & IIf(IsSheetExist(cSheetName, ThisWorkbook), "] Existe", "] N'existe pas")
End Sub