Oui je viens de farfouiller un peu partout mais je ne trouve pas de conversion a partir du quantieme mais toujours d'une date, j'essaie de transformer le quantieme en date et de l'insérer dans une macro
Merci pour ta reponse
À JORDAN :Je ne comprends pas le problème.
Le quantième d'un jour désignant le rang du jour dans le mois. En 2014, si vous chercher le quantième 10, vous le trouverez douze fois (une fois par mois). Je ne vois pas pourquoi le quantième 10 serait le dix janvier plutôt que le 10 août ou le 10 octobre.
En cherchant un peu plus sur le net, voici ce que j'ai glané
Code vba: PublicFunction QuantiemeToFormatDate(ByVal Quantieme AsInteger, _ OptionalByVal FormatDate AsString = "dd/mm/yyyy", _ OptionalByVal Annee AsInteger) AsString Dim dDate AsDate If Annee = 0 Then Annee = Year(Date) If Annee > 100 And Annee < 10000 Then
dDate = DateAdd("d", Quantieme, DateSerial(Annee - 1, 12, 31))
QuantiemeToFormatDate = Format$(dDate, FormatDate) EndIf EndFunction'source: pbserv mars 2008
Code:
Sub test()
MsgBox QuantiemeToFormatDate(365)
End Sub
Ensuite avec les nombreuses exemples sur le forum pour trouver le numéro de semaine à partir d'une date, ça doit le faire, non ?
En voyant les messages de Staple1600, je comprends !
En fait, vous appelez "quantième" non pas le rang du jour dans le mois mais le rang du jour dans l'année. (Je ne dois pas avoir le bon dictionnaire...)
Ne tenez pas compte de mon précédent message ! Merci.