Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

redimensionner une fenetre

P

Patrick

Guest
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 !!
 
J

Jhocquevelt

Guest
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…