est-il possible de ne pas spécifier le chemin ?

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:

---

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:

---

Const NomFicRPT As String = "Quite.rpt"

---

puis faire un truc de ce genre :

Code:

---

App.Path & "\" & NomFicRPT

---

merci d'avance pour ceux qui peuvent m'orienter

Tout à fait si ton fichier "Quite.rpt" se trouve dans le dossier de l'application.

Salam Moncif

Merci pour la réponse mais apparemment j'ai essayé de combiner le premier code avec le dernier ça marche pas

salut

Code:

---

1 2 3 4 5 6 7 8 9

Const NomFicRPT As String = "Quite.rpt" 'Set Rpt = App.OpenReport("C:\Documents and Settings\ACER\Bureau\G_Rente\Quite.rpt") Dim Monchemin As String If Right(App.Path, 1) <> "\" Then Monchemin = App.Path & "\" & NomFicRPT Else Monchemin = App.Path & NomFicRPT End If Set Rpt = App.OpenReport(Monchemin)

---

Par contre App.OpenReport.... App c'est une variable? car App est une class VB qui n'a pas de méthode OpenReport, si c'est une variable, modifies sont nom.

Bonjour le Forum

Salut ProgElect merci pour la réponse

j'ai une erreur a ce niveau :

Code:

---

If Right(App.Path, 1) <> "\" Then

---

"Méthode ou membre de données introuvable"

Bonne journée

Salut ProgElect

j'ai oublié de renommée la variable App.OpenReport ça marche très bien

j'aimerai ajouter que je suis très fasciner par ta méthode de rédaction des codes
c'est fabuleux t'es un As :ccool:

Merci encore