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 · 25 Juillet 2020

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 · 25 Juillet 2020

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 · 25 Juillet 2020

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

Usine à gaz · 25 Juillet 2020

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 · 25 Juillet 2020

"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 · 25 Juillet 2020

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 · 25 Juillet 2020

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

Dudu2 · 25 Juillet 2020

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 · 25 Juillet 2020

" 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 · 25 Juillet 2020

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 · 25 Juillet 2020

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

VB:

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 · 25 Juillet 2020

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 · 25 Juillet 2020

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 · 25 Juillet 2020

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 · 25 Juillet 2020

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

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

Pièces jointes

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires