Discussion :

[Snowkite]

Bonjour, j'utilise actuellement une macro me permettant de copier un onglet une fois par semaine à l'identique de l'original, mais qui me le nomme "original_1"

Code :

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

1
2
3
4
5
6
Function NumSem(LaDate As Date) As Integer
 
    NumSem = Int((LaDate - DateSerial(Year(LaDate - Weekday(LaDate - 1) + 4), 1, 1) _
             + Weekday(DateSerial(Year(LaDate - Weekday(LaDate - 1) + 4), 1, 1)) + 5) / 7)
 
End Function

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
24
25
26
27
28
29
30
31
Option Explicit
Sub CopycartouchesSheetRename()
 
    Dim Fe As Worksheet
    Dim Nom As String
    Dim I As Integer
    Dim Max As Integer
 
    If MsgBox("Etes vous certain(e) de vouloir dupliquer cette feuille ?", vbYesNo + vbInformation, _
        "Demande de confirmation REGISTRE") = vbYes Then
 
        For Each Fe In Worksheets
 
            If InStr(Fe.Name, "Registre_") > 0 Then If Split(Fe.Name, "_")(1) > Max Then Max = Split(Fe.Name, "_")(1)
 
        Next Fe
 
        ActiveSheet.Copy Before:=Worksheets("Registre")
 
        ActiveSheet.Name = "Registre_" & NumSem(Date) 'Date = date du jour
 
 
 
    Else
 
        Sheets("Registre").Range("A1").Select
        MsgBox "Op_ration annul_e par l'utilisateur"
 
    End If
 
End Sub

J'aimerais pouvoir faire la même chose mais une fois par mois, c'est à dire que lorsque l'on change de mois et bien que je puisse renommer l'onglet "original_1" ou "original_janv"

Est-ce que cela est possible

[Philippe Tulliez]

Bonjour,
Il y a plusieurs possibilités, voici deux fonctions qui pourront t'aider
La fonction MonthName renvoie le nom du mois par rapport à son numéro passé en paramètre ainsi

Code :

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

MonthName(1)

renverra "Janvier"
La fonction Format qui transforme un nombre (date pour notre exemple en chaîne de caractères formatée selon le format passé en deuxième argument.
Exemple
Affiche le mois de la date du jour

Code :

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

MsgBox Format(Date, "mmmm")

Affiche le mois de la date du jour en abrégé

Code :

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

Format(Date, "mmm")

[Snowkite]

Merci mais ce que j'aimerais faire c'est pouvoir modifier mon 1er code qui fait référence à la semaine et pouvoir l'adapter au mois

Code :

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

1
2
3
4
5
6
Function NumSem(LaDate As Date) As Integer
 
    NumSem = Int((LaDate - DateSerial(Year(LaDate - Weekday(LaDate - 1) + 4), 1, 1) _
             + Weekday(DateSerial(Year(LaDate - Weekday(LaDate - 1) + 4), 1, 1)) + 5) / 7)
 
End Function

ceci afin de pouvoir l'intégrer dans mon 2ème code

[Menhir]

Merci mais ce que j'aimerais faire c'est pouvoir modifier mon 1er code qui fait référence à la semaine et pouvoir l'adapter au mois

Code :

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

1
2
3
4
Function NumSem(LaDate As Date) As Integer
    NumSem = Int((LaDate - DateSerial(Year(LaDate - Weekday(LaDate - 1) + 4), 1, 1) _
             + Weekday(DateSerial(Year(LaDate - Weekday(LaDate - 1) + 4), 1, 1)) + 5) / 7)
End Function

Qu'est-ce que cette formule est supposée calculer ?

J'aimerais pouvoir faire la même chose mais une fois par mois, c'est à dire que lorsque l'on change de mois et bien que je puisse renommer l'onglet "original_1" ou "original_janv"

Il suffit de remplacer :

Code :

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

        ActiveSheet.Name = "Registre_" & NumSem(Date) 'Date = date du jour

Par :

Code :

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

        ActiveSheet.Name = "Registre_" & Format(Date,"mmm")

Quoi que... perso, je pense qu'il serait préférable de mettre :

Code :

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

        ActiveSheet.Name = "Registre_" & Format(Date,"mm")

Et pour ce qui est de ta fonction, elle ne sert plus à rien.

[Snowkite]

Par rapport à la date du jour, ou le fichier excell est utilisé, cela permet de calculer le n° de la semaine, et j'aimerais pouvoir adapter également ce code par rapport au numéro ou nom du mois

[Menhir]

Par rapport à la date du jour, ou le fichier excell est utilisé, cela permet de calculer le n° de la semaine

En somme, tu as réinventé la fonction NO.SEMAINE().
https://support.office.com/fr-FR/art...1-b18c13c75340

[Snowkite]

Je pense que je me suis mal exprimé

A partir de ce code

Code :

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

1
2
3
4
5
6
Function NumSem(LaDate As Date) As Integer
 
    NumSem = Int((LaDate - DateSerial(Year(LaDate - Weekday(LaDate - 1) + 4), 1, 1) _
             + Weekday(DateSerial(Year(LaDate - Weekday(LaDate - 1) + 4), 1, 1)) + 5) / 7)
 
End Function

Qui lui est intégré dans la macro suivante

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
24
25
26
27
28
29
30
31
Option Explicit
Sub CopycartouchesSheetRename()
 
    Dim Fe As Worksheet
    Dim Nom As String
    Dim I As Integer
    Dim Max As Integer
 
    If MsgBox("Etes vous certain(e) de vouloir dupliquer cette feuille ?", vbYesNo + vbInformation, _
        "Demande de confirmation REGISTRE") = vbYes Then
 
        For Each Fe In Worksheets
 
            If InStr(Fe.Name, "Registre_") > 0 Then If Split(Fe.Name, "_")(1) > Max Then Max = Split(Fe.Name, "_")(1)
 
        Next Fe
 
        ActiveSheet.Copy Before:=Worksheets("Registre")
 
        ActiveSheet.Name = "Registre_" & NumSem(Date) 'Date = date du jour
 
 
 
    Else
 
        Sheets("Registre").Range("A1").Select
        MsgBox "Op_ration annul_e par l'utilisateur"
 
    End If
 
End Sub

Cela me permet de pouvoir créer un nouvel onglet portant le nom de l'original suivi du N° de semaine.

J'aimerais pouvoir adapter ce code de la même manière mais avec le N°de mois à la place du N°de semaine

[Menhir]

J'aimerais pouvoir adapter ce code de la même manière mais avec le N°de mois à la place du N°de semaine

Voir mon message #4.
(j'avais fais une édition en même temps que tu rédigeais ta réponse).

[Snowkite]

Nickel, cela fonctionne parfaitement

Encore merci

[Snowkite]

Désolé, mais à 1ére vue il y a un bug

J'ai dupliquer la feuille registre afin de la nommer Registre_janvier et lorsque je clique sur créer une nouvelle feuille afin d'avoir l'onglet Registre_février, j'ai un message d'erreur "incompatibilité de Type"





Car à chaque début de mois il faudra que je crée un nouvel onglet

[Menhir]

J'ai dupliquer la feuille registre afin de la nommer Registre_janvier et lorsque je clique sur créer une nouvelle feuille afin d'avoir l'onglet Registre_février, j'ai un message d'erreur "incompatibilité de Type"

Sur quelle ligne de code se situe l'erreur ?

Le message d'erreur sur la copie d'écran est vraiment... étrange. Ca ressemble plus au résultat d'un MsgBox qu'à un message d'erreur (je dirais même que ça ressemble comme deux goutes d'eau au message de ta première copie d'écran issu d'un MsgBox). Est-ce qu'il n'y aurait pas dans ton code des cochonnerie du type "On Error Goto" ? Si c'est le cas, vire-les qu'on puisse obtenir la véritable erreur.

Comment as-tu fais pour espérer avoir une onglet février ? Tu as modifié la date système de ton ordinateur ?

[Snowkite]

Je commence a être un peu perdu là

Je te joins le fichier éventuellement si tu veux y jeter un oeil

https://www.cjoint.com/c/HBbsNTVfpCu

[Menhir]

Je te joins le fichier éventuellement si tu veux y jeter un oeil
https://www.cjoint.com/c/HBbsNTVfpCu

En retour je te joins un lien vers une règle du forum : https://www.developpez.net/forums/d8...s-discussions/

J'ai posé quelques questions simples. Fais l'effort d'y apporter des réponses.

[Snowkite]

Franchement, je suis désolé d'avoir joint le fichier, je ne savais pas que cela n'était pas autorisé.

Encore merci de me l'avoir signalé