Fonction ou Sub VBA dans rapport EP
Posté: Mer 5 Oct 2016 21:53
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:
Merci d'avance
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