Discussion :

[Lami_Marsupi]

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.

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lami_Marsupi]

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

[ouskel'n'or]

Si tu réusssis à faire conctionner cette ligne,

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+