Microsoft 365 Afficher Google et fermer l'onglet nouveau sans fermer le navigateur

[Usine à gaz]

Bonjour à toutes et à tous,

J'ai une nouvelle p'tite demande ... de confort .
Malgré essais et recherches : je n'ai pas trouvé !

Quand je travaille, sont ouverts :
- mon classeur excel,
- mon navigateur Google et mon onglet "agenda",

J'ai fait un p'tit code pour afficher Google direct sans sortir de mon classeur (ça ... c'est pas très difficile)
Mais ça ouvre toujours un nouvel onglet dans le navigateur
Est-il possible d'afficher Google et de sélectionner directement mon agenda sans qu'un nouvel onglet soit ouvert ?
mon p'tit code :

Option Explicit
Dim CmdBar As CommandBar
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub agenda1()
    Dim fichier As String
        fichier = "https://accounts.google.com/ServiceLogin/"
    ShellExecute 0, "", fichier, "", "", 0
End Sub

le lien : est tronqué pour la confidentialité

Auriez-vous la solution ?
Je joins un petit classeur test,
Avec mes remerciements,
lionel,

 

[Usine à gaz]

Re
Le classeur du pos#40 fonctionne nickel
Je te remercie d'avoir et là et du temps pour résoudre ma demande

à toi,
lionel

 

[Dudu2]

Ah ! Tu peux pas savoir à quel point ça me soulage de savoir que ce foutu dernier onglet ne soit pas resté ouvert ! Même si la solution était déjà indiquée au message #2

 

[Usine à gaz]

LOL vraiment merci à toi pour ta gentillesse et ta ténacité ....
Et je suis désolé de ne pas avoir vu le classeur du post#40
Merci Dudu
lionel,

 

[Usine à gaz]

OUI mais j'ai tjrs le fichier du post#2 et je ne le comprends tjrs pas lol

 

[Dudu2]

Pas grave...
Tu peux même ajouter ton ShellExecute dans la macro (en ayant pris soin de le déclarer en haut du module) au cas où Google Chrome ne serait pas déjà ouvert (Fichier du Post #40 modifié).

Sub ActiveGoogleChrome()
    Const NomFenêtreGoogle = "- Google Chrome"
    Const NomCible = "https://google.com/"
  
    If Not ActivateWindowByPartialName(NomFenêtreGoogle) Then
        ShellExecute 0, "", NomCible, "", "", 0
    End If
End Sub

 

[Usine à gaz]

OK, je vais voir,
Merci

 

[Usine à gaz]

Re Dudu, toutes et tous,

Je viens de m'apercevoir d'un dernier souci
a l'affichage, Google n'est plus en plein écran !
J'ai ajouté ce code dans la macro mais ça ne fonctionne pas :

Sub ActiveGoogleChrome()
    Const NomFenêtreGoogle = "- Google Chrome"
    With Application
    .WindowState = xlMaximized 'window max
    End With
    If Not ActivateWindowByPartialName(NomFenêtreGoogle) Then MsgBox "Fenêtre """ & NomFenêtreGoogle & """ non trouvée !"
End Sub

Voici comment ça s"ouvre :

Peut-être une solution ?
Avec mes remerciements,
lionel,

 

[Dudu2]

Il faut changer le 2ème paramètre du ShowWindow (voir les valeurs possibles ici).

Idéalement il faudrait utiliser la valeur 5 qui ré-affiche la fenêtre dans l'état où elle était auparavant (maximisée ou réduite). Sauf que si la fenêtre est minimisée dans la Barre des Tâches, elle sera activée mas pas affichée !

Donc il n'y a pas d'option pour ré-afficher une fenêtre dans son état précédent (maximisée ou réduite)
Elle ne peut être qu'affichée selon son affichage par défaut ou maximisée. Pour ta demande c'est la valeur 3 qu'il faut utiliser. Dans le code:

ShowWindow TabWindowTexts(2, Choice), 3

J'ai modifié le fichier du Post #40.

 

[Usine à gaz]

Encore Merci Dudu
je vais regarder

 

[Usine à gaz]

Super DUdu2
Merci c'est nickel
Bonne nuit
lionel,

 

[patricktoulon]

re
juste en passant
pour savoir si une fenetre est minimisée c'est l'api isiconic

IsIconic
Description :
Cette fonction permet de savoir si fonction est actuellement minimisée (en icône sous Win 3.x, ou dans la barre des tâches sous Win 9x).
hwnd est le handle de la fenêtre à tester.
La fonction retourne Vrai si la fenêtre est réduite sinon Faux.

Private Declare PtrSafe Function IsIconic Lib "User32" (ByVal hWnd As LongPtr) As LongPtr

pour le rétablir c'est showwindow handle,2 ou 6
ShowWindow

​

SW_HIDE	0	Cache la fenêtre et en active une autre.
SW_MAXIMIZE	3	Agrandit la fenêtre.
SW_MINIMIZE	6	Réduit la fenêtre et active la prochaine (dans l'ordre des tâches windows).
SW_RESTORE	9	Active et affiche la fenêtre à sa taille et position initiales.
SW_SHOW	5	Active et affiche la fenêtre.
SW_SHOWMAXIMIZED	3	Active et agrandit la fenêtre.
SW_SHOWMINIMIZED	2	Active et réduit la fenêtre.
SW_SHOWNA	8	Identique à SW_SHOW sauf que la fenêtre n'est pas activée.

 

[Usine à gaz]

Merci Patrick

 

[Dudu2]

Information utile pour une adaptation comme suit testée et approuvée ! par moi

'--------------------------
'Active la fenêtre du hWnd
'-------------------------
Private Sub ActivateWindow(ByVal hWnd As Long)
    'ShowWindow() Commands
    'https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-showwindow

    'Window is minimized, 2 options:
    'SW_RESTORE (9):  Restores the window to its original size and position, i.e. its default size and position at launch time (e.g. Google Chrome is not maximized at launch time)
    'SW_MAXIMIZE (3):  Maximizes the specified window
    If IsIconic(hWnd) Then
        ShowWindow hWnd, 3

    'Window is NOT minimized, best option is:
    'SW_SHOW (5): Displays the window in its current size and position
    Else
        SetForegroundWindow hWnd
        ShowWindow hWnd, 5
    End If
End Sub

 

[Dudu2]

En fait le SetForegroundWindow n'est utile que si la fenêtre n'est pas minimisée.
J'ai (encore) modifié le fichier du Post #40 !

 

[Usine à gaz]

lol Tu t'arrêtes jamais et ta minutie est super
Merci Dudu2
lionel