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

Usine à gaz · 24 Juillet 2020

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 :

VB:

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,

Dudu2 · 30 Août 2020

Sinon essaie aussi cette version, pour voir.

Usine à gaz · 30 Août 2020

Tu l'as fouetté ... génial ça semble marcher cette fois-ci
Je continue à tester ...

Usine à gaz · 30 Août 2020

Bon sang, celle-là fonctionne aussi... tu lui a fait une gâterie ? lol

Usine à gaz · 30 Août 2020

T'es un grand chef !
Merci ça me rend un vraiment gros service c'est top top top chef

Dudu2 · 30 Août 2020

J'ai modifié un détail dans le Module_APIWindows dans ma fonction ActivateWindow() en mettant le SetForegroundWindow hWnd pour tous les cas. Je ne sais pas pourquoi je ne l'ai pas fait avant !
Mais bon, ce genre de truc je ne maitrise à 100% car pour moi les codes du ShowWindow devraient suffire. Après ce sont les tests qui font la vérité !

VB:

'---------------
'Activate Window (Activates & Maximizes a minimized Window)
'Equivalent of: If IsIconic(hWnd) Then ShowWindow hWnd, SW_SHOWMAXIMIZED: AppActivate GetWindowName(hWnd)
'---------------
Function ActivateWindow(hWnd As LongPtr)
    SetForegroundWindow hWnd
   
    '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, SW_SHOWMAXIMIZED

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

Usine à gaz · 30 Août 2020

Bravo ! Bravo !
et désolé, j'ai certainement du "te pomper un peu l'air" avec mon truc.
Merci aussi pour ta patience

lionel

Dudu2 · 30 Août 2020

En fait, je dois exprimer mon auto-satisfaction claironnante au regard du Module_APIWindows qui me libère des déclarations pénibles des fonctions de l'API Windows et dans lequel j'ai inclu quelques routines perso pour simplifier / compléter l'accès à certaines fonctionnalités, dont celles concernées ici, ActivateWindow(), que j'ai donc pu améliorer et l'indispensable GetWindowByPartialName() qui permet de faire fonctionner pas mal de bouzins.
Bonne fin de journée.

Usine à gaz · 30 Août 2020

Super et content de t'avoir peut-être "poussé" à approfondir

Usine à gaz · 30 Août 2020

Sois auto-satisfait et claironne lol .. ça marche du feu de Dieu

Usine à gaz · 30 Août 2020

Pourquoi pas le déposer comme modèle dans les ressources ?
Il vaut bien ça

Dudu2 · 30 Août 2020

Non, c'est juste un truc perso pour faciliter mes développements. Il n'y a qu'une très petite partie des fonctions de l'API et ça peut changer au fur et à mesure des besoins.

Usine à gaz · 13 Septembre 2020

Bonjour à toutes et à tous,
Juste un p'tit coucou à Dudu2 pour dire que ça marche "d'enfer" coool
Bonne soirée à toutes et à tous,
lionel,

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Dudu2

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires