bonjour a tous,
 
voila jai cree une application pour mon entreprise et il me manque plus qu'un truc
 
a partir d'une date (obtenue avec la fonction now() ) soit par exemple : 12/02/2009 13:03
je voudrais obtenir le numero de semaine ainsi que l'annee
 
ce qui donnerait au final "7 - 09"
 
sauriez vous comment vous y prendre ?
 
merci beaucoup
a+

bon j'ai fini par trouve mon erreur
 
cela donne ca
Sub week()
aa = Cells(1, 1)
tmpbis = Mid(aa, 1, 2) & "/" & Mid(aa, 4, 2) & "/" & Mid(aa, 7, 10)
Cells(4, 1).Value = CDate(tmpbis)
Cells(4, 3).Select
ActiveCell.Formula = "=WEEKNUM(RC[-2])&"" - ""&year(RC[-2])"
wek = Mid(Cells(4, 3), 1, 4) + Mid(Cells(4, 3), Len(Cells(4, 3)) - 1, 2)
Cells(1, 3) = "'" + (wek)
End Sub

Je sais que tu as trouvé. Mais ca aurait été plus simple :
 
Dim SemAnnee  
If IsDate(aa) then SemAnnee = Format(aa, "ww - yy" )
 
Explications : On met juste un format, avec ww qui permet de formater en semaine, suivi de l'année sur deux caractere avec yy, séparé par un trait d'union -
 
Cordialement

effectivement c'est plus simple
 
merci