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

Usine à gaz

XLDnaute Barbatruc
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 :mad:
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,
 

Pièces jointes

  • Agenda.xlsm
    15.9 KB · Affichages: 99
Dernière édition:

Dudu2

XLDnaute Barbatruc
La minutie peut-être, mais la minuterie est moindre qui confond le jour et la nuit
1595718440486.gif

Bonne nuit à tous.
 

Dudu2

XLDnaute Barbatruc
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.
VB:
'-------------------------------
'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

XLDnaute Barbatruc
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 :

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

Usine à gaz

XLDnaute Barbatruc
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 :

Sans titre.jpg


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 :
VB:
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 :mad:

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,
 

Pièces jointes

  • Active Google Chrome.xlsm
    25 KB · Affichages: 2

Dudu2

XLDnaute Barbatruc
Essaie ça dans un premier temps:
VB:
'-------------------------------
'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

XLDnaute Barbatruc
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 :mad:
Fichier joint,
:)
 

Pièces jointes

  • Active Google_agenda.xlsm
    26.4 KB · Affichages: 3

Dudu2

XLDnaute Barbatruc
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:
VB:
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 ?
 

Discussions similaires

Réponses
4
Affichages
606
Réponses
1
Affichages
1 K
Compte Supprimé 979
C

Statistiques des forums

Discussions
315 092
Messages
2 116 118
Membres
112 665
dernier inscrit
JPHD