Bonjour tous le Monde et bonne journée

j'affiche actuellement un état avec crystal report seulement dans le code le chemin est spécifié de cette manière que je veux éviter :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set Rpt = App.OpenReport("C:\Documents and Settings\ACER\Bureau\G_Rente\Quite.rpt")
pour des raisons pratiques je voudrait utilisé un chemin détecter par le code
en déclarant une constante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Const NomFicRPT As String = "Quite.rpt"
puis faire un truc de ce genre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
App.Path & "\" & NomFicRPT
merci d'avance pour ceux qui peuvent m'orienter