Actualisé un onglet avec un fichier qui change de nom chaque jours

Bonjour,

Je dois importé un fichier en fonction de la date pour actualuasé 2 onglet

http://abc.com/rapportjour/stted_J_22.xlsx

Le lien fini par J_xx, avec xx = le jour (22 aujourd’hui).

Pouvez vous m'aide pour faire une macro pour importé le rapport du jour.

le 22/09 , importé le fichier : http://abc.com/rapportjour/stted_J_22.xlsx

Le 23/04, importé le fichier : http://abc.com/rapportjour/stted_J_23.xlsx

Comment modifié cette macro pour quel actualise mes 2 onglets.

Sub test()
  Dim sPath As String, sFic As String, Jour As Integer
  Dim Wbk As Workbook
  ' Définir le chemin
  sPath = "http://abc.com/rapportjour/"
  ' Définir le nom du fichier avec ## pour le jour à remplacer
  sFic = "stted_J_##.xlsx"
  ' Jour
  Jour = Day(Date)
  ' Remplacer les # avec le jour (il faudra voir si le jour est au format 00)
  sFic = Replace(sFic, "##", Jour)
  ' Ouvrir le fichier
  Set WbkAp = Workbooks.Open(sPath & sFic)
End Sub

Voici un exemple en piece jointe

Merci d'avance.

c'est possible?