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

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 · 30 Août 2020

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 · 30 Août 2020

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

VB:

'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 · 30 Août 2020

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 · 30 Août 2020

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

VB:

'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 · 30 Août 2020

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 · 30 Août 2020

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

Usine à gaz · 30 Août 2020

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 · 30 Août 2020

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 · 30 Août 2020

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

Usine à gaz · 30 Août 2020

ok j'essaie de suite

Usine à gaz · 30 Août 2020

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 · 30 Août 2020

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 · 30 Août 2020

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

Dudu2 · 30 Août 2020

Sinon essaie aussi cette version, pour voir.

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

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires