Vérifier si feuille existe avec variable

Version imprimable

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:

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:

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. :zoubi:

Citation:

Envoyé par xaviou99

Bonjour,

Essayez cette fonction :

Code:

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,

Autre solution à partir de votre code

Code:

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

Citation:

Envoyé par Eric KERGRESSE

Code:

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. :P

Citation:

Envoyé par ARTURO83

Code:

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 :mrgreen:).

Bonne fin de dimanche.

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:

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:

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:

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