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,

 

[Dudu2]

Bonjour,
2 options dans le classeur joint.
- Activation par nom complet de fenêtre (simple, copié de cet exemple sur developpez.net)
- Activation par nom partiel de fenêtre (moins simple, scan des fenêtres visibles)
Les noms complets à rallonge étant souvent difficiles à prédéterminer, l'option par nom partiel peut s'avérer très utile)

 

[Usine à gaz]

Bonjour Dudu2,
Merci pour ce classeur que je garde "au chaud".
Mais, sauf erreur de ma part ou j'ai mal compris son fonctionnement, il ne répond pas à mon besoin car je ne cherche pas à envoyer des informations.

Je voudrais juste : Est-il possible d'afficher Google et de sélectionner directement mon agenda sans qu'un nouvel onglet soit ouvert ?
@+
lionel,

 

[Dudu2]

Lionel,
Le code ne fait qu'activer une fenêtre d'application existante (désignée par son nom complet ou un nom partiel) parmi celles de la barre des tâches.
Il n'envoie aucune information nulle part et n'ouvre aucun onglet.
J'ai supposé que tu avais ouvert un navigateur sur la Connexion Google et que tu voulais à partir d'Excel, retourner sur cette fenêtre du navigateur.
Mais j'ai peut-être mal compris ce que tu veux faire.
D.

 

[Usine à gaz]

Re-Dudu2,
Selon ton post 4, tu as parfaitement compris mais c'est moi qui ne comprends pas comment ça marche.
J'approfondirai quand j'aurai un moment
lionel

 

[Usine à gaz]

Bonjour Dudu2, bonjour à toutes et à tous,
Je vous souhaite un beau WE

Je n'ai pas trouvé la solution à mon petit souci et le fichier de Dudu2 que je n'arrive pas à utiliser me semble lourd en codes à intégrer dans mon fichier "formation"

J'essaie donc de prendre "la chose" dans l'autre sens :

Avec mes remerciements,
Amicalement,
lionel

 

[Dudu2]

Bonjour Lionel,
J'ai donné un double exemple de recherche de fenêtre (par nom partiel et par nom complet).
Je peux le simplifier à l’extrême si tu indiques le nom exact qui apparait dans la barre des tâches, comme ici:
"Connexion : comptes Google - Mozilla Firefox"

 

[Usine à gaz]

Re-Dudu2,
Merci à toi d'être encore

Je suis une "bille" mais je n'ai pas bien compris ta question ?
Je tente de te répondre :
Mon navigateur est Google chrome :

J'espère avoir bien répondu lol
lionel

 

[patricktoulon]

bonjour

heu.... selenium ça vous parle??
pour ouvrir chrome et (aller,maniouler,fermer) une page bien précise avec ou sans MDP
même si cette librairie n'est pas aussi riche en fonction que la librairie IE ,il suffira amplement

 

[Usine à gaz]

Bonjour Patrick
lol, j'ai rien compris à ton message
Je précise que chrome est déjà ouvert ainsi que des onglets.
lionel

 

[patricktoulon]

"il est deja ouvert"
et alors?

 

[Usine à gaz]

Pardon mais je ne te comprends pas ?
le navigateur Google chrome et certains onglets sont déjà ouverts.
As-tu lu mon besoin ? : Post# 6

 

[Dudu2]

ce n'est pas vraiment la réponse mais sachant que tu utilises Google Chrome j'ai fait une hypothèse, ne sachant plus vraiment ce qu'il faut faire.
Je te propose ce code au cas où ça correspondrait à ton besoin.
Il faut appeler le Sub ActiveConnectionGoogle().

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

'--------------------------------------
'Active le fenêtre de connection Google
'--------------------------------------
Sub ActiveConnectionGoogle()
    Const NomFenêtreConnectionGoogle = "Connexion : comptes Google - Google Chrome"
    If Not ActivateWindowByFullName(NomFenêtreConnectionGoogle) Then MsgBox "Fenêtre """ & NomFenêtreConnectionGoogle & """ non trouvée !"
End Sub

'---------------------------------------------
'Active la fenêtre trouvée par son nom complet
'https://www.developpez.net/forums/d1711931/logiciels/microsoft-office/excel/macros-vba-excel/activer-fenetre-windows-via-vba/#post9377545
'---------------------------------------------
Function ActivateWindowByFullName(FullName As String) As Boolean
    Dim hWnd As Long
     
    hWnd = FindWindow(vbNullString, FullName)
     
    If hWnd = 0 Then Exit Function
    ShowWindow hWnd, 9
    SetForegroundWindow hWnd
    ActivateWindowByFullName = True
End Function

 

[patricktoulon]

oui j'ai lu mais sans fichier c'est pas simple et comme tu nous a montré que tes fichiers étaient des vrais (ton pseudo), j'évite de les ouvrir

 

[Usine à gaz]

Patrick, le fichier est depuis le début joint en Post#1
Je le remets dans ce post
lionel