bonjour je me suis trompé de post pour ma proposition
je la remet donc ici
cette fonction peut tres bien remplacer celle existante pour les fete et leur prenoms
'--------------------------------------------------
Function Ephemeride(D As String) As String
With CreateObject("ADODB.Connection")
.Open "Provider = Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""Excel 12.0;HDR=Yes;IMEX=1;"""
With .Execute("SELECT [éphéméride] From [éphéméride$] WHERE [Date] = '" & Format(D, "mm-dd") & "'")
If Not .EOF Then
Ephemeride = .Getstring
End If
.Close
End With
.Close
End With
End Function
'-----------------------------------------------------------------------
Private Sub test()
Debug.Print "bonne st " & Ephemeride("30/04/2017")
End Sub
j’espère que l'auteur prendra la peine de regarder