Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Usine à gaz

XLDnaute Barbatruc
Re :
les voici en pièces jointes
lionel
 

Pièces jointes

  • agenda_onglet_existant.jpg
    146.6 KB · Affichages: 25
  • agenda_onglet2_ouvert.jpg
    165.3 KB · Affichages: 22
  • excel-downloads.jpg
    274.1 KB · Affichages: 21
  • ma_boite_mail.jpg
    180 KB · Affichages: 21

Dudu2

XLDnaute Barbatruc
Même manip avec ce fichier STP.
Je soupçonne que la séparation entre Google et Agenda est parfois x'A0' et parfois autre chose à déterminer. On va vite le savoir.
 

Pièces jointes

  • Google_atteindre_Agenda.xlsm
    90.1 KB · Affichages: 1
Dernière édition:

Dudu2

XLDnaute Barbatruc
Ok, mais là ça ne dump pas le nom de l'onglet Agenda. Ça dump l'onglet de ce forum.
Il faut que le Trouvé de la fenêtre Google Chrome soit l'Agenda.
Essaie de faire en sorte que le dump soit celui du nom de l'onglet Agenda. Comme au MsgBox précédent message #108. Soit en déplaçant l'onglet Agenda soit en fermant les autres.
 
Dernière édition:

Dudu2

XLDnaute Barbatruc
Presque rien. J'ai simplement ajouté le test en rouge.
'Trouvé
If InStr(OngletEnCours, Replace(NomFenêtreGoogleAgenda, "@", Chr(160))) _
Or InStr(OngletEnCours, Replace(NomFenêtreGoogleAgenda, "@", Chr(32))) _
Then
 

Discussions similaires

Réponses
4
Affichages
606
Réponses
1
Affichages
1 K
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…