Macro pour mettre la feuille sur le coté (fonction windows)

Bonjour,

Ça ne l'a colle pas à gauche de mon écran. Il faut que je conserve ça ?
Application.Left = 1
Application.Top = 1

info CNRTL :
Ajouter : verbe trans. Mettre en plus, apporter un élément nouveau, complémentaire ou supplémentaire.

Super, et en ce qui concerne la page Web que le lance, est-il possible de faire la même chose, mais à droite ? Ou faire une macro qui lance un script qui me le ferait ?

Un exemple:
Classeur contenant la macro: Activer_fenetre
Classeur à ouvrir en second: Classeur1

Voici le code:

Option Explicit
Private Sub CommandButton1_Click()
  Workbooks.Open "C:\Users\.....\Documents\Classeur1.xlsx" 'a adapter le chemin
  With ActiveWindow
    .WindowState = xlNormal
    .Top = 1
    .Left = 720
    .Height = 780
    .Width = 720
End With
Application.Windows("Activer_fenetre.xls").Activate ' a adapter le nom
With ActiveWindow
    .WindowState = xlNormal
    .Top = 1
    .Left = 1
    .Height = 780
    .Width = 720
End With
End Sub

Voilà

Je comprends pas grand chose....
Donc si je dois lancer le lien "https://www.google.com/?gws_rd=ssl" (dans firefox) à droite, et l'onglet excel "Comptes" à gauche ? je dois écrire ça comment ?

Le code que je t'ai donné est valable pour 2 classeurs Excel.

Voici le code pour 2 applications différentes:

'Verticale
Private Sub CommandButton2_Click()
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.TileVertically
Set objShell = Nothing
End Sub
'horizontale
Private Sub CommandButton3_Click()
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.TileHorizontally
Set objShell = Nothing
End Sub
'retablir
Private Sub CommandButton4_Click()
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.UndoMinimizeALL
Set objShell = Nothing
End Sub

ATTENTION, ce code affiche toutes les fenêtres ouvertes!

@+

Ça ne répond pas du toute à ce que je demande, mais alors du tout, c'est gentil d'essayer mais c'est pas ça que je veux.

Pour essayer d’être clair, je veux que sur 1 bouton (nom du bouton "Comptes") en dans l'onglet "Accueil", quand je clic dessus, que ça me redirige vers l'onglet "Comptes" qui est dans le même fichier Excel, ensuite, qu'une fois affiché, que mon fichier Excel se mette sur la partie gauche de mon écran (avec windowstate = xnormal ca marche bien), que je puisse lancer le lien "https://www.google.fr/?gws_rd=ssl" (donc avec activeWorkbook.FollowHyperlink Address:="https://www.google.fr/?gws_rd=ssl") et enfin, que la fenêtre de l'explorateur Firefox où google c'est affiché se mette sur la 2eme parti de mon écran, donc les 50% de droite. Ce qui me ferait la moitié gauche de mon écran, le fichier excel, et sur la moitié droite, mon explorateur internet.

Et si possible me faire un petit copier coller avec les noms inscrits ci-dessus et pas avec des exemple de fenêtre excel extérieur à mon fichier d'origine, car chacun à sa méthode pour faire du VBA.

Merci d'avance.