Discussion :

[murka62]

bonjour
voila j'ai créer un bouton credit agricole pour pouvoir acséder au cite sa marche mais ie souvre sur une petite fenétre pouvez-vous me dire se que je doit changer pour avoir en pleine écran
merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton14_Click()
 
Dim ie As Object
 
Set ie = CreateObject("InternetExplorer.Application")
 
ie.Navigate "http://www.ca-norddefrance.fr/"
 
ie.Visible = True
 
 
End Sub

[SilkyRoad]

bonjour


Tu peux utiliser

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
19
20
21
22
Option Explicit
 
'l'API GetSystemMetrics permet de retrouver la résolution
'de l'écran.
Declare Function GetSystemMetrics Lib "user32.dll" _
    (ByVal nIndex As Long) As Long
 
 
Private Sub CommandButton14_Click()
    Dim IE As Object
 
    Set IE = CreateObject("InternetExplorer.Application")
 
    With IE
        .Visible = True
        .Top = 0
        .Left = 0
        .Width = GetSystemMetrics(0)
        .Height = GetSystemMetrics(1)
        .Navigate "http://www.ca-norddefrance.fr/"
    End With
End Sub

bonne journée
michel

[murka62]

bonjour
sa ne merche pas avez vous une autre solution
merci

[SilkyRoad]

rebonjour


chez moi ça fonctionne.
qu'est ce qui ne marche pas ?


michel

[murka62]

quand je mais ton code
il me dit erreur de compilation
seuls des commentaire peuve apparaitre aprés end sub , end function , ou end property
j'ai enlever le mien et mis le tien a la place et voila

[Invité]

Bonjour

Je viens de tester le code de Silkyroad, en faisant simplement le copier coller et il fonctionne parfaitement.
Explique nous comment tu as intégré le copier-coller.