XL 2019 Création d'onglet

[celtar]

Bonjour,

J'ai besoin de votre aide, est-il possible a l'aide d'un bouton et d'une macro de créer un onglet avec le numéro de semaine en cours.
afin de pouvoir créer automatique cet l'onglet chaque semaine a l'aide du bouton.

Merci pour votre aide.

 

[JBARBE]

Bonjour à tous,
Comme cette macro peut-être :

Sub ajout_feuille()
Dim Nom As String, i As Byte, Verif As Boolean
 
recom:
Verif = False
Nom = InputBox("Définissez le nom de votre nouvelle feuille", "Ajout nouvelle feuille")
 
If Nom = "" Then Exit Sub
 
For i = 1 To Sheets.Count
    If Sheets(i).Name = Nom Then Verif = True
Next
 
If Verif = True Then
    MsgBox "la feuille " & Nom & " existe déjà, veuillez choisir un autre nom"
    GoTo recom
End If
 
Sheets.Add(after:=Sheets(Sheets.Count)).Name = Nom
End Sub

 

[GALOUGALOU]

bonsoir le fil, re celtar
un petit peu comme jbarbe, mais avec le nom défini par le numéro de semaine

Nom$ = Application.WorksheetFunction.IsoWeekNum(Date)

'Si l'onglet  existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function

Sub CreationOngletIndividuel()
Application.ScreenUpdating = False
Application.EnableEvents = False
Nom$ = Application.WorksheetFunction.IsoWeekNum(Date)

For Each ws In Worksheets
If ws.Name = Nom Then MsgBox "La feuille existe déjà": Exit Sub: Application.EnableEvents = True
Next ws
If Nom = "" Or Nom Like "*[-./\#[?!()']*" Or Len(Nom) > 30 Then
    MsgBox "le nom n'est pas valide": Application.EnableEvents = True: Exit Sub
End If
Sheets("Test").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Nom

End Sub

cdt

 

[celtar]

Bonsoir
Merci a vous deux pour vos réponses.

 

[celtar]

bonsoir le fil, re celtar
un petit peu comme jbarbe, mais avec le nom défini par le numéro de semaine

'Si l'onglet  existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function

Sub CreationOngletIndividuel()
Application.ScreenUpdating = False
Application.EnableEvents = False
Nom$ = Application.WorksheetFunction.IsoWeekNum(Date)

For Each ws In Worksheets
If ws.Name = Nom Then MsgBox "La feuille existe déjà": Exit Sub: Application.EnableEvents = True
Next ws
If Nom = "" Or Nom Like "*[-./\#[?!()']*" Or Len(Nom) > 30 Then
    MsgBox "le nom n'est pas valide": Application.EnableEvents = True: Exit Sub
End If
Sheets("Test").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Nom

End Sub

cdt

Bonsoir
Merci pour ton code je voudrais l'intégrer a mon code mais je n'y arrive pas
je te mets le fichier si tu peux regarder je t'en remercie d'avance.
A partir du bouton tableau recap je souhaite que l'onglet ce créer mais avec ta macro
fais un essai de ma macro pour te montrer ce qu'il créé.

Merci

 

[Eric C]

Bonsoir le forum
Bonsoir celtar, JBARBE, GALOUGALOU

Si en plus pour "tenter" (je parle pour moi ) de t'aider, il faut "casser" le password du projet VBE......

Bonne soirée à toutes & à tous
@+ Eric c

 

[celtar]

Bonsoir le forum
Bonsoir celtar, JBARBE, GALOUGALOU

Si en plus pour "tenter" (je parle pour moi ) de t'aider, il faut "casser" le password du projet VBE......

Bonne soirée à toutes & à tous
@+ Eric c

Bonjour Désolé voila le fichier deverouillé

 

[Eric C]

Bonjour le forum
Bonjour le fil

@celtar : le projet VBE de ton fichier n'était pas déverrouillé !!!!! Il faut tout faire soi même....
Voici donc le code de notre ami GALOUGALOU que j'ai repris car IsoWeekNum ne fonctionne pas chez moi (XL 2010) .
Bonne journée à toutes & à tous
@+ Eric c

 

[GALOUGALOU]

re celtar, bonjour eric c, bonjour le forum
le projet vba du fil #7 est verrouillé, donc inaccessible. malgré tout eric c vous a fait une proposition interessante
À partir de ce qui était visible, je vous ai construit un classeur exemple, (je ne déprotége pas les classeurs proposé sur xld) dont voici le code adapté sur l'antépénultième ligne de code.

'Si l'onglet  existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function

Sub CreationOngletIndividuel()
Application.ScreenUpdating = False
Application.EnableEvents = False
Nom$ = Application.WorksheetFunction.IsoWeekNum(Date)

For Each ws In Worksheets
If ws.Name = Nom Then MsgBox "La feuille existe déjà": Exit Sub: Application.EnableEvents = True
Next ws
If Nom = "" Or Nom Like "*[-./\#[?!()']*" Or Len(Nom) > 30 Then
    MsgBox "le nom n'est pas valide": Application.EnableEvents = True: Exit Sub
End If
Sheets("Récapitulatif").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Nom

End Sub

eric c pour excel 2010, je te propose d'essayer cette solution, que tu as peut-être mis en application, je n'ai pas vu ton code.
une fonction proposée par kiki que l'on peut trouver sur ce fil

N° de semaine ISO sous VBA

Bonjour à vous tous et tous mes voeux pour cette nouvelle année Pourriez vous me dire s'il est possible de mettre la formule si dessous en Vba afin de m'en servir dans une procédure =ENT(MOD(ENT((A1-1)/7)+3/5;52+5/28))+1 Merci d'avance pour vos réponses MAN

excel-downloads.com

Function NumSem(dDate As Date) As Integer
Dim t As Long
    t = DateSerial(Year(dDate + (8 - Weekday(dDate)) Mod 7 - 3), 1, 1)
    NumSem = ((dDate - t - 3 + (Weekday(t) + 1) Mod 7)) \ 7 + 1
End Function

et remplacer dans la macro la ligne

Nom$ = Application.WorksheetFunction.IsoWeekNum(Date)

par la ligne

Nom$ = NumSem(Date)

cdt
galougalou

 

[Eric C]

Re le forum
Re le fil

@GALOUGALOU (comme je ne connais pas ton prénom).
Le code du projet "craqué" que notre ami ne nous a pas communiqué est : "123".

Concernant ton code, je vais tester dès ce soir.
Le tien, modifié :

Nom$ = "Semaine" & " " & DatePart("WW", Date, 2, 2)
 ' Sheets("Test").Copy remplacé par :
 Sheets("Récapitulatif").Copy After:=Sheets(Sheets.Count)

Bonne après-midi à toutes & à tous --- Gardez le frais si possible --
@+ Eric c

 

[celtar]

Re le forum
Re le fil

@GALOUGALOU (comme je ne connais pas ton prénom).
Le code du projet "craqué" que notre ami ne nous a pas communiqué est : "123".

Concernant ton code, je vais tester dès ce soir.
Le tien, modifié :

Nom$ = "Semaine" & " " & DatePart("WW", Date, 2, 2)
 ' Sheets("Test").Copy remplacé par :
 Sheets("Récapitulatif").Copy After:=Sheets(Sheets.Count)

Bonne après-midi à toutes & à tous --- Gardez le frais si possible --
@+ Eric c

Bonjour,

J'ai remis un fichier sans le code dans ma réponse

 

[Eric C]

Re le fil

@celtar : Ouvre Ton fichier du post #7, fais Alt F11 et tu verras que ton projet est verrouillé ..............
@+

 

[celtar]

Re le fil

@celtar : Ouvre Ton fichier du post #7, fais Alt F11 et tu verras que ton projet est verrouillé ..............
@+

Désolé je l'ai supprimé les autres sont déverrouillé grâce a toi.

 

[celtar]

Voici le ficher déverrouillé

 

[GALOUGALOU]

re celtar
le fichier adapté, mais vous aviez les macros dans le fil
re eric c

(comme je ne connais pas ton prénom).

Et oui, je sais, je suis incognito, les amis me surnomment jeff, ça me convient.
cdt
galougalou