Bonjour à tous,
J'ai une macro qui démarre à l'ouverture du fichier et demande si je souhaite créer des onglets.
Je souhaiterais la modifier comme suit:
1. rechercher si un onglet existe déjà avec un nom donné
1.1 si oui, msgbox "il existe deja" et passer à la suite
1.2 si non, le créer.
Je n'arrive pas à écrire ce if.
Voici ma macro:
Private Sub Workbook_Open()
Dim Rep As Integer
Rep = MsgBox("Créer les onglets du jour?", vbYesNo + vbQuestion, "EXTRACTIONS DU JOUR")
If Rep = vbYes Then
'vérifier si l'onglet existe déjà
'si oui, msgbox
'si non, code suivant:
Sheets.Add.Name = "RE" & Format(Date, "dd.mm.yy")
ActiveSheet.Move After:=Sheets(Sheets.Count)
Else
End If
End Sub
Je sens que c'est très simple mais je ne vois pas comment...
Merci de votre aide!
J'ai une macro qui démarre à l'ouverture du fichier et demande si je souhaite créer des onglets.
Je souhaiterais la modifier comme suit:
1. rechercher si un onglet existe déjà avec un nom donné
1.1 si oui, msgbox "il existe deja" et passer à la suite
1.2 si non, le créer.
Je n'arrive pas à écrire ce if.
Voici ma macro:
Private Sub Workbook_Open()
Dim Rep As Integer
Rep = MsgBox("Créer les onglets du jour?", vbYesNo + vbQuestion, "EXTRACTIONS DU JOUR")
If Rep = vbYes Then
'vérifier si l'onglet existe déjà
'si oui, msgbox
'si non, code suivant:
Sheets.Add.Name = "RE" & Format(Date, "dd.mm.yy")
ActiveSheet.Move After:=Sheets(Sheets.Count)
Else
End If
End Sub
Je sens que c'est très simple mais je ne vois pas comment...
Merci de votre aide!