Erreur sur une date au premier Janvier
Bonjour à tous,
Voila j'ai un problème avec la date au premier janvier sur différente année.
Quand je fais ce code
Sub date_aa()
date_a = "01/01/2016"
no_semaine = Format(date_a, "ww", , vbFirstFourDays)
End Subj'ai une erreur d’exécution 28 espace pile insuffisant.
C'est erreur ce produit pour les années 2015-16-21-22-27-28 etc...
et pas pour les autres
alors ma question, est ce quelqu'un à déjà rencontrer ça, ou comment pourrais-je éviter cela?
Et pourquoi une erreur d'espace pile, j'ai regarder dans l'aide il y a rien de tout ça qui peut provoquer ceci??
Merci beaucoup
et Bonne Fête
cela vient il du fait que c'est la semaine 52 de l'année précédente mais alors pourquoi une erreur.
bonjour
peut-être parce que vbFirstFourDays et en omettant vbMonday cela entraîne une valeur négative
est-ce vrai seulement pour les 1er janvier ? teste les 1er février
Je ne sais pas si la valeur attendue est 1 :
Sub date_aa()
date_a = "01/01/2021"
no_semaine = Format(date_a, "ww", vbFirstFourDays)
End Sub
Attention, j'ai supprimé une virgule
Bonsoir,
A adapter pour une macro et une date.
Cdlt.
Function Num_Sem_Iso(madate As Date)
Num_Sem_Iso = DatePart("ww", madate, vbMonday, vbFirstFourDays)
End Function