Microsoft 365 Créer un plusieurs onglet de jours ouvrables d'un modèle selon un mois et une année.

[fcu88]

Bonjour,

Je cherche à modifier ce fichier excel que j'ai trouvé sur des forums. Il permet de générer autant d'onglet de jours dans le mois saisie.
Ce que je cherche à faire :
- saisir un mois dans l'année
- saisir une année passé ou future
et cela génère un onglet par jour ouvré selon le modèle.

Il me semble que ce genre de question a été abordée dans des discussions mais ma difficulté est de comprendre ces bout de codes et les appliquer à mon fichier.

J'espère avoir été clair.

Merci par avance.

 

[Efgé]

Bonjour

Pour saluer l'ami @JCGL qui nous manque

Une proposition qui crée les jours ouvrés, donc sans fériés ni dimanche.

Cordialement

 

[mapomme]

Bonjour à tous,

Une proposition :

Sub Creation()
Dim NbJ As Long, i As Long, Mois, annee, LaDate
   Efface
   Mois = InputBox("Saisir numéro du mois (1 à 12)")
   annee = InputBox("Saisir une année")
   On Error Resume Next
   LaDate = CDate("1/" & Mois & "/" & annee)
   Err.Clear
   If Not IsDate(LaDate) Then
      MsgBox "Mois et/ou année incorrect => ECHEC"
      Exit Sub
   End If
   NbJ = Day(WorksheetFunction.EoMonth(LaDate, 0))
   Application.ScreenUpdating = 0
   For i = 1 To NbJ
      Sheets("Modèle").Copy After:=Sheets(i)
      ActiveSheet.Name = Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), "dd_mm_yyyy")
      ActiveSheet.Range("A1") = Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), "dddd dd mmmm yyyy")
      ActiveSheet.Shapes("Logo_Code").Delete
   Next i
   Sheets("Modèle").Activate
End Sub

 

[Efgé]

RE
Bonjour @mapomme

Bien vu la vérif 😉
Par contre @fcu88 demande les jours ouvrés.
Cordialement

 

[mapomme]

Par contre @fcu88 demande les jours ouvrés.

Bonjour @Efgé 😉,

J'avions point percuté 😕

 

[fcu88]

Bonjour

@mapomme merci c'est ce que je voulais.
@Efgé si c'est possible ca serait un plus.

Merci à vous deux

 

[Efgé]

Bonjour à tous

@Efgé si c'est possible ca serait un plus.

Comprend pas…
Ma proposition le fait, non ?

Cordialement

 

[fcu88]

Bonjour à tous


Comprend pas…
Ma proposition le fait, non ?

Cordialement

Je ne sait si je fais les bonnes manip. Sur ton fichier j'ai n'ai laissé que l'onglet modèle et cliquant sur le bouton de la macro cela génère une erreur.

 

[Efgé]

Bonjour à tous
Il manque la macro Efface :

Sub Efface()
Dim Feuille As Worksheet
For Each Feuille In Worksheets
Application.DisplayAlerts = 0
Application.ScreenUpdating = 0
If Feuille.Name <> "Modèle" Then Feuille.Delete
Next Feuille
Application.DisplayAlerts = 1
End Sub

Cordialement

 

[fcu88]

Bonjour,

Parfait.
Un grand merci à vous deux @Efgé et @mapomme