ouvrir un autre excel en grand ecran

[bichon]

ReRe a tous
voila j'ai une application sous excel et avec un bouton controle j'ouvre un autre excel avec un classeur dedans
et j'aimerai que cet excel que j'ouvre soit tjs en fenetre maxi agrandie sans etre obligé de cliquer sur le bouton
agrandir
voici le code jimagine qu'il faut rajouter une ligne

Dim chemin As String
Dim clas As String
Dim retval As Double
clas = "F:\Metachut2003\Base\Metallis\Ec120met.xls"
chemin = "C:\Program Files\Microsoft Office\Office\excel.exe " & clas
retval = Shell(chemin, 4)

merci d'avance
;-)

 

[schmail]

Bonjour Bichon

As tu essayé de placer ces lignes ds "Ec120met.xls" ?


Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.WindowState = xlMaximized
ActiveWindow.WindowState = xlMaximized
End Sub

@+ Bichon

 

[bichon]

salu schmail ou j'ai essayé ca marche
mais j'ai 500 fichier si je doi faire ca sur tous c'est un peu la misere
dans le code ci dessus fodrai rajouter quelque chose non
comme ca tous ils s'ouvre en grand ecran
merci