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]

Bonjour Dudu2, Le Forum,
J'en ai encore une bonne du dimanche matin ... mais je comprendrai parfaitement que tu puisses avoir une indigestion de ce fil lol.
Je te soumets quand même ... en cas
Actuellement, ton code fonctionne super bien après des dizaines de tests.
Toutefois, il y a une contrainte : Il faut que la fenêtre Google soit"Affichée", ce qui peut ne pas être toujours le cas. Au fil de nos travaux, elle peut être "réduite".
dans ce cas, le code n'affiche pas la fenêtre pour atteindre l'agenda.

Souhaitant que ça fonctionne navigateur affiché ou pas, j'ai cherché à combiner un autre code qui affiche Google sans ajouter un nouvel onglet.
Deux résultats sont obtenus :
1 - Je réduis la fenêtre Google avec clic sur l'icône dans le menu démarrer,

le navigateur est affiché,
l'agenda est atteint,
et pas d'onglet ajouté (onglet agenda actif ou non)

2 - Je réduis avec clic sur le signe "-" tout en haut à droite,

le navigateur est affiché,
l'agenda est atteint,
Si l'onglet agenda n'est pas déjà actif, un nouvel onglet de l'agenda est ajouté.

Je joins le fichier ... et qui sait peut-être auras-tu la solution et là, ce serait "perfect" lol
Bon dimanche à toutes et à tous,
Amicalement,
lionel,

 

[Dudu2]

Je n'avais pas compris la remarque dans le classeur comme quoi Google doit être affiché.
En fait, c'est Google ne doit pas être minimisé.

Remplace l'instruction AppActivate OngletInitial par l'instruction ActivateWindow hWnd.
Je croyais, à tors que la 1ère était l'équivalente de la 2ème qui j'ai développée pour je ne sais plus quoi. En fait non et j'ai bien fait de la développer car elle sait maximiser une fenêtre minimisée ce que ne fait pas la 1ère.

 

[Usine à gaz]

Re ...
Merci pour m'avoir encore répondu
" Remplace l'instruction AppActivate OngletInitial par l'instruction ActivateWindow hWnd."

'Trouvée
    OngletInitial = GetWindowName(hWnd)
    'ActivateWindow hWnd
    AppActivate OngletInitial

Je l'ai fait mais ça ne change rien ... désolé
lol on est proche du 7eme ciel
lionel,

 

[Dudu2]

Si ça marche, je l'ai testé. Je ne comprends pas ce que tu fais.
A la suite de la phrase:
" Remplace l'instruction AppActivate OngletInitial par l'instruction ActivateWindow hWnd."
tu devrais avoir l'exact contraire de ce que tu montres dans le code cité dans ton message.

 

[Usine à gaz]

Peut-être que j'ai les yeux qui se mélangent mais :

'Trouvée
    OngletInitial = GetWindowName(hWnd)
    ActivateWindow hWnd

donne les mêmes résultats qu'à mon post#121 soit :
2 - Je réduis avec clic sur le signe "-" tout en haut à droite,


le navigateur est affiché,
l'agenda est atteint,
Si l'onglet agenda n'est pas déjà actif, un nouvel onglet de l'agenda est ajouté.

@plus

 

[Dudu2]

Si l'onglet agenda n'est pas déjà actif, un nouvel onglet de l'agenda est ajouté.

Ça me parait impossible car le remplacement de l'instruction n'a pas du tout affecté la logique de recherche de l'Onglet. Il n'a fait qu'afficher la fenêtre Google.

Que la fenêtre Google soit minimisée ou pas, que l'onglet Agenda soit sélectionné ou pas, voilà comment ça marche:

 

[Usine à gaz]

Hello : je télécharge je test ton fichier et je te répond

 

[Usine à gaz]

je ne sais pas quoi te dire, je viens de tester avec ton fichier post#126 et chez moi = pareil
comme indiqué au post#125
Bordel de Bordel ...

 

[Usine à gaz]

et ce qui est curieux est que :
Si je réduis la fenêtre Google avec clic sur l'icône dans le menu démarrer,


le navigateur est affiché,
l'agenda est atteint,
et pas d'onglet ajouté (onglet agenda actif ou non)

 

[Dudu2]

Difficile de trouver la différence entre ton environnement et le mien.
Dans une 1er temps essaie cette version.

 

[Usine à gaz]

ok j'essaie de suite

 

[Usine à gaz]

Vraiment désolé = c'est pareil
Je sais que ce n'est pas évident quand ce n'est pas le même environnement

 

[Usine à gaz]

Je ne sais pas si c'est encore s'embarquer dans une usine à gaz ???
Peut-être que quand clic :

sur le "-" pour réduire on peut simuler pour lui dire que c'est un clic sur l'icône dans le menu démarrer ?
lol

 

[Dudu2]

Bon je vois pas trop.
Si ça marchait avant avec l'instruction AppActivate OngletInitial je la remets et ajoute le maximize.

 

[Dudu2]

Sinon essaie aussi cette version, pour voir.