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.

Dudu2 · 9 Août 2020

Ok, il se passe des choses sur ton système (Windows 10 ?) qui ne se passent pas sur mon Windows 7 où la macro fonctionne bien. Et le clavier numérique reste activé. Je suis quand même étonné.
Sauf à tester sur ton environnement, je ne peux plus rien faire !
Peut-être essayer de passer la Const SLEEPTIME = 0 à 100 ou 250 ?

Usine à gaz · 9 Août 2020

Re Dudu2,

Merci pour ton formidable travail
Je vais voir et faire en sortes que tout le temps que tu y as passé soit valorisé chez moi.
lionel,

Dudu2 · 9 Août 2020

Pas de souci, si je le fais c'est aussi pour essayer et tester de nouvelles choses et pour la petite satisfaction de trouver des solutions. Comme tout le monde ici.

Usine à gaz · 9 Août 2020

Re Dudu2

Ton travail fini par payer = ça marche nickel en passant SLEEPTIME = 250
Mais reste juste le pavé numérique qui se désactive ... Je vais bien trouver la solution pour ça
lionel,

Usine à gaz · 9 Août 2020

lol, je ne m'en lasse pas = c'est génial
je vais voir pour le pavé numérique

Dudu2 · 9 Août 2020

Un simple SendKeys "{NUMLOCK}" juste après le SendKeys "^{TAB}" peut-être...

Usine à gaz · 9 Août 2020

Re-Dudu2,

Exactement c'est bien ça
Je ne m'en lasse passe et ça me rend un grand service... après une bonne cinquantaine de tests dans tous les sens ... ça fonctionne du tonnerre
Un grand merci à toi et je te salue "chapeau bas"

Dudu2 · 10 Août 2020

Il y a quand même une restriction.

Conditions:
- L'onglet actif a à sa droite un ou plusieurs doublons (ils ont le même nom, c.a.d. sont tous sur la même page ou sont tous "Nouvel onglet").
- L'onglet Agenda n'est pas entre l'onglet actif et le 1er doublon.

Conséquence:
Le code ne trouvera pas l'Agenda car va considérer qu'il a examiné tous les onglets en rencontrant le 1er doublon.

Je ne sais pas déterminer le nombre d'onglets ouverts. Même si chaque onglet possède son propre processus, il n'est lancé que passé le stade "Nouvel onglet" des doublons. De plus, si <Maj + ESC> sur le navigateur en donne la liste, rien ne permet en examinant les processus chrome.exe de trouver un nom d'onglet qui lui soit associé. Et il y a d'autres processus chrome.exe annexes non liés aux onglets. Cette allocation est probablement (?) gérée dans le processus maitre chrome.exe.
Il faudrait un expert de l'API Windows pour examiner ce problème et trouver le processus concerné lorsqu'on active un onglet.

Usine à gaz · 10 Août 2020

Bjr Dudu2,
Je te remercie pour ces précisions
J'en tiendrai compte.
lionel,

Dudu2 · 10 Août 2020

A titre d'essai, cette version tolère 1 doublon de l'Onglet actif à l'activation de Google Chrome avant de rencontrer l'Onglet Agenda. Je pense que ça doit couvrir 99,99% des situations.

Par exemple cette situation sera gérée correctement.

Celle-ci également:

Mais PAS celle-ci (compte tenu de Const TOLÉRANCEDOUBLONSPOTENTIELS = 1)

Ni celle-ci:

Usine à gaz · 10 Août 2020

Merci Dudu2,
Je testerai ça demain et je te dirai
lionel

Usine à gaz · 28 Août 2020

Bonjour Dudu2, Bonjour Patrick, Bonjour le Forum,
Bonne journée à toutes et à tous
@ Dudu2
Pour info : j'utilise depuis bientôt plus d'un mois et ça fonctionne normalement.
Je tenais à te le dire et à encore te remercier
lionel,

Dudu2 · 28 Août 2020

OK cool !

Usine à gaz · 28 Août 2020

OUI mais toutefois un souci que je n'ai pas réussi à résoudre.
j'ai "trituré" tes codes dans tous les sens mais :

ça fonctionne bien si je suis juste le lien de l'agenda avant ouverture de l'agenda.
Je m'explique

si je suis là :

le lien est bien celui là :

Google Calendar - Sign in to Access & Edit Your Schedule

Access Google Calendar with a Google account (for personal use) or Google Workspace account (for business use).

accounts.google.com

Si je suis dans mon agenda ouvert :

le lien est bien celui qui est dans le code :

Google Calendar

Gamit ang libreng online na kalendaryo ng Google, madaling subaybayan ang mahahalagang pangyayari sa buhay, lahat sa iisang lugar lang.

calendar.google.com

Et là, à chaque fois, le code ouvre un second onglet de l'agenda !
Et comme nous sommes toujours agenda "ouvert", on doit à chaque fois supprimer l'onglet en trop.

Il n'y a pas un moyen de supprimer automatiquement ce "doublon" ?
En cas, je remets le dernier classeur.
Bonne journée
lionel,

Dudu2 · 28 Août 2020

Envoie un screenshot des onglets de Google Chrome lorsque l'Agenda est ouvert 2 fois.
Faut je je vois les titres de tous les onglets.

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Dudu2

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Google Calendar - Sign in to Access & Edit Your Schedule

Google Calendar

Pièces jointes

Dudu2

XLDnaute Barbatruc

Discussions similaires