N° Semaine VBA

[Nimbus]

Bonjour à tous,

Je voudrai savoir comment mon document excel peut me renvoyer le numéros de la semaine en connaissant la date du jour.

Je m'explique: J'ai un document Excel qui me donne automatiquement la date du jour.
Actuellement, je voudrai qu'il me donne le numéros de la semaine correspondant.
Normallement, aujourd'hui, je devrai lire date: 26/08/2013 et dans N°Sem :35

Cependant, je n'arrive à faire un programme qui marche...
Pourriez vous m'aider svp!

Merci, par avance, pour votre aide!

Cordialement

Nimbus
(En pièce jointe mon document pour que vous puissiez voir ce que j'ai fais et corriger mes erreurs)

 

[david84]

Re : N° Semaine VBA

Bonjour,
pour obtenir le n° de semaine, utiliser Application.WorksheetFunction.WeekNum
A+

 

[pierrejean]

Re : N° Semaine VBA

bonjour Nimbus
Salut David

Une autre solution

 

[Nimbus]

Re : N° Semaine VBA

Bonjour David, Pierrejean

Merci beaucoup!
Le programme fonctionne à merveille 🙂

 

[Modeste geedee]

Re : N° Semaine VBA

Bonsour®
il faut d'abord connaitre quelle norme utiliser ?
la fonction WEEKNUM (NOSEMAINE) est à la norme US
i.e. dimanche est le 1er jour de la semaine
les semaines de fin année et début d'année ne comporte pas systématiquement 7 jours ...

en Europe (Norme ISO)
la semaine comporte toujours 7 Jours
la semaine 01 est la semaine qui contient le 1er jeudi de l'année

par formule :

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

par Fonction (VBA)BUG: Les fonctions Format et DatePart peuvent renvoyer un numéro de semaine erroné pour le dernier lundi de l'année

Function SemISO (MyDate As Date) As Integer   ' Week Of Year
  SemISO = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
  If SemISO > 52 Then
    If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then SemISO = 1
  End If
End Function

 

[chris]

Re : N° Semaine VBA

Bonjour

A partir de 2010 on peut avoir un numéro de semaine iso par la fonction NO.SEMAINE ou WEEKNUM mais pas sur les versions antérieures dont 2007...

 

[Modeste geedee]

Re : N° Semaine VBA

Bonsour®

Bonjour

A partir de 2010 on peut avoir un numéro de semaine iso par la fonction NO.SEMAINE ou WEEKNUM mais pas sur les versions antérieures dont 2007...

🙄
de l'interet du demandeur d'indiquer dans son profil et éventuellement repréciser dans la demande , la version EXCEL utilisée...

 

[Nimbus]

Re : N° Semaine VBA

Bonjour à tous

J'ai un problème avec un autre document Excel.
Ce matin le programme pour avoir les numéros de semaine fonctionnait bien. J'ai donc voulu l'appliquer sur le "vrai" document concerné et là impossible de le faire fonctionner.

Il m'indique toutes les données que je veux sauf le n° de la semaine...
Quelqu'un pourrait il m'aider car, je pense que se ne sera pas la seule modif que j'effectuerai sur ce document...

Merci pour votre aide

 

[pierrejean]

Re : N° Semaine VBA

Re

Fichier protégé !! pas glop !! pas glop !!!

 

[Modeste geedee]

Re : N° Semaine VBA

Bonsour®
🙁
fichier protégé...

 

[Nimbus]

Re : N° Semaine VBA

Oups! désolé

Voila

 

[pierrejean]

Re : N° Semaine VBA

Re

voila c'est corrigé

 

[Modeste geedee]

Re : N° Semaine VBA

Bonsour®
modifier la proc pour utiliser,
l'une ou l'autre des ces 2 possibilités :

Cells(newRecord, 2) = NOSEM(Now)

Cells(newRecord, 2) = SemIso(Now)

 

[Nimbus]

Re : N° Semaine VBA

Pierrejean,

Je viens d'essayer ton programme et il ne fonctionne pas...
Rien ne s'affiche dans ma colonne "N° Sem."

Et j'avoue ne pas trouver l'erreur.

Pourrais tu m'aider??

Merci

 

[Modeste geedee]

Re : N° Semaine VBA

Bonsour®
il faut copier les fonctions fournies par PierreJean ou moi-même dans un de tes modules standard,
puis comme indiqué précédemment modifier la partie de code mettant a jour les données...