Microsoft 365 fenêtres cote a cote a l'ouverture du fichier

LEPATOCHE · 28 Février 2024

Bonjour le forum
tout petit problème lorsque j'ouvrirai a chaque fois mon fichier excel je voudrais que excel m'ouvre les 2
fenêtres cote a cote , car a chaque fois je suis obliger de le faire manuellement a l'ouverture ,
j'ai bien peur que c’a ne soit pas possible merci de votre aide !
comment ont fait ?

Lolote83 · 28 Février 2024

Bonjour,
Peut être que cette petite macro à l'ouverture de ton classeur pourrait faire l'affaire.
Si toutefois, j'ai bien compris la demande

VB:

Sub FenetreEtVertical()
    ActiveWindow.NewWindow
    Windows.Arrange ArrangeStyle:=xlVertical
End Sub

@+ Lolote83

LEPATOCHE · 28 Février 2024

Bonjour Lolote83
j'ai essayer c’a ne marche pas ! merci quand même !
d'autre personnes peu être vont trouver ?

Lolote83 · 28 Février 2024

Re bonjour,
Chez moi, sur un fichier quelconque, cela ouvre bien une 2eme fenêtre et positionne donc les deux fenêtres en cote à cote de façon horizontale.
Etait-ce bien ça la demande ?????
Si NON, passe directement par l'enregistreur de macro.
Fait ta manip à la main et tu regardes ensuite ce que cela aura traduit en macro.
@+ Lolote83

LEPATOCHE · 28 Février 2024

non ca ne marche pas je suis obliger de executer moi meme votre macro !

Lolote83 · 28 Février 2024

Re bonjour
Peux tu tester ce fichier
Merci du retour.
@+ Lolote83

LEPATOCHE · 28 Février 2024

Merci Lolote83
cette fois ci c’a marche a merveille très bonne soirée !

Lolote83 · 28 Février 2024

Re bonjour. C'est la même macro que celle fournie au post#2. J'ai pourtant bien spécifié

Peut être que cette petite macro à l'ouverture de ton classeur pourrait faire l'affaire

C'est exactement ce que j'ai fais dans le fichier joint. Tu n'as pas trop cherché à mon avis.
Bonne soirée quand même.
Passe alors le post en résolu
@+ Lolote83

JeanLeon · 5 Mars 2024

Bonjour
J'aurais aimé savoir pourquoi lorsque j'ajoute une nouvelle feuille, il y a une nouvelle fenêtre qui s'ouvrira toujours, même si je la supprime par la suite.(+ 1 feuil= + 1 fenêtre. Soit +2 feuil = 4 fenêtres qui s'ouvre)
Ce phénomène apparait quelque soit le nombre de feuil au départ, avant que je n'instore "Private Sub Workbook_Open()" (1 classeurs avec 5 feuil + 0 feuil = 2 fenêtre; +2 feuil = 4 fenêtre)
Sauf si j'enlève, sauvegarde, ferme, ré-ouvre et remet le Private Sub Workbook_Open()...
En vous remerciant pour votre réponse.
Jean-Léon

Lolote83 · 12 Mars 2024

Bonjour, le code donné dans le fichier au post#6 fait en sorte qu'à l'ouverture du fichier, une nouvelle fenêtre est automatiquement ouverte (ActiveWindow.NewWindow)

VB:

Private Sub Workbook_Open()
    ActiveWindow.NewWindow
    Windows.Arrange ArrangeStyle:=xlVertical
    MsgBox "BONJOUR LEPATOCHE"
End Sub

Par contre, une fois le fichier ouvert, si on rajoute un nouvel onglet, cela ne se produit pas ????
Je n'est pas vraiment compris la demande

J'aurais aimé savoir pourquoi lorsque j'ajoute une nouvelle feuille, il y a une nouvelle fenêtre qui s'ouvrira toujours, même si je la supprime par la suite.(+ 1 feuil= + 1 fenêtre. Soit +2 feuil = 4 fenêtres qui s'ouvre)
Ce phénomène apparait quelque soit le nombre de feuil au départ, avant que je n'instore "Private Sub Workbook_Open()" (1 classeurs avec 5 feuil + 0 feuil = 2 fenêtre; +2 feuil = 4 fenêtre)
Sauf si j'enlève, sauvegarde, ferme, ré-ouvre et remet le Private Sub Workbook_Open()...
En vous remerciant pour votre réponse.

@+ Lolote83

JeanLeon · 15 Mars 2024

Lolote83 à dit:
Bonjour, le code donné dans le fichier au post#6 fait en sorte qu'à l'ouverture du fichier, une nouvelle fenêtre est automatiquement ouverte (ActiveWindow.NewWindow)

VB:

Private Sub Workbook_Open() ActiveWindow.NewWindow Windows.Arrange ArrangeStyle:=xlVertical MsgBox "BONJOUR LEPATOCHE" End Sub

Par contre, une fois le fichier ouvert, si on rajoute un nouvel onglet, cela ne se produit pas ????
Je n'est pas vraiment compris la demande

@+ Lolote83

Bonjour

J'aurais aimé savoir pourquoi lorsque j'ajoute une nouvelle feuille, il y a une nouvelle fenêtre qui s'ouvrira toujours, même si je la supprime par la suite.

A) J'ai un fichier avec 1 feuil.
Je met le code.
Tant que je n'ajoute pas une feuil supplémentaire, j'aurai 2 fenêtres.
B) J'ai un fichier avec 5 feuil.
Je met le code.
Tant que je n'ajoute pas une feuil supplémentaire, j'aurai 2 fenêtres.

Dans les deux cas, j'ajoute une feuil supplémentaire, j'aurai 3 fenêtres.
Dans les deux cas, j'ajoute deux feuil supplémentaires, j'aurai 4 fenêtres.
Ainsi de suite...

Si j'ai 3,4,5... fenêtres mais que je désire avoir seulement 2, alors:
Je supprime le code.
J'enregistre le fichier.
Je le ferme. Je le ré-ouvre. Je remet le code.

En vous remerciant pour votre réponse.
Jean-Léon

Microsoft 365 fenêtres cote a cote a l'ouverture du fichier

LEPATOCHE

XLDnaute Occasionnel

Lolote83

XLDnaute Barbatruc

LEPATOCHE

XLDnaute Occasionnel

Lolote83

XLDnaute Barbatruc

LEPATOCHE

XLDnaute Occasionnel

Lolote83

XLDnaute Barbatruc

Pièces jointes

LEPATOCHE

XLDnaute Occasionnel

Lolote83

XLDnaute Barbatruc

JeanLeon

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

JeanLeon

XLDnaute Nouveau

Discussions similaires