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]

Ok tu lances Google Chrome avec https://www.google.com/.
Questions, dans le contexte de ta macro:
1 - Est-ce que Google Chrome est déjà lancé (au moins une tâche Google Chrome dans la Barre des Tâches ) ?
2 - Est-ce que Google Chrome affiche n'importe quoi ou affiche une page bien précise ?
3 - Est-ce que tu veux revenir sur cette Täche Google Chrome (ou l'une d'entre elles) à partir de ta macro ?
4 - Si tu passes la souris sur les icônes des tâches de la Barre des Tâches, est-ce que tu as un pop up du genre:

 

[Usine à gaz]

Oui Google chrome est déjà ouvert
Quand je travaille, sont ouverts :
- mon classeur excel,
- mon navigateur Google et mon onglet "agenda", ici + le forum et ma boite mail

 

[Dudu2]

Et tu veux faire quoi à partir d'Excel ? Retourner sur l'Agenda ?

 

[Usine à gaz]

J'oubliais :
"2 - Est-ce que Google Chrome affiche n'importe quoi ou affiche une page bien précise ?
Il affiche un nouvel onglet
3 - Est-ce que tu veux revenir sur cette Täche Google Chrome (ou l'une d'entre elles) à partir de ta macro ? NON
4 - Si tu passes la souris sur les icônes des tâches de la Barre des Tâches, est-ce que tu as un pop up du" PAS VU

Je voudrais juste que le nouvel onglet soit fermé

 

[Usine à gaz]

"Et tu veux faire quoi à partir d'Excel ? Retourner sur l'Agenda ?" NON

Juste "retourner" ou "afficher" le navigateur et que le nouvel onglet soit fermé

 

[Dudu2]

Tu veux que le nouvel onglet soit fermé ?
Non car il n'est pas question d'ouvrir un nouvel onglet. C'est ton code qui l'ouvre, mais ton code n'est pas bon.
Au final, tu veux quoi ? Afficher l'Agenda ?

 

[Usine à gaz]

Juste "afficher" le navigateur et que le nouvel onglet soit fermé
Pas afficher l'agenda

 

[Dudu2]

Ok donc dans le navigateur Google Chrome ouvert, il y a 1 ou plusieurs onglets ouverts, peu importe, et tu veux revenir sur le navigateur Google Chrome ouvert.
Ok dans ce cas on n'a pas le nom complet de la fenêtre puisqu'on ne sais pas quelle page le navigateur affiche et donc il faut utiliser la recherche partielle sur "Google Chrome".
Je t'envoie le code dans 2 minutes.

 

[Usine à gaz]

" Ok donc dans le navigateur Google Chrome ouvert, il y a 1 ou plusieurs onglets ouverts, peu importe, et tu veux revenir sur le navigateur Google Chrome ouvert."

OUI : revenir sur le navigateur Google Chrome ouvert et que le nouvel onglet soit fermé

 

[Dudu2]

Le code est plus long car il faut scanner toutes les fenêtres, donc je te donne un fichier qui fait ça.

Edit: mais quel le nouvel onglet soit fermé ?
Ce nouvel onglet il a été ouvert comment ? Par quoi ?
1 - Par toi manuellement ?
2 - Par ta macro ?
Si c'est le 2 - on s'en fout parce que ta macro on ne l'utilise pas.

 

[Usine à gaz]

Dans le dernier fichier joint :
j'ai mis ce code :

Sub agenda2()
Dim fichier As String
    fichier = "https://google.com/"
    ShellExecute 0, "", fichier, "", "", 0
    'Application.CutCopyMode = False

    'active fenêtre navigateur
    Ferme_Onglet_Google
End Sub
Sub Ferme_Onglet_Google()
    'wscript.Shell.sendkey ctrl + "w"
    SendKeys ("^w")
    SendKeys ("{NUMLOCK}")
End Sub

Mais il me demande de fermer excel mais il ne ferme pas le dernier onglet Google ouvert
Je dois donc mal me servir des SendKeys.

Je remets le dernier fichier avec le code

 

[Dudu2]

il ne ferme pas le dernier onglet Google ouvert

Le code que je t'ai donné n'ouvre pas d'onglet. Il active la fenêtre Google Chrome sans rien faire d'autre.

Lionel, qui a ouvert ce dernier onglet dont tu ne veux pas ?
1 - Toi manuellement lors de ta dernière utilisation de Google Chrome
2 - Ta macro ?
Réponds à cette question STP.

 

[Usine à gaz]

C'est la macro qui, en ouvrant ou affichant google qui ouvre un nouvel onglet.
Le souci est peut-être que le code n'affiche pas Google mais l'ouvre à nouveau.

 

[Dudu2]

Le fichier que tu envoies il n'y a pas le code de mon fichier dernièrement envoyé mais l'ancien code.
De plus je ne comprends pas pourquoi tu t'acharnes à vouloir faire tourner ta macro qui elle y est toujours.

Lionel, je ne comprends rien à ce que tu fais, désolé, mais on n'y arrivera pas.

Utilise le fichier envoyé au message #40 TEL QUEL, sans utiliser ton fichier.
Et si ça marche, place le module dans TON fichier et supprimes définitivement ta macro.

 

[Usine à gaz]

Je n'avais pas vu ton fichier du post#40.
Je teste et je te dis