Présentation auto de trois fichiers

[Jiheme]

Bonjour Le Forum

Je viens d'enregistrer une macro destinée à l'ouverture d'un fichier, d'en ouvrir deux autres et de présenter les trois fenêtres verticalement en voici le code :

Private Sub Workbook_Open()
 ChDir "D:\Documents and settings\Mes documents\Jihem\Temp"
    Workbooks.Open Filename:= _
        "D:\Documents and settings\Mes documents\Jihem\Temp\Test2.xls"
    Workbooks.Open Filename:= _
        "D:\Documents and settings\Mes documents\Jihem\Temp\Test3.xls"
  
    Windows.Arrange ArrangeStyle:=xlVertical
End Sub

L'ouverture des fichiers est Ok, mais la présentation ne se fait pas !

Quelqu'un a t'il une idée

Merci
A+

 

[Pierrot93]

Re : Présentation auto de trois fichiers

Bonsoir Jiheme

modifie peut être la constante ainsi :

Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical

fonctionne chez moi, Excel2003

bonne soirée
@+

 

[Jiheme]

Re : Présentation auto de trois fichiers

Bonsoir Pierrot, re à tous

Merci, ta correction m'a mis sur la voie, ton code met bien test1 en forme, pour avoir les trois fichiers ouvert côte à côte il faut :

Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleVertical

Bonne soirée

A+