Figer fenetre excel

[olivowitch]

Bonjour,

j'aurai une question à 1€ dont je ne trouve pas de réponse.
Je souhaiterai que lorsque j'ouvre un document excel, il s'ouvre toujours dans le même endroit de l'écran et qu'il ne puisse pas être changé de place :
Expl, je veux qu'il prène la moitié inférieur de l'écran. Voir ci joint.

Je ne sais pas si on peut le faire par macro ou autrement.

Merci et bon WE

 

[PMO2]

Re : Figer fenetre excel

Bonjour,

Une piste à adapter (code à copier dans ThisWorkbook)

Private Sub Workbook_Open()
With Application
  .WindowState = xlNormal
  .Top = 300
  .Width = 1000
  .Left = 0
  .Height = 500
End With
End Sub

Cordialement.

PMO
Patrick Morange

 

[olivowitch]

Re : Figer fenetre excel

Bonjour PM02 et merci,

je vais tester cela.
Savez-vous si on peut aussi faire en sorte que des fenêtres de dossier de document, comme les dossiers A et B dans ma capture d'écran, puissent ne pas être changer de place? (On sors d'excel je sais 😉 mais ça me serait bien utile aussi)

Merci et bonne journée

 

[Staple1600]

Re : Figer fenetre excel

Bonjour


Sur ta copie d'écran on voit Open Office et non pas Excel ???

 

[olivowitch]

Re : Figer fenetre excel

Salut Staple,

je sais, je n'étais pas sur mon ordi au moment du message et il n'y a pas excel dessus. 😉

Bonne journée

 

[olivowitch]

Re : Figer fenetre excel

Bonjour,

je relance ce fil pour une nouvelle information (PM02, ça fonctionne très bien merci):
J'ai un FICHIER1.xlsm où j'ai un bouton qui demande d'ouvrir un FICHIER2.xlsm s'il y a le mot ouvrir en A1 :

Dans le VBA DU FICHIER1 en feuille 1 :
Sub ouverture_fichier2()
If Range("A1").Value = "ouvrir" Then
Workbooks.Open Filename:="C:\chemin\FICHIER2.xlsm"
End If
End Sub
Pour le moment, pas de problème.

Je souhaite que l'ouverture du FICHIER2 se fasse sur la moitié inférieur de l'écran :
Donc grâce à PM02 j'ai mis ceci dans le VBA du FICHIER2 dans ThisWorkooks :

Private Sub Workbook_Open()
With Application
.WindowState = xlNormal
.Top = 300
.Width = 1100
.Left = 0
.Height = 400
End With
End Sub

Le FICHIER2 s'ouvre dans la moitié inférieure de l'écran comme prévu.

Le problème vient que mon FICHIER1 se retrouve aussi réduit à la moitié inférieure de l'écran. Comme puis-je faire pour que mon FICHIER1 reste en mode plein écran et que mon FICHIER2 n'occupe que la moitié inférieur?

Merci

 

[olivowitch]

Re : Figer fenetre excel

Re,

J'ai essayé en ajoutant ChDir "C:\chemin"
ça me permet d'ouvrir mon FICHIER2 dans une autre fenêtre mais lorsque je réduit l'un des deux, l'autre se réduit toujours.

 

[PMO2]

Re : Figer fenetre excel

Bonjour,

Essayez de changer le code du FICHIER1 par

Sub ouverture_fichier2()
Dim App As Application
If Range("A1").Value = "ouvrir" Then
Set App = New Application
App.Workbooks.Open Filename:="C:\FICHIER2.xls"
End If
End Sub

Cordialement.

PMO
Patrick Morange