Chemin acces publication automatique

Bonjour

je souhaite pour un tournoi, faire une publication automatique d'une feuille excel(pour affichage sur un vidéo projecteur pendant mon tournoi), je me suis servi de l'enregistreur de macro pour définir le code suivant

Sub Macro1()
'

    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Users\aurelien\Desktop\tournoi\diffusion.htm", "Feuil1", "$A$3:$G$18", xlHtmlStatic _
        , "Classeur1_20927", "")
        .Publish (True)
        .AutoRepublish = True

    End With
End Sub

cela fonctionne , mais j'ai un petit soucis tout de même, c'est l’accès au fichier :" C:\Users\aurelien\Desktop\tournoi\diffusion.htm"

car si je déplace le dossier tournoi ( qui comprend mon fichier excel et mes publications cela ne fonctionne plus )

existe t'il un moyen pour qu'il enregistre mes diffusions dans ce dossier tournoi sans avoir le c:\.... ( en lien relatif , il me semble que c'est comme cela que ça s'appel...)

je vous remercie d'avance

en continuant de chercher je pense que j'ai réussi a trouver

si cela peut en aider d'autre je note le code pour le chemin relatif

il faut utiliser la commande :

ThisWorkbook.Path

With ActiveWorkbook.PublishObjects("Classeur1_20927")

        .Filename = ThisWorkbook.Path & "\diffusion.htm"
        .Publish (False)
        .AutoRepublish = True
    End With

cela a l'air de fonctionner en déplaçant le dossier