Contenu récent par patricktoulon

apres il faudrait se mettre d'accord su la methode d'ouverture le shell explorer ou le shell cmd pour @dudu2(et chez moi ca marche aussi avec edge, firefox , bullzipPDF , adobe reader) Option Explicit 'patricktoulon 'Déclarations VBA7 en 32/64 bits Private Declare PtrSafe Function FindWindow...

Bonjour @nullosse oui on peut faire plus simple que splitter et compter Dim nomfenetre nomfenetre=mid(cheminPDF,instrRev(cheminPDF,"\")+1) Do hwnd = FindWindow("Chrome_WidgetWin_1", nomfenetre) ' Debug.Print hwnd...

sinon j'avais ça Option Explicit 'patricktoulon 'Déclarations VBA7 en 32/64 bits Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowText Lib "user32" Alias...

et oui mais la tu a plusieurs version x86 et 64 tant qu'a faire essaie de trouver une acropdf.dll

je peux te faire avec le shell qui ouvrira ton pdf avec l'application par defaut sur ton sytem

c'est par ce que soit tu n'a pas le plugin de lecture installé par une application tierce pdf du genre adobe reader ou autre soit le plugins est mal enregistré dans le registre alors tu a la fenêtre de téléchargement et donc ton navigate ou navigate2 se transform en blob web de téléchargement...

maintenant que c'est en plein état de fonctionnement je vais ajouter volet Word Volet Web Volet csv Volet acces bref je t'en met autant que tu veux

alors t'en dis quoi c'est pas classe ?

alors je reviens avec une surprise qui va faire plaisir a @nullosse la question qui tue oui mais comment revenir en full pane quand on ferme la fenêtre edge en app @nullosse a proposé un shreduler(application.ontime) en boucle birk birk birk vous l'avez compris avec les boutons dans le ruban...

c'est même pas la peine avec edge en mode app voici le texte de la fenêtre grosso modo le nom du fichier est complet dans le titre de la fenêtre donc donc #If VBA7 Then Function OuvrirPDF_Edge() As LongPtr Dim hwnd As LongPtr #Else Function OuvrirPDF_Edge() As Long...

re dans ce cas la il fallait nous le demander @Dudu2 et moi avons une fonction FindWindowByPartTitle @Dudu2 diffère un peu mais le principe est le même kado une partie du com original du fichier ouvert et le suffixe comme dans edge ou FF ou même bloknote 'Option Explicit 'patricktoulon...

bon ben spy me dis tout bon hein oui aussi uiautomationclient ,mais attention c'est fragile d'une config à l'autre et l'inconvenient majeure c'est qu'il n'y a pas de late binding avec UIauto çà veut dire que tu demande aux utilisateurs d'activer une ref et selon la version ben c'est...

que te propose chat gpt . et de quel handle tu parles? si chat gpt t a proposer le shell et le PID c'est chez moi que cela fonctionne pas le find windows c'est pour la fenêtre edge? si c'est ça je n'ai rien changer a ton code ouvrir_pdf je vais regarder avec spy++

bon j'ai mis partout #if vba 7 comme ça il y aura moins de bug avec le handle et pour @Dudu2 voici le code xml du projet <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <customUI azerty="http://schemas.microsoft.com/office/2009/07/customui" onLoad="CustomUIOnLoad">...

lisez le code d'un bout a l'autre pas en diagonal SVP le positionnement y est @@nullosse ta fonction ne sert uniquement a loader le pdf dans edge @Dudu2 a ben la effectivement je crois pas que l'on puisse y faire grand chose alors imagine si j'avais pas fait le creatorRibbonX tu serait...