Numériser à partir d'excel

Bonjour,

Voici la description de mon besoin.

Un utilisateur travail sur une base de donnée excel 2003 qui contient plusieurs milliers d'enregistrements. Sur chaque enregistrement, il doit faire des modifications et numériser une images au format JPG dont le nom de fichiers doit correspondre au contenu de d'un champs de l'enregistrement en cours.

L'important est de pouvoir automatiser de A à Z. On clique sur un bouton dans la barre d'outil, cela numerise et enregistre l'image au format jpg sur le disque dur (sans intervention humaine pour saisir le nom de fichier)

Une macro serait l'ideal mais malgrés toute mes recherches, je ne trouve rien qui puisse m'aider.
Les morceaux de codes que je trouve ne fonctionnent que sous VB6 et non VBA, la solution proposée ne marche pas avec du JPG , etc....

Si quelqu'un pouvait me donner un autre endroit ou chercher, des informations, ou mieux encore le code VBA dont j'ai besoin il me rendrait un fier service.

Dans tous les cas, merci à tous pour la richesse de ce forum.

Cordialement.

Il doit y avoir un moyen en passant par VBA Excel.
Il existe un moyen d'enregistrer une image placée dans un Chart vidé de sa substance (gif ou jpg) Je crois me souvenir que c'est Cafeine qui avait proposé quelque chose comme ça.
Je sais que ça fonctionne pour l'avoir testé.
Malheureusement, si dans Word la commande enregistrée par macro relance bien le scanner, le code enregistré dans Excel ne relance pas le scan.
Et ça devient tout de suite plus compliqué.
Il faut scanner sous word, Dans Excel insérer un graphique vide, couper l'image se trouvant dans Word et la coller dans le graphe.

Ce qui fonctionne sous word, lancement du scan de l'image et insertion dans le doc

Code:

---

1 2 3 4

Set IMPE = Selection.InlineShapes.AddOLEObject(ClassType:="MSPhotoEdScan.3", FileName _ :=NomFich, LinkToFile:=False, DisplayAsIcon:=False) DoEvents Set MPE = Nothing

---

Nécessite de placer le scanner en mode Auto lors de la première numérisation.
On doit pouvoir facilement lancer ce code sous Word depuis Excel (...?! enfin, je suppose et y'a pas de raison :lol: )

Ce qui fonctionne sous Excel, copie de l'image (vierge dans Excel) dans le chart et enregistrement en format Gif

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub ScanAuto() Dim NomFich Dim FL1 As Worksheet Dim Imag Set FL1 = Worksheets("Feuil1") FL1.Select Range("C16").Select   'l'image issue de cetteligne de code reste vierge, mais elle est crée FL1.OLEObjects.Add(ClassType:="MSPhotoEdScan.3").Activate Set Imag = FL1.Shapes(FL1.Shapes.Count) Imag.Cut ActiveSheet.ChartObjects("Graphique 2").Activate ActiveChart.ChartArea.Select ActiveChart.Paste Selection.ShapeRange.IncrementLeft 59.26 Selection.ShapeRange.IncrementTop 408.74 NomFich = "D:\xls\LeGraph.gif" FL1.Shapes(FL1.Shapes.Count).Select ActiveChart.Export NomFich, "GIF" End Sub

---

Si tu es partant...
S'il y a mieux, n'hésite pas ;)

Edit
Testé sous jpg, ok.

PS - Bienvenue sur le forum :mouarf:

Merci beaucoup pour ta réponse.

Malheureusement la solution de passer par word ne me convient guère. Cependant il y a des choses interressantes dans les morceaux de codes que tu m'a fourni. Je ne manquerai pas de vous dire si je trouve une meilleure solution.

Si quelqu'un à une autre methode/idée, je suis preneur...

Encore merci et longue vie a ce forum ;)

Si tu réusssis à faire conctionner cette ligne,

Citation:

---

FL1.OLEObjects.Add(ClassType:="MSPhotoEdScan.3").Activate

---

tout peut être réalisé dous Excel.
Je ne comprends pas pourquoi le code récupéré sous Word ne fonctionne pas sous Excel.
Je tâcherai de jeter un oeil.
A+