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 :
les voici en pièces jointes
lionel 🙂

 

[Dudu2]

Dans la situation où tu es déjà sur l'agenda, exécute la Macro TestTrouve() et envoie le Message qui s'affiche.

 

[Usine à gaz]

Dsl, j'étais pas là.
voici la photo :

@+,
lionel,

 

[Dudu2]

Même manip avec ce fichier STP.
Je soupçonne que la séparation entre Google et Agenda est parfois x'A0' et parfois autre chose à déterminer. On va vite le savoir.

 

[Usine à gaz]

Bonjour,
Vraiment merci de t'en occuper 🙂
voici la photo :

@+,
lionel,

 

[Dudu2]

Ok, mais là ça ne dump pas le nom de l'onglet Agenda. Ça dump l'onglet de ce forum.
Il faut que le Trouvé de la fenêtre Google Chrome soit l'Agenda.
Essaie de faire en sorte que le dump soit celui du nom de l'onglet Agenda. Comme au MsgBox précédent message #108. Soit en déplaçant l'onglet Agenda soit en fermant les autres.

 

[Usine à gaz]

Re 🙂
est-ce bon comme ça ?

@+

 

[Dudu2]

C'est bien ce que je pensais, parfois il y a un faux blanc x'A0', parfois un vrai blanc x'20' entre Google et Agenda.
Je te renvoie un fichier modifié dans quelques minutes

 

[Dudu2]

Essaie avec cette version.

 

[Usine à gaz]

1ers tests SUPER Magique 🙂
Vraiment merci ça me rend un très gros service.
Je vais continuer à tester et je te dirai ... Mais ça sent bon .. très bon 🙂
(Je vais essayer de voir ce que tu as modifié)
lionel,

 

[Dudu2]

Presque rien. J'ai simplement ajouté le test en rouge.
'Trouvé
If InStr(OngletEnCours, Replace(NomFenêtreGoogleAgenda, "@", Chr(160))) _
Or InStr(OngletEnCours, Replace(NomFenêtreGoogleAgenda, "@", Chr(32))) _
Then

 

[Usine à gaz]

ok Merci à toi 🙂
Je viens de tester des dizaines de fois et c'est nickel 🙂
lol Je savais que tu pouvais le faire 😉
lionel,

 

[Dudu2]

Je peux tout faire

En toute modestie évidemment

 

[Usine à gaz]

lol mais tu l'as montré et bravo pour ta ténacité et ta gentillesse 🙂
lionel,

 

[Usine à gaz]

LOL, je vais en poster un autre et là : je ne pense pas que ce soit possible ... avec la magie, on sait jamais 🙂