Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long Private Sub Form_Load() Call EbExecuteLine(StrPtr("Msgbox ""coucou"""), 0, 0, 0) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question