XL 2016 Affichage dynamique webcam

[ahart68]

Bonjour à tous et toutes,

Je voudrais avoir en temps réel dans un userform, le retour image de la webcam.
Puis prendre une photo et l'enregistrer.
J'ai réussi à prendre une photo instantanée via le programme CommandCam, mais sans affichage dynamique.
Une idée ?
Merci d'avance.

 

[patricktoulon]

bonsoir
il te reste plus qu'a adapter les api en 64 si tu es en 64 bits
le bouton snapshot envoie la capture direct sur le bureau

 

[ahart68]

Bonsoir Patrick !!
Merci beaucoup pour ta réponse et ta réactivité.
Apparemment, c'est bien ce que je cherchais...ça à l'air de fonctionner, bien que je suis en 64bits.
Je vais essayer de faire quelques adaptations, mais le plus dur a été fait.
Je me permettrai de revenir vers toi au cas où je bloque...encore. ;-)
Merci beaucoup.!!

 

[patricktoulon]

re
non ton office est en 32 bits sinon ca ne fonctionnerait pas
c'est ton windows qui est en 64

 

[ahart68]

@patricktoulon
J'ai intégrer ton userform camera dans mon fichier avec succès.
Puis après différentes modifs sur mon fichier, d'un coup je me rend compte que cer userform "LiveCam" ne démarre plus correctement : l'image de la caméra (comme l'étoile dans le bouton Snapshot) ne s'affiche plus...
Mais, chose "marrante", quand j'execute l'userform via Visual Basic (F5), il démarre et peut être utilisé correctement.
Une idée d'une raison possible ?
Merci d'avance pour ton aide !!

 

[patricktoulon]

bonjour
ben il faudrait que j'examine le fichier je peux pas deviner en l'état
en tout cas tu sais ou chercher

 

[patricktoulon]

chez moi le bouton start fonctionne
c'est avec le dblclick sur cell que ça bloque
j'ai eu une erreur de protection de la feuille

 

[ahart68]

OK, mais lorsque tu l'ouvres via un dblclick cell, tu vois l'image de la cam ?
Moi pas, uniqument via VB et F5 !!
Et le msg protection écriture viens une fois l'userform cam fermé non ?

 

[patricktoulon]

ben en fait la le fichier a planté
trop le fouilli dans ce truc
entre nous un fichier avec une protection dynamique venant du net je le ferme aussitôt
il me fait plein de truc bizarre
bref je n'ai pas le temps je suis sur un autre projet là ,sinon je referais tout

 

[ahart68]

Ok merci quand même :-(

 

[ahart68]

@patricktoulon

dsl encore moi....
Tout fonctionnait bien et soudainement (sans avoir touché au code) l'erreur "Un composant ActiveX ne peut pas créer l'objet" apparaît.
Est-il possible que cette erreur soit liée à une mise à jour ?
Comment puis-je y remédier à ton avis ?
Le code s'arrête là :

Si tu as le temps pour me conseiller...merci d'avance !!

Arno

 

[patricktoulon]

remplace deja cette ligne en jaune par
With ActiveWindow.ActivePane: ptoPX = (.PointsToScreenPixelsY(72) - .PointsToScreenPixelsY(0)) / 72:End With

comme ca on a plus besoins d'aller lire le registre

 

[ahart68]

@patricktoulon

Merci pour ta réponse.
Modif faite, le code s'arrête un peu plus loin...voir ci-dessous...

Une idée ?
Merci.

 

[patricktoulon]

Bonjour
il n'y a pas de raison que ca plante ici sauf absence du userform
écoute donne nous un fichier anonymisé ayant les même caractéristiques que ton fichier
travailler a l'aveugle ça me gonfle un peu

 

[ahart68]

Le problème arrive même avec le 1er fichier que tu m'avais envoyé !!
Pourquoi maintenant (pb update?) ?
Ci-joint un fichier anonymisé avec ta dernière modif.

Désolé et merci d'avance pour ton aide !!