Bonjour,

C'est encore moi )

En fait j'ai trouvé ca que j'ai ajouté a mon script :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub RunScript2()
    Dim objIE,objDoc,strHTML
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate("about:blank")
    objIE.ToolBar = 0
    objIE.StatusBar = 0
    Set objDoc = objIE.Document.Body
    strHTML = "ALLO"
    objDoc.InnerHTML = strHTML
    objIE.Visible = True
End Sub
Mais je voudrais que au lieu de ALLO il m'affiche ca sur ma nouvelle page :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Il faut, autant qu'on peut, obliger tout le monde : 
On a souvent besoin d'un plus petit que soi. 
De cette vérité deux Fables feront foi, 
Tant la chose en preuves abonde. 
Entre les pattes d'un Lion 
Un Rat sortit de terre assez à l'étourdie. 
Le Roi des animaux, en cette occasion, 
Montra ce qu'il était, et lui donna la vie. 
Ce bienfait ne fut pas perdu. 
Quelqu'un aurait-il jamais cru 
Qu'un Lion d'un Rat eût affaire ? 
Cependant il advint qu'au sortir des forêts 
Ce Lion fut pris dans des rets, 
Dont ses rugissements ne le purent défaire. 
Sire Rat accourut, et fit tant par ses dents 
Qu'une maille rongée emporta tout l'ouvrage. 
Patience et longueur de temps 
Font plus que force ni que rage.
Bon vous vous doutez bien que ce que je veux afficher n'est pas ce texte mais bon c'est pour l'idée

Le but de cette page est une page d'aide dans laquelle je détaille les actions de toutes les commandes de mon scripts.

Merci de votre aide