Enregistrer les codes barres

Question

Actuellement je suis un apprenti dans une entrepôt de stockage et je mène un projet concernant un contrôle de rayonnage (état des rayon de stockage). Mon objectif est de pouvoir, avec à un matariel "PDA", d'enregistrer dans un tableau dans laquelle il y aura : la zone de stockage concernée par le défauts, description du défauts, le code EAN ainsi qu' une image du rack. Donc, j'ai pensée en utilisant le VBA je pourrai effectivement réaliser ce projet car j'ai déja utilisé VBA pour beaucoup d'autres projet et ça marche plutôt bien. Mon problème est que, je sais pas comment faire pour pouvoir activer la caméra lorsqu'on appui sur un bouton (nommée "Prendre un photo" par exemple) sur mon userform ainsi que pouvoir entregistrer automatiquement le code EAN de la zone lorsqu'on scan le code barre avec le PDA. Pourriez vous m'aider à ce sujet. Cordialement, Alban...

X Cellus · Accepted Answer

Note que j'aurais pu utiliser seulement le formulaire CtrlRack pour récupérer la photo prise et l'enregistrer avec toutes les autres données à remplir sur ce formulaire. L'autre formulaire me semble plus réalisé pour la vidéo. J'ai utilisé son code uniquement parce que cela permettait de faire la distinction entre les deux événements Récupérer photo et Enregistrer photo. En fait tu n'aurais besoin que dans le cas de photos que d'un seul UserForm pour gérer cela. Bonne continuation...

i20100 · Answer

Tu doit positionner le curseur dans le TextBox avant de faire le scan...

X Cellus · Answer

Je prends la discussion sur le fil. Juste une précision. Les UserForm peuvent être appelées sur le PDA?. Ou sont-ils externes à lui...

X Cellus · Answer

A nouveau,

Je me doutais un peu de la réponse mais par plus de sûreté j'ai posé la question. Un PDA est semblable à un téléphone portable mais avec d'autres fonctions spécifiques.

Par contre comme un portable lorsqu'il s'agit de prendre des photos, il les stockent dans sa mémoire. Avec un nom d'image composé chronologiquement du jour de la photo puis de l'horaire (horodatage).

J'ai pu voir dans le fichier, en 2ième feuille une liste d'emplacement. Des zones nommées habituelles de stockage qui sont indiquées ligne par ligne. Peut-être y a t-il un circuit de vérification périodique. Exemple: Le lundi, zone des lignes 3 à 9...etc...

Donc une liaison (cable ou sans fil) , PDA vers l'Ordinateur te permet de récupérer tel jour les photos correspondantes. Puis de les sauver sur le PC dans un dossier Images. Ton bouton Prendre une photo sera plus Récupérer la photo (classée selon l'horodatage) du dossier Image. Et ici une macro peut se mettre en place, ouverture dossier Images, choix de la photo, insertion dans la feuille synthèse ou autre base...

Que l'ordinateur soit présent sur la zone de stockage (portable) ou au bureau. Seul contrainte, comme le clap cinéma, prendre une

photo intermédiaire (affichette n°ligne ) pour séparer toutes les photos des zones de stockage. Ou alors noter l'heure de changement de zone. Méthode moins directe mais possible. Voir aussi avec le fabricant du PDA (site web...) s'il dispose d'un logiciel spécifique à un transfert de données pour une exploitation sous Excel.

X Cellus · Answer

A nouveau,

Oui, il me semble plus aisé de travailler donc avec le portable directement. Si cela avait été un PC de bureau, le PDA était plus indiqué.

Par contre l'affichage de l'image dans l'UserForm n'est qu'un 1ier contrôle que l'image a bien été prise, enregistrée et correctement photographiée. Sinon la photo doit être refaite.

Donc, ne figureront dans le récapitulatif que les images correctes. Les autres images incorrectes seront effacées. Il ne faut pas liée l'image automatiquement au récapitulatif.

A suivre...

X Cellus · Answer

Dans ton 1ier message tu montres l'UserForm ctrlrack avec dans la zone Image la mention conserver l'image. Or ici c'est une zone Contrôle image qui sert donc à afficher des images. La caméra webcam ou autre dispose le + souvent d'un logiciel. Mais même Windows 10 dispose dans son menu celui de la caméra. https://support.microsoft.com/fr-fr/help/17444/windows-camera-app-webcams-help Fais un clic sur chaque flèche basse pour voir les compléments. Donc pourquoi absolument passer par l'Userform pour prendre une photo alors qu'il suffit de cliquer sur le portable pour enregistrer une photo, ou une vidéo, une fois la caméra allumée. L'écran du portable affichant toujours en direct la photo. Et ensuite la récupérer dans le dossier Image ou autre dossier du portable après le clic sur le portable. Tu ajoutes à mon sens une procédure inutile. A suivre.....

X Cellus · Answer

Après modifications du code de deux contrôles dans deux Userform. Et l'utilisation d'une Webcam pour les tester. J'ai pu effectuer la manipulation de copie d'une image dans la feuille synthèse. En sélectionnant en colonne A, la ligne ou se placera l'image. Puis en cliquant ensuite sur le bouton Executer qui appelle le formulaire CtrlRack. Donc, après clic sur le portable, sur le bouton capture photo du logiciel ouvert de la Webcam allumée. J'ai cliqué sur le bouton Prendre Photo du formulaire CtrlRack afin qu'ensuite il appelle l'autre formulaire Cam et de pouvoir cliquer sur Enregistrer Photo. Pour placer la photo dans la colonne H de la feuille Synthèse. Ci-dessous les deux codes. Private Sub prphoto_Click() 'Exemple d'un chemin, disque, utilisateur, répertoire, sous-répertoire ou se loge l'image webcam RepPhoto = "C:\Users\Repertoire\Pictures\Cam\" NomPhoto = Dir(RepPhoto &amp; "*.jpg") ' pour format jpg sinon changer le format Me.Image1.Picture = LoadPicture(RepPhoto &amp; NomPhoto) Sheets("Liste").Cells(3, 7) = NomPhoto 'Colonne G (Cellule provisoire) cam.Show End Sub Private Sub CommandButton2_Click() 'Bouton Enregistrer Image. Récup de la photo. Exemple d'un chemin RepPhoto = "C:\Users\Repertoire\Pictures\Cam\" NomPhoto = Sheets("Liste").Cells(3, 7) 'Repris de la cellule provisoire Sheets("Synthèse").Activate: Lig = ActiveCell.Row ActiveSheet.Pictures.Insert(RepPhoto &amp; NomPhoto).Name = "H" &amp; Lig 'Positionnement de la photo ActiveSheet.Shapes("H" &amp; Lig).Left = Range("H" &amp; Lig).Left ActiveSheet.Shapes("H" &amp; Lig).Top = Range("H" &amp; Lig).Top 'Recadrage dimension (hauteur + Largeur) pour l'adapter à la cellule ActiveSheet.Shapes("H" &amp; Lig).LockAspectRatio = msoFalse ActiveSheet.Shapes("H" &amp; Lig).Height = Range("H" &amp; Lig).Height ActiveSheet.Shapes("H" &amp; Lig).Width = Range("H" &amp; Lig).Width ActiveSheet.Range("A" &amp; Lig).Select cam.Hide 'ctrlrack.Show Note: il est déjà ouvert, donc inutile 'Effacement de l'image de son dossier courant pour le vider Kill RepPhoto &amp; NomPhoto End Sub Bons tests, bonne continuation...