Page 1 sur 1

Fonction ou Sub VBA dans rapport EP

MessagePosté: Mer 5 Oct 2016 21:53
de LAFRON971
Bonjour,

j'aimerais savoir si à l'instar d'Excel et d'Access on peut crée des fonctions publiques utilisables directement dans les rapports qu'on crée.

Ex: j'ai une colonne ref article, une colonne designation, une troisieme colone appellant/contenant ma fonction SiImgExiste qui va utiliser les arguments ref article et designation à chaque ligne.

Si oui est ce que la syntaxe pour utiliser la fonction diffère d'Access ?

A tout hasard voici la fonction que j'aimerais intégrer dans les Editions pilotees:

Code: Tout sélectionner
Public Function SiImgExiste(strCodeProd As String, NomDuChemin As String) As String

   On Error GoTo Fin
   'Déclarations des variables nécessaires à l'utilisation de la fonction vba.
   chemin = "C:\Images Donnees FTP\IMAGES DONNEES FTP\"
   NomFichJpg = Dir(chemin & strCodeProd & ".jpg")
   NomFichGif = Dir(chemin & strCodeProd & ".gif")
   NomFichBmp = Dir(chemin & strCodeProd & ".bmp")
   NomFichPng = Dir(chemin & strCodeProd & ".png")

If NomFichJpg = "" Then
    If NomFichBmp = "" Then
        If NomFichPng = "" Then
            If NomFichGif = "" Then
               'Renseigner une image par defaut ?
                SiImgExiste = ""
            Else
            SiImgExiste = chemin & strCodeProd & ".gif"
            End If
        Else
        SiImgExiste = chemin & strCodeProd & ".Png"
        End If
    Else
    SiImgExiste = chemin & strCodeProd & ".Bmp"
    End If
Else
SiImgExiste = chemin & strCodeProd & ".jpg"
End If

End Function


Merci d'avance

Re: Fonction ou Sub VBA dans rapport EP

MessagePosté: Sam 10 Juin 2017 18:55
de asr31
Bonjour,

Vieux message, mais bon...

EP n'a pas la syntaxe VBA et pour m'y être confronté, très difficile à gérer.
J'ai essayé en passant par du VB encapsulant BO, sans bons résultats.

Cordialement,