[resolu] ouvrir une page html

ouvrir une page html [resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 05-08-2005 à 11:19:02    

Bonjour, c'est re- moi  :hello:  
Je cherche à ouvrir en vba une page html, auriez vous des fonctions toutes faites, car actuellement je suis avec une fonction shell, mais qui n'est pas reconnue par vbe

Code :
  1. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  2. et
  3. Call ShellExecute(0&, vbNullString, "http://www.hardware.fr", vbNullString, vbNullString, vbNormalFocus)


il me pond l'erreur : seuls les commentaires peuvent apparaitre apres en sub etc.
Please Help...


Message édité par jpcheck le 05-08-2005 à 14:42:52
Reply

Marsh Posté le 05-08-2005 à 11:19:02   

Reply

Marsh Posté le 05-08-2005 à 13:38:50    

Bon, c'est très loin de d'être ma spécialité (Pur VBA sous Excel).
 
J'y suis allé à l'intuition et à la logique et j'ai fais ça:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
 
Sub test()
  Dim hwnd As Long
  ShellExecute hwnd, "open", "http://www.hi-tech.ece.fr", "", "", 1
End Sub


... et ça m'ouvre bien la page indiquée.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 05-08-2005 à 13:53:32    

chez moi ca veut pas compiler  :cry:  
j'ai ajouter à mes références le shell32.dll, mais ca marche toujours pas


Message édité par jpcheck le 05-08-2005 à 13:54:39
Reply

Marsh Posté le 05-08-2005 à 14:01:57    

J'ai juste mis le code ci-dessus (tel quel) dans un module de VBA Excel 97.
Aucune référence de plus que celles qui sont par défaut.
 
J'ai mis mon curseur sur test et j'ai tapé F5.
 
Je ne vois pas où est ton problème :heink:


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 05-08-2005 à 14:04:28    

Tu as bien modifié ton appel comme ça:

ShellExecute hwnd, "open", "http://www.hi-tech.ece.fr", "", "", 1


???


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 05-08-2005 à 14:27:30    

Mea maxima culpa!
Je suis désolé, j'ai complètement zappé le fait d'avoir à mettre  
 

Code :
  1. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  2.     (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  3.     ByVal lpParameters As String, ByVal lpDirectory As String, _
  4.     ByVal nShowCmd As Long) As Long


 
en haut de mon code et pas entre deux fonctions.
Ca marche nickel now  :sweat:  :pt1cable:  :jap:  :bounce:  :bounce:  :bounce:  
 
Merci d'avoir insisté  :hello:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed