Discussion :

[bubulemaster]

Bonjour,

j'ai la formule suivante dans une cellule :

Code :

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

=ENT(MOD(ENT((AUJOURDHUI()-2)/7)+0,6;52+5/28))+1

qui me donne le numéro de la semaine en cours.

J'ai fait un bouton dans ma feuille pour dupliquer la feuille et j'ai cette formule dans une cellule.
J'aimerais convertir cette formule en VBA car lorsque la nouvelle feuille est créée le numéro de la semaine ne doit plus bouger.

Ne connaissant vraiment rien en VBA, j'avoue avoir besoin d'un petit coup de main pour traduire cette formule.

Merci

[laetitia]

bonjour bubulemaster le forum par vba message & copy en cellule a1 a adapter a tes besoins.

Code :

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

1
2
3
4
5
6
7
Option Explicit
Sub test()
Dim z As Integer
z = DatePart("ww", Date, vbMonday, vbFirstFourDays)
MsgBox z
[a1] = z
End Sub

[bubulemaster]

Bonjour,

ça m'a mis sur la piste
Voilà mon code :

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
Sub NouvellePage()
    ' Créer la nouvelle feuille suivant le modèle de la première feuille
    Sheets(1).Copy After:=Worksheets(Worksheets.Count)
 
    Dim NumeroDeSemaine As Integer
 
    NumeroDeSemaine = DatePart("ww", Date, vbSunday, vbFirstJan1)
 
    Dim NumeroDeSemaineStr As String
 
    NumeroDeSemaineStr = Str(NumeroDeSemaine)
 
    ' Modifie le numéro de semaine. On supprime la formule de la cellule
    ActiveSheet.Cells(1, 2).Value = NumeroDeSemaineStr
 
    ' Change le nom de la feuille
    ActiveSheet.Name = "S" + NumeroDeSemaineStr
End Sub

Mais j'ai une erreur 400 sur la dernière ligne ?!?

[Krovax]

Bonjour
En VBA la concaténation de chaine de caractère utilise le &

Code :

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

ActiveSheet.Name = "S" &  NumeroDeSemaineStr

[Fvandermeulen]

Salut,
Essaies:

Code :

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

ActiveSheet.Name = "S" &  NumeroDeSemaineStr

A+

Edit: Désolé pour le doublon pas fait de Refresh...

[bubulemaster]

Effectivement, j'avais oublié que pour concaténer une chaine s'était &.

Mais ça ne résous pas le problème.
En fait, voilà ce qui se passe.

J'ai une première feuille qui sert de modèle avec le code que j'ai mis plus haut.
Lorsqu'on créer une nouvelle (ex : S38) feuille ça marche.
Mais si on clique sur le bouton de de la feuille S38 là il plante.
J'ai remarqué qu'il dupliquait le code VBA de la feuille 1 sur la feuille 2, or il ne faudrait pas.
Il faudrait que chaque bouton de chaque feuille appel le même code.

Mais là, je ne trouve pas comment faire

[mercatog]

1. Il va renommer la feuille S38 (S & N° semaine); Tu ne risque pas d'essayer de renommer 2 feuilles avec le même nom?
2. Si c'est la même procédure qui est copié d'une feuille à une autre? mets là dans un module public

Code :

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

Public Sub machin

au bouton, tu auras à faire

Code :

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

1
2
3
Private Sub TonBouton_Click()
machin
end sub

si j'ai bien compris

[bubulemaster]

Merci de la réponse.

Où dois-je déclarer la méthode publique.
J'ai essayé dans 'VBAProject -> Microsoft Excel Object -> ThisWorkbook'
Mais lorsque j'appel la méthode il ne la trouve pas.

[mercatog]

Dans éditeur vba, tu fais insertion module, tu y colle ta procédure avec Public Sub...
Pour nommer les feuilles créées ("S" & NumSemaine) il faut au préalable tester si une feuille avec le même nom existe déjà, tu dois prendre dès lors une décision que faire (soit supprimer l'ancienne, soit ne pas ajouter la nouvelle)

[bubulemaster]

Super ça marche, merci