Executer du texte

Résolu
SupraDolph Messages postés 196 Date d'inscription samedi 12 janvier 2002 Statut Membre Dernière intervention 1 septembre 2008 - 14 juin 2006 à 09:45
ratala Messages postés 248 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 22 juin 2008 - 12 juil. 2006 à 22:00
Bonjour a tous !

J'aivais il y a quelques temps un script qui permettait d'executer du texte.
Je m'explique :
Dim Str As String = "msgbox """"Test"""""
Execute str

'Execute' etant la fonction que je recherche. Cette fonction execute le code contenu dans 'Str' soit dans ce cas, l'affichage d'une boite de dialogue.

Si quelqu'un a cette source merci de m'en faire profiter :)

SupraDolph.

3 réponses

Dolphin Boy Messages postés 630 Date d'inscription vendredi 5 mai 2006 Statut Membre Dernière intervention 17 février 2007
14 juin 2006 à 10:41
Salut, essaie ça :

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Private Sub Command1_Click()
Dim Str As String
Str = "msgbox " & """" & "test" & """"
Call EbExecuteLine(StrPtr(Str), 0&, 0&, 0&)
End Sub
3
SupraDolph Messages postés 196 Date d'inscription samedi 12 janvier 2002 Statut Membre Dernière intervention 1 septembre 2008 1
14 juin 2006 à 11:42
Merci a toi compagnon Dauphin ^_^
Je pense que ton code fonctionne, mais je ne peux pas le tester, sur mon PC de travail je n'ai pas la DLL de VB6 car je n'ai que VBA pour travailler :(

SupraDolph.
0
ratala Messages postés 248 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 22 juin 2008
12 juil. 2006 à 22:00
Très très pratique !!!!
0
Rejoignez-nous