Résolu XL 2016 Webcam pour une photo type carte identité

fanch55

XLDnaute Junior
Salut à tous, mais cela est dirigé vers PatrickToulon dont je suis pas mal de fils intéressants (partout) et dont je me suis inspiré pour cette source .
Je joint contrairement à mon habitude un fichier complet en XLSM ( gare aux autorisations, mais je le certifie sans malveillance aucune [ de ma part] ) .
Ce fichier effectue une capture photo à partir de la webcam ( ou un fichier image ) et le réduit/redimensionne au format carte identité ou tout au moins aux dimensions 3.5 cm x 4.5 cm .
La partie intéressante est de transformer la photo rognée en une image conforme au but, c'est à dire de ne pas conserver l'image originale trop volumineuse .
Le besoin est de pouvoir fournir une photo de faible dimension au format CI pour des licences de pétanques (entre autre)
Tout point d'amélioration est le bienvenue .
Pour ceux qui n'ont pas de webcam sur le poste fixe, j'ai testé avec Droidcam sur le smartphone et Droidcam Client sur Pc, c'est opérationnel (j'en suis bluffé).
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

Staple1600

XLDnaute Barbatruc
Re

Salut à tous, mais cela est dirigé vers PatrickToulon
L'essence d'un forum, c'est la pluralité pas le peer-to-peer.
Mais bon, comme il n'y a pas point de patricktoulon.com :rolleyes:

J'ai une webcam mais je ne suis pas patrick ;)
 

Staple1600

XLDnaute Barbatruc
Re

Juste pour infos aux lecteurs
Ce petit bout de code va trifouiller* la base de registre
CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI")
Ça serait sympa de prévenir avant ;)

*: Même si ce n'est que pour lire, je préfère qu'on me demande mon consentement avant.
 

fanch55

XLDnaute Junior
Ce n'ést pas une exclusivité PatrickToulon, mais je dois rendre à l'inspirateur l'essence de mon développement ( wouaaah !!!). Staple, tu es le bienvenu et je suis tout à ton écoute ...;)
 

fanch55

XLDnaute Junior
Désolé, le workbook_open ne force que le zoom pour ne pas perdre les dimensions établies pour le format CI, un zoom c'est anodin, je promet de signaler par la suite... no mate
 

patricktoulon

XLDnaute Barbatruc
pour ceux qui sont frileux
sans api sans aller chercher aucune resource
on obtient le dpi comme ca aussi
VB:
With ActiveWindow.ActivePane
dpi = Round((.PointsToScreenPixelsY(Cells.Height) - ActiveWindow.ActivePane.PointsToScreenPixelsY(0)) / Cells.Height * 72)
End With
MsgBox dpi
 

Staple1600

XLDnaute Barbatruc
Re

Merci pour la bienvenue mais pour rester fidèle à moi-même
(comme adepte du principe KISS)
Excel est pour moi d'abord un tableur.
Son nom est Excel et non point Irfanview (au hasard)
Il existe d'autres utilitaires de retouche photos
(open source, freeware, gratuit) pour ce type de tâches.
(qui font cela mieux qu'Excel, en mode batch etc...)
• Pensée du soir (en se brossant les dents)
J'utilise un marteau pour enfoncer un clou pas robot-cuiseur ou une cafetière.

Donc je laisse volontiers l'inspirateur remettre de l'essence dans sa webcam ;)
 

fanch55

XLDnaute Junior
Comme je l'ai dit en début de topic, j'ai joint un fichier Xlsm contrairement à mon habitude car je savais qu'il était "sans risque" ( effectivement, cela n'engage que moi, mais j'ai une éthique), sinon je n'aurai posté que des morceaux de codes.
Je demande à tous de m'en excuser .
:oops:
 

Staple1600

XLDnaute Barbatruc
Re

=>patricktoulon
Il ne s'agit pas d'être frileux mais de "courtoisie".
Normalement, seul l'utilisateur d'un PC fait ce qu'il veut avec celui-ci.
Ce n'est pas le cas d'un tiers (qui lui fait ce qu'il veut sur son PC)

PS: J'ai mis des guillemets à courtoisie pour éviter les polémiques.
 

patricktoulon

XLDnaute Barbatruc
Re

=>patricktoulon
Il ne s'agit pas d'être frileux mais de "courtoisie".
Normalement, seul l'utilisateur d'un PC fait ce qu'il veut avec celui-ci.
Ce n'est pas le cas d'un tiers (qui lui fait ce qu'il veut sur son PC)

PS: J'ai mis des guillemets à courtoisie pour éviter les polémiques.
et quand tu a installé windows sur ton pc t'a demandé a bill les codes source ou les reachpack pour faire Peter les protec des dll et pouvoir lire le code
ou pour une autre app d'ailleurs
ben non tu l'a pas fait ;)

tu mange plus de poisson avec des arrêtes hein tu le promet !!!???:p:p:p:p:p
 

Staple1600

XLDnaute Barbatruc
Re

)>fanch55
Inutile de t'excuser
Sache juste qu'il est préférable de prévenir quand le code VBA d'un classeur est "intrusif"
Pour éviter cela, quand je postais des PJ, je mettais en commentaires les codes qui potentiellement pouvaient "déranger"
Charge aux testeurs de les dé-commenter pour ses tests.

=>patricktoulon
Je ne compte plus les fils avec un classeur où il y avait un Workbook_Open qui modifiait le ruban ou l'interface ou les BO.
Et là les questions fusaient pour savoir comment remettre tout en place.
 

patricktoulon

XLDnaute Barbatruc
bon c'est vrai que si il a ce code c'est une ancienne version ou version simplifiée de mon camexcelstudio
ma version perso actuelle ne l'utilise plus
 

fanch55

XLDnaute Junior
Staple,
le but n'est pas d'utiliser un logiciel externe, les utilisateurs (55 ans minimums et toutes leurs dents) sont des novices purs et durs ,ils ne font que cliquer sur une icone. Si c'est Excel en sous-jacent, ils n'en savent rien , je suis là (comme le dit mon logo) pour leur faciliter leur tache, je ne vais pas leur expliquer tous les clics externes qu'ils doivent faire pour parvenir à leur but, je vais me faire jeter ...
Je suis désolé d'avoir enfreint une éthique sans le savoir ou sans prévenir, j'en appelle à ton pragmatisme.
 

fanch55

XLDnaute Junior
==> PatrickToulon
camexcelstudio j'ai pas vu ... sur quel forum ?
Aaargh, google tu dis pas tout ou c'est tellement noyé dans la masse, je t'abomine
 

Staple1600

XLDnaute Barbatruc
Re

On s'est mal compris.
C'est pas grave.

Toujours dans fil droit du K.I.S.S
Un utilisateur novice pur et dur d'Excel risque d'avoir un jour des soucis avec un classeur fonctionnant avec du VBA
(mais ceci est une autre histoire)

Je laisse patricktoulon prendre le relais (comme je l'avais déjà indiqué dans le message#10)
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
re
je ne l'ai pas partagé je donne un peu mais pas tout quand même ;)
franck ton fichier plante chez moi erreur irrémédiable insuffisance de mémoire
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Discussions similaires

Haut Bas