Contenu récent par patricktoulon

Bonjour il te faudra alors pour corriger ce petit ecart utiliser l'api dwmapi car c'est la surcouche dwm de windows qui fait ce petit defaut est ce que ça vaut le coup pour un petit defaut de 1 ou 2 points tu devra plancher sur cette question

Bonsoir Robert félicitation je testerais demain sinon la lecture renvoie la donnée ou non?par exemple si je scanne avec mon phonne un qrcode produit par ton moteur lib me renverra t il la donnée originale ?

sinon dans sa version la plus simple on gère aussi le freezepane Private Sub UserForm_Initialize() ufposition [d19], Me End Sub Sub ufposition(cel As Range, uf As Object) 'Patricktoulon Dim PpX#, zoo#, adroite#, p As Pane, i& adroite = cel.Width 'debloque si tu le veux a droite...

Bonjour paque!!!! jy zui emruuuber

et ben dis donc la sub peut être dans un module ou directe dans le userform bien entendu réutilisable puisque la cellule de ref est injectée en argument je n'ai pas mis la gestion de freezepane(qui fausse tout) , mais si besoins me le dire Private Sub UserForm_Initialize() ufposition...

ben fait une source moi çà m’intéresse bien que j'ai créé déjà un outils similaire sans vsto en pur vba au plaisir de te lire dans les ressources ca apporterait et monterait le niveau d'un cran juste pour demo de ce que j'ai deja fait

Bonjour @nullosse c'est bien beau de présenter des taskpane perso créer certainement crées avec VSTO /xldna mais si tu publie pas les sources (compilée si possiblecar tout le monde n'a pas forcement VSTO)au lecteurs tes interventions sont inutiles sans vouloir t'offenser Patrick

bonsoir il sera peut être nécessaire d'utiliser le chemin onedrive plutot que le chemin du dossier synchro sinon avec un peu de chance il s'agit de cette cochonnerie d'UAC due a une mise ajour recente (même win 10 en prolongation l'a pris en pleine poire)qui te masque l'accès au fichier avec...

bonjour @DéDé62 'collection fonction WMI patricktoulon 'fermer seulement les instances d'exel crées par vba Sub FermerAutresInstancesExcel() Dim objWMI As Object, col As Object, obj As Object, pidMain As Long, cmdL Set objWMI = GetObject("winmgmts:") Set col =...

patricktoulon a mis à jour Complement Shapes Exporter Commander avec une nouvelle entrée de mise à jour: Complment All Picture Exporter Commander Lire le reste de cette entrée de mise à jour...

Bonjour a tous La version 12 prévue pour la mie mai ,vous réservera des surprises encore Toujours plus loin et plus profond dans le rebuild du customUI Le CreatorRibbonX ajoute a son Arc le rebuild des menu Contextuels qui ne sont plus accessibles via Commandbars depuis 2013 il ajoute a son...

re Bonsoir @Eric C et voici avec le déverrouillage

si tu reverrouille avec ton mot de passe ca n'enleve pas la protection quand tu le ferme la prochaine ouverture il te re demandera le mot de passe

bonjour et alors il est ou le problème? dans la macro affectée ActiveSheet.Shapes(Application.Caller).Select tant que la shape est sélectée la macro ne se déclenche plus car la shape est en mode edition terminé Patrick

et ben dis donc allez moi je vais un peu divaguer ca fait du bien Sub test() MsgBox isvalidChaine("1256325/212563") End Sub Function isvalidChaine(txt) Dim a&, b, part1 As Boolean, part2 As Boolean a = InStr(1, txt, "/") If a > 0 Then part1 = IsNumeric(Mid(txt, 1, a - 1)) And...