Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel replacer les fenêtre de dimention différente

replacer les fenêtre de dimention différente

17 réponses
Avatar
Daniel
un petit coupde main SVP

J'ai un fichire que j'ouvre avec 3 fenêtre de dimention et onglet différent
.
je voudrait inclure dans une de mes macro inclure la position et la
grandeur des fenêtre.
j'ai fait avec l'enrégistreur cette macro qui ne fonctionne pas toujour ?

Sub placer_Écran()
'
' placer_Écran Macro
' Macro recorded 2003/08/21 by pellet15
'
'
Windows("Insp_RDP.xls:2").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Feuille D'insp.").Select
With ActiveWindow
.Top = -5
.Left = 182.5
End With
Windows("Insp_RDP.xls:3").Activate
ActiveWindow.WindowState = xlNormal
Sheets(" Base ").Select
With ActiveWindow
.Top = 70.75
.Left = 367.75
End With
With ActiveWindow
.Width = 401.25
.Height = 417
End With
Windows("Insp_RDP.xls:1").Activate
ActiveWindow.WindowState = xlNormal
Sheets("Aiguilles").Select
End Sub
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
isabelle
bonjour Daniel,

as tu copier ces lignes, à mettre avant la ligne Sub ....()

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)
Sub PositionDeNouvelleFenetre()
etc..

isabelle


Bonjour Gros merci pour votre aide
J'ai copier dim i as integer
et le message est " Erreur de compilation: Sub ou unction non
définie "
et le curseur est arrêter sur le fichier(i) >
"Clément Marcotte" a écrit dans le message
de news:
Bonjour

essaie de mettre

dim i as integer

juste dessous sum xxx()




sub machin
"Daniel" a écrit dans le message de
news:ZnHgb.70255$
Le message est " Erreur de compilation: Variable non définie "
et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le message de
news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub













Avatar
Daniel
Bonsoir isabelle
je n'avait pas copier ces 3 ligne, cela marche .
La raison que je veut replacer les fenêtre est que sur ce fichier j'ai
plusieur utilisateur qui parfois ( un peu trop souvent)
déplace les fenêtre et ne peuve les replacer. je voulait introduire dans la
macro de sauvegarde le repositionnement !
Comment faire pour connaitre les grandeur et les position ,
Comment écrire la fin de ma macro !

"isabelle" a écrit dans le message de
news:
bonjour Daniel,

as tu copier ces lignes, à mettre avant la ligne Sub ....()

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)
Sub PositionDeNouvelleFenetre()
etc..

isabelle


Bonjour Gros merci pour votre aide
J'ai copier dim i as integer
et le message est " Erreur de compilation: Sub ou unction non
définie "
et le curseur est arrêter sur le fichier(i) > >
"Clément Marcotte" a écrit dans le
message


de news:
Bonjour

essaie de mettre

dim i as integer

juste dessous sum xxx()




sub machin
"Daniel" a écrit dans le message de
news:ZnHgb.70255$
Le message est " Erreur de compilation: Variable non définie "
et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le message de
news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub















Avatar
isabelle
bonjour Daniel,

dans un module standard copie les 5 décalrations de variables Public
ainsi que les deux macros "PositionDeNouvelleFenetre" et
"ReplaceFenêtre"

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)

Sub PositionDeNouvelleFenetre()
Dim i As Integer
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next
End Sub

Sub ReplaceFenêtre()
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub

et copie les 2 macros événementiels suivantes dans le module de classe
Thisworkbook

Private Sub Workbook_Open()
PositionDeNouvelleFenetre
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ReplaceFenêtre
ActiveWorkbook.Save
End Sub

isabelle


Bonsoir isabelle
je n'avait pas copier ces 3 ligne, cela marche .
La raison que je veut replacer les fenêtre est que sur ce fichier j'ai
plusieur utilisateur qui parfois ( un peu trop souvent)
déplace les fenêtre et ne peuve les replacer. je voulait introduire dans la
macro de sauvegarde le repositionnement !
Comment faire pour connaitre les grandeur et les position ,
Comment écrire la fin de ma macro !

"isabelle" a écrit dans le message de
news:
bonjour Daniel,

as tu copier ces lignes, à mettre avant la ligne Sub ....()

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)
Sub PositionDeNouvelleFenetre()
etc..

isabelle


Bonjour Gros merci pour votre aide
J'ai copier dim i as integer
et le message est " Erreur de compilation: Sub ou unction non
définie "
et le curseur est arrêter sur le fichier(i) > > >
"Clément Marcotte" a écrit dans le
message


de news:
Bonjour

essaie de mettre

dim i as integer

juste dessous sum xxx()




sub machin
"Daniel" a écrit dans le message de
news:ZnHgb.70255$
Le message est " Erreur de compilation: Variable non définie "
et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le message de
news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub

















Avatar
Daniel
Bonjour Gros merci mais je bloc encore
J'ai copier la macro au endroit indiquer mais
le message est " Erreur de compilation: Sub ou unction non définie "
et le curseur est arrêter sur le fichier(i)

"isabelle" a écrit dans le message de
news:
bonjour Daniel,

dans un module standard copie les 5 décalrations de variables Public
ainsi que les deux macros "PositionDeNouvelleFenetre" et
"ReplaceFenêtre"

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)

Sub PositionDeNouvelleFenetre()
Dim i As Integer
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next
End Sub

Sub ReplaceFenêtre()
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub

et copie les 2 macros événementiels suivantes dans le module de classe
Thisworkbook

Private Sub Workbook_Open()
PositionDeNouvelleFenetre
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ReplaceFenêtre
ActiveWorkbook.Save
End Sub

isabelle


Bonsoir isabelle
je n'avait pas copier ces 3 ligne, cela marche .
La raison que je veut replacer les fenêtre est que sur ce fichier j'ai
plusieur utilisateur qui parfois ( un peu trop souvent)
déplace les fenêtre et ne peuve les replacer. je voulait introduire dans
la


macro de sauvegarde le repositionnement !
Comment faire pour connaitre les grandeur et les position ,
Comment écrire la fin de ma macro !

"isabelle" a écrit dans le message de
news:
bonjour Daniel,

as tu copier ces lignes, à mettre avant la ligne Sub ....()

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)
Sub PositionDeNouvelleFenetre()
etc..

isabelle


Bonjour Gros merci pour votre aide
J'ai copier dim i as integer
et le message est " Erreur de compilation: Sub ou unction
non




définie "
et le curseur est arrêter sur le fichier(i) > > > >
"Clément Marcotte" a écrit dans le
message


de news:
Bonjour

essaie de mettre

dim i as integer

juste dessous sum xxx()




sub machin
"Daniel" a écrit dans le message de
news:ZnHgb.70255$
Le message est " Erreur de compilation: Variable non définie "
et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le message
de






news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub



















Avatar
isabelle
bonjour Daniel,

je t'envoie un fichier exemple dans ta bal perso si tu veux.

isabelle


Bonjour Gros merci mais je bloc encore
J'ai copier la macro au endroit indiquer mais
le message est " Erreur de compilation: Sub ou unction non définie "
et le curseur est arrêter sur le fichier(i) >
"isabelle" a écrit dans le message de
news:
bonjour Daniel,

dans un module standard copie les 5 décalrations de variables Public
ainsi que les deux macros "PositionDeNouvelleFenetre" et
"ReplaceFenêtre"

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)

Sub PositionDeNouvelleFenetre()
Dim i As Integer
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next
End Sub

Sub ReplaceFenêtre()
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub

et copie les 2 macros événementiels suivantes dans le module de classe
Thisworkbook

Private Sub Workbook_Open()
PositionDeNouvelleFenetre
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ReplaceFenêtre
ActiveWorkbook.Save
End Sub

isabelle


Bonsoir isabelle
je n'avait pas copier ces 3 ligne, cela marche .
La raison que je veut replacer les fenêtre est que sur ce fichier j'ai
plusieur utilisateur qui parfois ( un peu trop souvent)
déplace les fenêtre et ne peuve les replacer. je voulait introduire dans
la


macro de sauvegarde le repositionnement !
Comment faire pour connaitre les grandeur et les position ,
Comment écrire la fin de ma macro !

"isabelle" a écrit dans le message de
news:
bonjour Daniel,

as tu copier ces lignes, à mettre avant la ligne Sub ....()

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)
Sub PositionDeNouvelleFenetre()
etc..

isabelle


Bonjour Gros merci pour votre aide
J'ai copier dim i as integer
et le message est " Erreur de compilation: Sub ou unction
non




définie "
et le curseur est arrêter sur le fichier(i) > > > > >
"Clément Marcotte" a écrit dans le
message


de news:
Bonjour

essaie de mettre

dim i as integer

juste dessous sum xxx()




sub machin
"Daniel" a écrit dans le message de
news:ZnHgb.70255$
Le message est " Erreur de compilation: Variable non définie "
et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le message
de






news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub





















Avatar
Daniel
OUI Bien sur
"isabelle" a écrit dans le message de
news:
bonjour Daniel,

je t'envoie un fichier exemple dans ta bal perso si tu veux.

isabelle


Bonjour Gros merci mais je bloc encore
J'ai copier la macro au endroit indiquer mais
le message est " Erreur de compilation: Sub ou unction non
définie "


et le curseur est arrêter sur le fichier(i) > >
"isabelle" a écrit dans le message de
news:
bonjour Daniel,

dans un module standard copie les 5 décalrations de variables Public
ainsi que les deux macros "PositionDeNouvelleFenetre" et
"ReplaceFenêtre"

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)

Sub PositionDeNouvelleFenetre()
Dim i As Integer
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next
End Sub

Sub ReplaceFenêtre()
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub

et copie les 2 macros événementiels suivantes dans le module de classe
Thisworkbook

Private Sub Workbook_Open()
PositionDeNouvelleFenetre
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ReplaceFenêtre
ActiveWorkbook.Save
End Sub

isabelle


Bonsoir isabelle
je n'avait pas copier ces 3 ligne, cela marche .
La raison que je veut replacer les fenêtre est que sur ce fichier
j'ai




plusieur utilisateur qui parfois ( un peu trop souvent)
déplace les fenêtre et ne peuve les replacer. je voulait introduire
dans




la
macro de sauvegarde le repositionnement !
Comment faire pour connaitre les grandeur et les position ,
Comment écrire la fin de ma macro !

"isabelle" a écrit dans le message de
news:
bonjour Daniel,

as tu copier ces lignes, à mettre avant la ligne Sub ....()

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)
Sub PositionDeNouvelleFenetre()
etc..

isabelle


Bonjour Gros merci pour votre aide
J'ai copier dim i as integer
et le message est " Erreur de compilation: Sub ou
unction






non
définie "
et le curseur est arrêter sur le fichier(i) > > > > > >
"Clément Marcotte" a écrit dans
le






message
de news:
Bonjour

essaie de mettre

dim i as integer

juste dessous sum xxx()




sub machin
"Daniel" a écrit dans le message de
news:ZnHgb.70255$
Le message est " Erreur de compilation: Variable non
définie "








et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le
message








de
news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub























Avatar
isabelle
ok, c'est partie

isabelle


OUI Bien sur
"isabelle" a écrit dans le message de
news:
bonjour Daniel,

je t'envoie un fichier exemple dans ta bal perso si tu veux.

isabelle


Bonjour Gros merci mais je bloc encore
J'ai copier la macro au endroit indiquer mais
le message est " Erreur de compilation: Sub ou unction non
définie "


et le curseur est arrêter sur le fichier(i) > > >
"isabelle" a écrit dans le message de
news:
bonjour Daniel,

dans un module standard copie les 5 décalrations de variables Public
ainsi que les deux macros "PositionDeNouvelleFenetre" et
"ReplaceFenêtre"

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)

Sub PositionDeNouvelleFenetre()
Dim i As Integer
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next
End Sub

Sub ReplaceFenêtre()
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub

et copie les 2 macros événementiels suivantes dans le module de classe
Thisworkbook

Private Sub Workbook_Open()
PositionDeNouvelleFenetre
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ReplaceFenêtre
ActiveWorkbook.Save
End Sub

isabelle


Bonsoir isabelle
je n'avait pas copier ces 3 ligne, cela marche .
La raison que je veut replacer les fenêtre est que sur ce fichier
j'ai




plusieur utilisateur qui parfois ( un peu trop souvent)
déplace les fenêtre et ne peuve les replacer. je voulait introduire
dans




la
macro de sauvegarde le repositionnement !
Comment faire pour connaitre les grandeur et les position ,
Comment écrire la fin de ma macro !

"isabelle" a écrit dans le message de
news:
bonjour Daniel,

as tu copier ces lignes, à mettre avant la ligne Sub ....()

Public fichier(3)
Public haut(3)
Public gauche(3)
Public largeur(3)
Public hauteur(3)
Sub PositionDeNouvelleFenetre()
etc..

isabelle


Bonjour Gros merci pour votre aide
J'ai copier dim i as integer
et le message est " Erreur de compilation: Sub ou
unction






non
définie "
et le curseur est arrêter sur le fichier(i) > > > > > > >
"Clément Marcotte" a écrit dans
le






message
de news:
Bonjour

essaie de mettre

dim i as integer

juste dessous sum xxx()




sub machin
"Daniel" a écrit dans le message de
news:ZnHgb.70255$
Le message est " Erreur de compilation: Variable non
définie "








et le curseur est arrêter sur le i de For i = 1 To 3



"isabelle" a écrit dans le
message








de
news:
et quand ça bloque quel est le message d'erreur ?

isabelle


Merci isabelle
Mais la macro bloc sur For i = 1 To 3
J'ai trois fenêtre d'ouverte!

Sub PositionDeNouvelleFenetre()

'récupère la position de chaque fenêtre
For i = 1 To 3
Windows("Insp_RDP.xls:" & i).Activate
fichier(i) = "Insp_RDP.xls:" & i
haut(i) = ActiveWindow.Top
gauche(i) = ActiveWindow.Left
largeur(i) = ActiveWindow.Width
hauteur(i) = ActiveWindow.Height
Next

'replace tout les fenêtres en cascade
Windows.Arrange ArrangeStyle:=xlCascade

'replace chaque fenêtre dans leur position d'origine
For i = 1 To 3
Windows(fichier(i)).Top = haut(i)
Windows(fichier(i)).Left = gauche(i)
Windows(fichier(i)).Width = largeur(i)
Windows(fichier(i)).Height = hauteur(i)
Next
End Sub

























1 2