XL 2016 Webcam pour une photo type carte identité

fanch55

XLDnaute Barbatruc
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é).
 

Pièces jointes

  • Camera.xlsm
    107.9 KB · Affichages: 84

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.
 

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 Barbatruc
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.