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

chostra55 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   -  
chostra55 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je ne sais pas si mon titre est assez explicite, je cherche une macro pour coller ma fenêtre a gauche de l'écran. Ma macro fonctionne mais elle se met en "débogage" à chaque utilisation.

ce que j'utilise :
Application.Left = 1
Application.Top = 1
Application.Width = 720
Application.Height = 780

De plus, j'aimerai lancer un lien hypertexte sur mon bouton (ça je sais faire) mais j'aimerai que cette fenêtre soit mise sur le coté droit de l'écran, pour que j'ai en finalité, ma page internet sur la moitié droite de l'écran, et ma page Excel sur la moitié gauche de l'écran.

Merci pour votre aide.
A voir également:

2 réponses

Réponse 1 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Ajoutes au début :
Application.WindowState = xlNormal
0
chostra55 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Ça ne l'a colle pas à gauche de mon écran. Il faut que je conserve ça ?
Application.Left = 1
Application.Top = 1
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
info CNRTL :
Ajouter : verbe trans. Mettre en plus, apporter un élément nouveau, complémentaire ou supplémentaire.
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

comme ceci: 

With ActiveWindow
    .WindowState = xlNormal
    .Top = 1
    .Left = 1
    .Height = 780
    .Width = 720
End With
0
chostra55 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention  
 
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 ?
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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à
0
chostra55 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention  
 
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 ?
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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!

@+
0
chostra55 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention  
 
Ç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.
0