[XL-2003] Affichage plein écran [Résolu]

[phal2ip]

Bonjour au forum,
j'ai une petite question d'ordre pratique.
Je vous explique mon souhait.
Je dois ouvrir plusieurs fois par jour un site intranet et y entrer mon login et mot de passe.
Chemin faisant je me suis dis pourquoi ne pas mettre, à la place du raccourci d'intranet, un raccourci sur un fichier excel qui m'ouvrira intranet et me mettras le login et mot de passe automatiquement puis refermera le fichier Excel.
Aussitôt dit aussitôt fait.
Tout marche à merveille sauf que... Internet Explorer s'ouvre en taille réduite (pas minimiser mais réduite) et je voudrais l'afficher en plein écran directement.
J'ai mis ma macro pour que vous puissiez comprendre et j'ai essayer le WindowState, le DisplayFullScreen et rien ne marche.
Alors je vous appel à l'aide...
J'ai juste changer les adresse intranet.

Merci à tous

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub auto_open()
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = 1
    IE.Navigate "http://www.hotmail.fr"
    Do While IE.ReadyState <> 4
    Loop
 
On Error Resume Next
 
    Set Helem = IE.Document.getElementById("cidentifiant")
    Helem.Value = "Login"
    If Err.Number = "91" Then GoTo line1
    Set Helem = IE.Document.getElementById("mot_de_passe")
    Helem.Value = "Mot de passe"
    Set Helem = IE.Document.Forms(0)
    Set Helem = IE.Document.getElementById("valider2")
    Helem.Click
 
line1:
    IE.Navigate "http://www.hotmail.fr"
 
'ICI est le problème, à moins que c'est moi qui me trompe???????
 
    IE.WindowState = xlMaximized '.DisplayFullScreen = True
    tempo = Timer + 6 '2s
    Do While Timer < tempo
    DoEvents
    Loop
    Do While IE.ReadyState <> 4
    Loop
 
' la suite marche très bien c'est pour arriver automatiquement sur des champs de java...
    For i = 1 To 12
        For j = 1 To 15000
        Next j
        Application.SendKeys "{TAB}"
'        Application.Wait Now + TimeValue("00:00:01")
    Next i
        Application.SendKeys "~"
        Application.Wait Now + TimeValue("00:00:01")
    For i = 1 To 2
        Application.SendKeys "{TAB}"
        For j = 1 To 15000
        Next j
'        Application.Wait Now + TimeValue("00:00:01")
    Next i
        Application.SendKeys "~"
        Application.Wait Now + TimeValue("00:00:01")
        IE.Activate
 
'    Windows("A3Inet.xls").Close savechanges:=False
 
End Sub

[Daniel.C]

Bonjour,

Ajoute :

Code :

IE.FullScreen = True

[phal2ip]

Merci pour ta réponse qui marche sauf que je voudrais pas être en plein écran mais en écran maximiser (c'est peut être ma faute, j'ai du mal m'exprimer dans mes explications)...

[Daniel.C]

J'ai trouvé cette page qui devrait résoudre ton problème; c'est en anglais, mais le code est suffisamment explicite :

http://www.access-programmers.co.uk/...d.php?t=171316

[phal2ip]

Franchement Merci ça marche...

Merci à tous