PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 28 oct. 2005 à 17:45
salut,
et pourtant c'est bien çà!
es-tu obligé de tester en compilation conditionnelle?
sinon voici une fonction, mais le problème sera sans doute le même...
Private Function IsIDE() As Boolean ' [AFCK]
' on créé une erreur de division à afficher dans la fenêtre d'execution.
' si on est dans l'IDE, on va passer par l'erreur.
' si on est en exe, les lignes Debug ne sont pas compilées, donc pas d'erreur.
Dim bRet As Boolean
On Error GoTo Err_IsIDE
bRet = False
Debug.Print 1 / 0
On Error GoTo 0 ' *FGE*
IsIDE = bRet
Exit Function
Err_IsIDE:
Err.Clear
bRet = True
Resume Next
End Function
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 30 oct. 2005 à 08:42
ma petite fonction servira tout de même alors^^
....dommage, un client n'ayant pas VB (ni tes sources), tu aurais aussi pu tester
l'existance de app.path & "" & app.EXEname & ".exe"
PCPT [AFCK]