convertir une formule Excel en VBA

Bonjour,

j'ai la formule suivante dans une cellule :

Code:

---

=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

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

Code:

---

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

---

Bonjour,

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

Code:

---

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 ?!?

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

Code:

---

ActiveSheet.Name = "S" & NumeroDeSemaineStr

---

Salut,
Essaies:

Code:

---

ActiveSheet.Name = "S" & NumeroDeSemaineStr

---

A+

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

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

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:

---

Public Sub machin

---

au bouton, tu auras à faire

Code:

---

1 2 3

Private Sub TonBouton_Click() machin end sub

---

si j'ai bien compris

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.

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)

Super ça marche, merci