Discussion :

[BERRACHED SAID]

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

[l_autodidacte]

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

[BERRACHED SAID]

Salam Moncif

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

salut

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[BERRACHED SAID]

Bonjour le Forum

Salut ProgElect merci pour la réponse

j'ai une erreur a ce niveau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Bonne journée

[BERRACHED SAID]

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

Merci encore