redimensionner une fenetre

[Patrick]

Bonjour,
Voici un petit code pour ouvrir une fenetre
Dans ce code je voudrai avoir une certaine dimension de fenetre
Comment redimensionner la fenetre ?

Sub ouvrirexplorer()
Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")


IE.Navigate "c:\comparaison"
MsgBox "Faire glisser le fichier extrait de CF2 dans la fenêtre Excel"
IE.Visible = True

End Sub

Merci !!

 

[Jhocquevelt]

Bonjour Patrick,

Tu peux insérer les lignes suivantes pour redimensionner la fenêtre, les valeurs comprises entre -32767 et +32767 sont indicatives:

IE.Left = 100
IE.Top = 100
IE.Width = 500
IE.Height = 500

Bonne prog

Jhocquevelt

 

[Patrick]

merci bien !!