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]

C'est super nickel

 

[Usine à gaz]

Bon moi je vais me coucher car je me lève tôt pour préparer le boulot de lundi.
Bonne nuit Dudu2,
Bonne nuit Patrick
Bonne nuit tout le monde
lionel,

 

[Dudu2]

La minutie peut-être, mais la minuterie est moindre qui confond le jour et la nuit

Bonne nuit à tous.

 

[Dudu2]

Bonjour les accros,
Et comme un programme a toujours une bonne raison d'être amélioré, uns modif dans le ShellExecute pour bien lancer Google Chrome et le maximiser au démarrage ce qu'il ne fait pas par défaut.

'-------------------------------
'Active la fenêtre Google Chrome
'-------------------------------
Sub ActiveGoogleChrome()
    Const NomFenêtreGoogle = "- Google Chrome"
    Const Programme As String = "Chrome.exe"
    Const Paramètre As String = "https://accounts.google.com/signin/v2/identifier?hl=fr&passive=true&continue=https%3A%2F%2Fwww.google.com%2F&flowName=GlifWebSignIn&flowEntry=ServiceLogin"
    'Const Paramètre As String = "https://google.com/"
  
    If Not ActivateWindowByPartialName(NomFenêtreGoogle) Then
        ShellExecute 0, "Open", Programme, Paramètre, "", 3
    End If
End Sub

La constante Paramètre est à ajuster selon l'URL que l'on veut afficher au lancement.
Ici l'URL est la page de Login Google.
Évidemment le fichier du Post #40 a été modifié !

 

[Usine à gaz]

Bonjour Dudu2, le forum,
Bon dimanche à toutes et à tous
@ Dudu2

lionel,

 

[Usine à gaz]

Bonjour Dudu2, Bonjour Patrick, le Forum,
Je vous souhaite un beau dimanche

@dudu et @patrick
Dans le prolongement de ce fil,de faire ce fil :

Microsoft 365 - Afficher UNIQUEMENT l'agenda du Client pour lequel je travaille

Bonjour Dudu2, Bonjour Patrick, Bonjour à toutes et à tous, Je vous souhaite un beau dimanche :) Dans le prolongement de ce fil : https://www.excel-downloads.com/threads/afficher-google-et-fermer-longlet-nouveau-sans-fermer-le-navigateur.20047590/ Je pense que celle là est très "costaude" en...

www.excel-downloads.com

C'est certainement encore plus ardu
Mais avec les ténors ?
lionel,

 

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un "bô" WE

Dudu2 a eu la gentillesse de résoudre ma demande de ce post mais je souhaiterais aller un ch'ti peu plus loin :

Le code m'amène direct sur Google sans m'ajouter d'onglet et ça c'est déjà super

Toutefois, j'ai toujours plusieurs site ouverts sur Google et, alors que je suis toujours sur un autre site, j'aimerais que le code m'amène "direct" sur mon agenda qui est lui aussi déjà ouvert :

Si c'est possible = 1 clic gagné et étant donné le nombre de fois que l'opérations est répétée (environ plus de 100 fois par journée), chaque clic gagné ainsi que chaque secondes gagnées sont importantes

J'ai tenté de "bricoler" le code de Dudu2 :

Const NomFenêtreGoogle = "- calendar.google"
Const Programme As String = "Chrome.exe"
Const Paramètre As String = "https://accounts.google.com/signin/v2/identifier?hl=fr&passive=true&continue=https%3A%2F%2Fwww.google.com%2F&flowName=GlifWebSignIn&flowEntry=ServiceLogin"

ça fonctionne mais il ouvre une seconde fois l'agenda

Pour l'instant, j'ai pas trouvé le bon code ...
Si vous aviez la solution, ce serait super nickel
Je joins le fichier test,
Avec mes remerciements,
lionel,

 

[Dudu2]

Bonjour Usine à gaz,
Lorsque tu as "plusieurs Google Chrome" ouvert dont l'un est l'agenda, ce sont plusieurs fenêtres ou plusieurs onglets ?

Ça c'est quoi, ta barre des tâches ?

 

[Dudu2]

Essaie ça dans un premier temps:

'-------------------------------
'Active la fenêtre Google Chrome
'-------------------------------
Sub ActiveGoogleChrome()
    Const NomFenêtreGoogleAgenda = "Google Agenda"
    Const NomFenêtreGoogle = "- Google Chrome"
    Const Programme As String = "Chrome.exe"
    Const Paramètre As String = "https://accounts.google.com/signin/v2/identifier?hl=fr&passive=true&continue=https%3A%2F%2Fwww.google.com%2F&flowName=GlifWebSignIn&flowEntry=ServiceLogin"
    
    If Not ActivateWindowByPartialName(NomFenêtreGoogleAgenda) Then
        If Not ActivateWindowByPartialName(NomFenêtreGoogle) Then
            ShellExecute 0, "Open", Programme, Paramètre, "", 3
        End If
    End If
End Sub

 

[Usine à gaz]

Merci Dudu2 d'être encore là

Désolé mais ça ne fonctionne pas.

Dans le fichier joint, j'ai modifié ton code.
Il va bien chercher l'agenda mais l'ouvre une seconde fois au lieu de le sélectionner
Fichier joint,

 

[Dudu2]

Le code que je vois dans ce dernier fichier n'a rien à voir avec celui indiqué. C'est parce qu'il ne fonctionne pas ?
Dans le code du fichier je vois:

Const NomFenêtreGoogle = "- calendar.google Chrome"

qui est n'a aucune chance de fonctionner car ce n'est certainement pas un nom partiel de fenêtre.

Peux-tu répondre au message #68 ?

 

[Usine à gaz]

Re-bonjour,

J'avais tenté et préparé le fichier.
1 sélectionne bien navigateur,
2 n'ajoute pas d'onglet,
Mais ne sélectionne pas l'agenda
Voir fichier joint,

 

[Usine à gaz]

Bonjour Usine à gaz,
Lorsque tu as "plusieurs Google Chrome" ouvert dont l'un est l'agenda, ce sont plusieurs fenêtres ou plusieurs onglets ?

Ça c'est quoi, ta barre des tâches ?
Regarde la pièce jointe 1075483

Je ne l'avais pas vu celui-là : ce sont plusieurs onglets

 

[Usine à gaz]

Ça c'est quoi, ta barre des tâches ?
Je n'ai pas compris la question mais ma barre des tâches est celle de windows10

 

[Usine à gaz]

Voir la pièce jointe 1075483
oui, c'est comme ça dans le navigateur