Importer des documents via un scannerRésolu

Question

Bonjour à tous,


Donc voilà, j'attaque la dernière partie de mon projet, qui ce divisera en plusieurs étapes... Je vais donc commencer par la première :

Sur un USF, j'ai un TreeView et un bouton "importer des rapports".

Le TreeView servirait à afficher le contenu d'un dossier "Rapport signés" situer dans /mes documents/POINTAGES que ce soit Win XP ou supérieur. 

Le bouton "importer des rapports" (qui est le but de ce post) : servirait à numériser des rapports en choisissant le périphérique et en les stockant automatiquement de le dossier "Rapport signés".

Qui apporte cette question : Comment fait on ?


Le problème est que j'ai fais des recherches sur le net et je n'ai trouvé que ce liens http://codes-sources.commentcamarche.net/source/462-peripheriques-twain-scaner-webcam , mais ne comprend pas trop son fonctionnement.

Si quelqu'un aurais des solutions à m'apporter, sachant que je ne suis pas encore très fort dans le VBA.
 
--

cs_Le Pivert · Answer

Bonjour,

Je connais une manière de scanner des documents, en utilisant la Library WIA. Pour cela il faut mettre cette dll dans:  C:\Windows\System32 et ensuite l'enregistrer.
Voici un programme qui fait cela avec toutes les explications nécessaires:
http://codes-sources.commentcamarche.net/source/48234-boite-couleurs


Après avoir suivi toutes les instructions voici le code. Il faut que le scanner soit allumé:

'outils-Reference Cochez Microsoft Windows Image Acquisition Library'http://silkyroad.developpez.com/VBA/WindowsImageAcquisition/#LIV-C'telecharger ce programme pour avoir la dll WIA http://codes-sources.commentcamarche.net/source/48234-boite-couleurs'tout la marche à suivre est expliquéOption ExplicitDim Img As ImageFile'numérisationPrivate Sub CommandButton1_Click()Dim wiaImg As New WIA.ImageFileDim wiaDialog As New WIA.CommonDialogDim wiaScanner As WIA.DeviceSet Img = wiaDialog.ShowAcquireImage    If Not Img Is Nothing Then        Set Image1.Picture = Img.FileData.Picture    End IfEnd Sub'enrgistrementPrivate Sub CommandButton2_Click()Img.SaveFile "C:\Users\Daniel\Documents\Scanner.JPG"End SubPrivate Sub UserForm_Initialize()Image1.PictureSizeMode = fmPictureSizeModeZoomEnd Sub

Bon courage

cs_Le Pivert · Answer

Et oui c'est cela, c'est pour ça que j'ai voulu t'avertir. Et en plus il faut enregistrer la dll. Bon si il n'y a qu'une dizaine de machines c'est assez rapide . Tu mets ta dll dans C:\Windows\System32, ça prend 10 s. Ensuite pour l'enregistrer avec mon programme 10 s encore (dll et programme sur une clé USB). Pour la référence elle est coché avec ton classeur. Cela tu ne le fais qu'une fois. Mais j'ai changé de pc et pris Windows8, je ne me rappelle pas avoir eu à installer cette dll. Mais programmes fonctionnent. Vérifie sur ta machine si tu ne l'as pas. Bon je ne connais que cette façon. Tu a les site à consulter pour te faire une idée.

cs_Le Pivert · Answer

J'ai raccourci le code qui fonctionne très bien:

'outils-Reference Cochez Microsoft Windows Image Acquisition Library'http://silkyroad.developpez.com/VBA/WindowsImageAcquisition/#LIV-C'telecharger ce programme pour avoir la dll WIA http://codes-sources.commentcamarche.net/source/48234-boite-couleurs'tout la marche à suivre est expliquéOption ExplicitDim wiaImg As New WIA.ImageFileDim wiaDialog As New WIA.CommonDialog'numérisationPrivate Sub CommandButton1_Click()Set wiaImg = wiaDialog.ShowAcquireImage    If Not wiaImg Is Nothing Then        Set Image1.Picture = wiaImg.FileData.Picture    End IfEnd Sub'enregistrementPrivate Sub CommandButton2_Click()wiaImg.SaveFile "C:\Users\Daniel\Documents\essai.JPG"End SubPrivate Sub UserForm_Initialize()Image1.PictureSizeMode = fmPictureSizeModeZoomEnd Sub

cs_Le Pivert · Answer

Non j'ai parlé du contrôle image, pas de la dll. D'ailleurs j'ai trouvé ce code sur le site que je t'ai indiqué: 

http://silkyroad.developpez.com/VBA/WindowsImageAcquisition/#LIV-C

Pour ce qui est de la feuille créée à l'ouverture il faut regarder dans ThisWorkBook ce que tu as mis dans l'évenement: Private Sub Workbook_Open()

cs_Le Pivert · Answer

J'ai trouvé un moyen simple. Lancer le scanner. Une boite de numérisation s'ouvre avec aperçu d'où tu choisis le nom et la destination de ta numérisation. Si le scanner n'est pas ouvert un message t'averti. Tout cela avec 1 seul ligne de code, pas de dll ni de contrôle image. Pourquoi faire compliqué quand on peut faire simple.

Shell "wiaacmgr.exe", vbNormalFocus 

Adaptable sur toutes les machines, enfin je l'espère?

Bon WE

cco86260 · Answer

Bonjour Daniel ;)

Tout d'abord, une bonne année ainsi que bonheur personnel et réussite professionnel.

J'ai été absent et je n'ai donc pas pu continuer mon projet, mais fini les vacances, je me remet au boulot ;).

Donc, la ligne de code que tu m'as fournie fonctionne à merveille, je ne l'ai pas encore testé sur d'autre versions de windows, mais ça ne devrait pas pauser de problème étant donné qu'en premier il lance une recherche de driver. donc c'est tout simplement parfait, je passe donc à l'étape 2, qui fera l'objet d'un nouveau poste...

On tient le bon bout... ;)

Christian
 
--

mcoppa · Answer

Bonjour,
Je tombe sur ces questions d'insérer un scan en VBA. Il y a une solution très simple :

Sub Scan()
On Error Resume Next
WordBasic.InsertImagerScan
End Sub

Ensuite, il suffit d'appeler la macro ou de l'insérer dans les menus du ruban (personnaliser le ruban).

cco86260 · Answer

Bonjour Daniel,


Après réflexion, le code fonctionne sauf que je me suis aperçu d'une chose... on ne peut pas importer en pdf... le hic est que les jpeg sont lourd à envoyer, surtout s'il y en à 15...

Donc Plan A : garder ce code, et créer un USF proposant de convertir les jpeg en PDF... c'est possible à priori d'après certain forum

Et Plan B : ba il feront au moins ça à la mano... mais ça sort de ce que j'avais prévu... :(

Merci

Christian
 
--

cs_Le Pivert · Answer

Je viens de faire l'essai. Par code pour ouvrir la boite de dialogue du scanner tu n'as que l'option d'image. Par contre si tu ouvres ton scanner avec l'exe, tu as l'option PDF.

Pour convertir des jpeg en PDF rien de plus simple, tu te sers de ton programme après avoir au préalable inséré ton jpeg dans une feuille de ton classeur. Pour insérer, sers-toi de l'enregistreur de macro. Tu te mets sur ta feuille dans la cellule A1, tu ouvres l'enregistreur et tu fais insérer image. Tu as ta macro. Ensuite il te suffit de la convertir en jpeg.

GrosBill · Answer

Je suis confronté à ce probléme de scanérisation depuis près de trois semaines.
ta dernière ligne de code est excellente mais il faudrait trouvé le moyen de passer le nom et le chemin des scan par variable à l'appel du programme comme j'avais trouvé avec CmdTwain.

Voici mon code :

Private Sub CommandButton1_Click()                            'Apui sur Capture Scan
Dim ProgScan                                                  'Création de la variable ProgScan (qui contiendra le répertoire le nom du programe de Scannage et les options)
Dim newHour, newMinute, newSecond, waitTime As Date           'Création des variables de tempo
    NomRep = Chemin & "\Scan\"                                'Chargement dela variable NomRep
                                                              'Chargement dela variable ProgScan avec toutes les obtions qui vont bien
    ProgScan = "C:\Program Files\GssEziSoft\CmdTwain\CmdTwain.exe /PAPER=A4 /DPI=200 /JPG25"
                                                              'Chargement dela variable NomScan avec Nom Prénom Code et .jpg
    NomScan = ComboBox1 & " " & ComboBox2 & " " & TextBox1 & ".jpg"
                                                              'Lance le programe de Scannérisation (Commande pour appeler un autre programe depuis exel:Call Shell
    Call Shell(ProgScan & " " & Chr(34) & NomRep & NomScan & Chr(34))
                             'Temporisation pour le temps de création de l'image                                    'Initialisation de newHour
    newMinute = Minute(Now())                                 'Initialisation de newMinute
    newSecond = Second(Now()) + 20                            'Initialisation de newSecond avec une tempo de x secondes
    waitTime = TimeSerial(newHour, newMinute, newSecond)      'Initialisation de waitTime
    Application.Wait waitTime                                 'Pose d'atente de création du Scan
    Image1.Picture = LoadPicture(NomRep & NomScan)            'Charge l'image
End Sub                                                       'Fin de Procédure



pour exécuter ce programme il faut télécharger et installer CmdTwain.exe


J'ai passé mon dimanche à essayer toutes sorte de manière de passer des variable à un programme mais en vain.

il faudrait une aide pour votre programme  wiaacmgr.exe ou peut-on trouver de la doc sur ce programme

cs_Le Pivert · Answer

GrosBill, pour ce que tu cherches à faire, il faut faire une recherche de fichier qui te retourne le chemin complet. J'ai la réponse mais le code est conséquent. Si cela t'intéresse je te le communiquerais.

cco86260 · Answer

Salut Daniel,
Bonjour GrosBill,

Waow.... tout ça... :)

Je commençais à désespérer sur la faisabilité. Mais une idée nouvelle m'est venu... 

C'était, dans le même principe de fonctionnement du projet, faire carrément un application VB.NET qui agirait sur le classeur excel...

Comme ça plus de problème de scan ou autre...

9a va peut être être plus compliqué... je ne sais pas... mais leS code VBA que tu m'as fourni Daniel ne sont pas perdu, il faudra juste que j'adapte...

Comment est cette idée farfelu :)

En faite je suis tellement débordé de travail que je n'ai que ça à faire... mdr

Bonne journée

Christian
 
--

ucfoutu · Answer

Bonjour,
" (PS : avec quel éditeur tu envoie tes morceaux de programmes mon code est totalement dégueulasse par rapport au tien ! ) "
En sélectionnant ton code et en cliquant ensuite sur l'icône "code" (4ème dans le bandeau au-dessus de la zone d'édition, mà où tu réponds).
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

cs_Le Pivert · Answer

GrosBill, en la matière je ne sais pas. Poste une nouvelle demande:

"passer en paramètre le chemin et le nom du fichier à l'exe wiaacmgr.exe" 

Christian pour faire ce que tu dis il faut connaître le langage VB.NET. Ensuite je ne vois pas pourquoi cela te supprimerait le scan. C'est toi qui l'a demandé sur ce post!

GrosBill · Answer

Merci ucfoutu


Private Sub CommandButton1_Click() 'Apui sur Capture Scan
Dim ProgScan 'Création de la variable ProgScan (qui contiendra le répertoire le nom du programe de Scannage et les options)
Dim newHour, newMinute, newSecond, waitTime As Date 'Création des variables de tempo
NomRep = Chemin & "\Scan\" 'Chargement dela variable NomRep
'Chargement dela variable ProgScan avec toutes les obtions qui vont bien
ProgScan = "C:\Program Files\GssEziSoft\CmdTwain\CmdTwain.exe /PAPER=A4 /DPI=200 /JPG25"
'Chargement dela variable NomScan avec Nom Prénom Code et .jpg
NomScan = ComboBox1 & " " & ComboBox2 & " " & TextBox1 & ".jpg"
'Lance le programe de Scannérisation (Commande pour appeler un autre programe depuis exel:Call Shell
Call Shell(ProgScan & " " & Chr(34) & NomRep & NomScan & Chr(34))
'Temporisation pour le temps de création de l'image 
newMinute = Minute(Now())    'Initialisation de newMinute                             
newSecond = Second(Now()) + 20                            'Initialisation de newSecond avec une tempo de x secondes
waitTime = TimeSerial(newHour, newMinute, newSecond)      'Initialisation de waitTime
Application.Wait waitTime                                 'Pose d'atente de création du Scan
Image1.Picture = LoadPicture(NomRep & NomScan)            'Charge l'image
End Sub                                                       'Fin de Procédure


J'ai fait un petit programme exemple
Un userform
3 ComboBOX (Nom, Prénom, Ville) 
4 textBox (code, Tel 1,Tel 2, Tel3)
5 CommandButton (Capture scan,Modifie Fichier,Init Scan,Valider,Quitter)
1 Image

Si quelqu'un le veut dite moi comment vous le faire parvenir.

cs_Le Pivert · Answer

Ce que tu nous montres là n'est valable que pour toi. Le chemin de l'exe du scanner est en dur! Ce qu'il faut faire c'est trouver le chemin chez l'utilisateur et ouvrir l'exe pour avoir la boite  de dialogue de numérisation du scanner. C'est pour cela qu'il faut faire une recherche du fichier, à la 1ère utilisation seulement car on va garder le chemin sur une feuille Excel. Bon courage!

cco86260 · Answer

Daniel,

Bon je reste sur mon projet excel VBA finalement... c'est tendu sous VB.NET... mdr, mais c'est bonne école, je vais m'y intéresser pour autre chose.

J'ai lu les réponses mise sur ce poste... mais ça y est... je suis perdu...

Euh.... encore....perdu... ;)

une petite explication ? vite fait :) 
--

cs_Le Pivert · Answer

Si tu veux avoir la boite de dialogue de numérisation avec les options PDF, il faut que tu ouvres l'exe de ton scanner! Pour cela il faut que tu connaisses le nom de cette exe pour la chercher! La recherche de l'exe ne se fait qu'à la 1ère utilisation Ensuite voici le code à mettre dans un module: Option Explicit'recherche de fichiers avec les fonctions API (rapide, récursif)'code à étudier :-)'code : Randy Birch/RB Smissaert (mpep)'http://www.mvps.org/vbnet/index.html?code/fileapi/recursivefolders_minimal.htmPrivate Const vbDot = 46Private Const MAX_PATH = 260Private Const INVALID_HANDLE_VALUE = -1Private Const vbBackslash = "\"Private Const ALL_FILES = "*.*"Private fp As FILE_PARAMS 'holds search parametersPrivate List1(1000, 0) As StringPrivate i As LongPrivate Type FILETIME dwLowDateTime As Long dwHighDateTime As LongEnd TypePrivate Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14End TypePrivate Type FILE_PARAMS bRecurse As Boolean bFindOrExclude As Long '1=find matching, 0=exclude matching nCount As Long nSearched As Long sFileNameExt As String sFileRoot As StringEnd TypePrivate Declare Function FindFirstFile Lib "kernel32" _ Alias "FindFirstFileA" _ (ByVal lpFileName As String, _ lpFindFileData As WIN32_FIND_DATA) As LongPrivate Declare Function FindNextFile Lib "kernel32" _ Alias "FindNextFileA" _ (ByVal hFindFile As Long, _ lpFindFileData As WIN32_FIND_DATA) As LongPrivate Declare Function FindClose Lib "kernel32" _ (ByVal hFindFile As Long) As LongPrivate Declare Function lstrlen Lib "kernel32" _ Alias "lstrlenW" (ByVal lpString As Long) As LongPrivate Declare Function PathMatchSpec Lib "shlwapi" _ Alias "PathMatchSpecW" _ (ByVal pszFileParam As Long, _ ByVal pszSpec As Long) As LongSub Start() 'recherche fichier Dim hFile As Long Dim WFD As WIN32_FIND_DATA Dim FolderName As String Dim filename As String Dim n As Long Dim temps, count Dim scan As StringOn Error Resume Next Sheets("Feuil1").Select 'choix feuilleIf [A1] = "" Then scan = InputBox("Entrez le nom de l'exe du scan" & Chr(10) & " Veuillez patienter ensuite pendant la recherche", "Scanner", "HP Photosmart 5510 series.exe") temps = Timer ' Timer pour calculer la durée de la recherche FolderName = "C:\" 'RépertoireIf FolderName = "" Then Exit Sub End Iffilename = scan 'nom Fichier exe scan If filename = "" Then Exit Sub End If i = 0 Erase List1 With fp .sFileRoot = QualifyPath(FolderName) 'start path .sFileNameExt = filename 'file type(s) of interest .bRecurse = True 'True = recursive search .nCount = 0 'results .nSearched = 0 'results .bFindOrExclude = 1 '1 = find, 0 = exclude End With Call SearchForFiles(fp.sFileRoot) If i = 0 Then MsgBox filename & " non trouvé, vérifiez l'orthographe.", , " Conclusion du dossier" Else For n = 0 To i - 1 count = i 'On compte les fichiers With ActiveSheet("Feuil1") [A1] = List1(n, 0) 'on inscrit le chemin du fichier sur la feuille Excel Application.StatusBar = "Trouvé " & count & " fichier(s) " & filename & " en " & Timer - temps & " secondes." End With Next MsgBox "Trouvé " & count & " fichier(s) " & filename & " en " & Timer - temps & " secondes.", , " Conclusion du dossier" End If End IfEnd SubPrivate Sub SearchForFiles(sRoot As String) Dim WFD As WIN32_FIND_DATA Dim hFile As Long hFile = FindFirstFile(sRoot & ALL_FILES, WFD) If hFile <> INVALID_HANDLE_VALUE Then Do 'if a folder, and recurse specified, call 'method again If (WFD.dwFileAttributes And vbDirectory) Then If Asc(WFD.cFileName) <> vbDot Then If fp.bRecurse Then SearchForFiles sRoot & TrimNull(WFD.cFileName) & _ vbBackslash End If End If Else 'must be a file and not the open temp file (~$....) If MatchSpec(WFD.cFileName, fp.sFileNameExt) And Not _ Left$(WFD.cFileName, 2) = "~$" Then fp.nCount = fp.nCount + 1 List1(i, 0) = sRoot & TrimNull(WFD.cFileName) i = i + 1 End If End If Loop While FindNextFile(hFile, WFD) End If Call FindClose(hFile)End SubPrivate Function QualifyPath(sPath As String) As StringIf Right$(sPath, 1) <> vbBackslash Then QualifyPath = sPath & vbBackslash Else QualifyPath = sPath End IfEnd FunctionPrivate Function TrimNull(startstr As String) As String TrimNull = Left$(startstr, lstrlen(StrPtr(startstr)))End FunctionPrivate Function MatchSpec(sFile As String, sSpec As String) As BooleanMatchSpec = PathMatchSpec(StrPtr(sFile), StrPtr(sSpec)) = _ fp.bFindOrExcludeEnd Function j'ai mis des commentaires pour que tu puisses l'adapter Ensuite 2 boutons: Recherche et Ouvrir boite de numérisation avec ces codes: 'rechercher exe scannerPrivate Sub CommandButton1_Click()StartEnd Sub'boite de dialogue numérisation scannerPrivate Sub CommandButton2_Click()If [A1] = "" Then Exit SubShell [A1], vbNormalFocusEnd Sub Tu essaie et tu verras que c'est très simple d'utilisation. Il n'y a pas de fausse manoeuvre si ce n'est de mettre un fichier exe non valide! Bon courage

cco86260 · Answer

Bonjour Daniel,

Donc je viens de tester le code que tu m'as fourni, et nickel, ça fonctionne... ;)

Sauf qu'il ne me garde pas l'exe en mémoire dans la cellule, à chaque ouverture du classeur la cellule est vide... aie aie aie...

J'ai regardé du coté de ma macro pour la sauvegarde voir si le problème venait pas de là... et non...

Moi pas comprendre ;)

Mais c'est cool, déjà ça fonctionne...

Merci

Christian 
 
--

cs_Le Pivert · Answer

Tu dois avoir une macro qui nettoie la feuille. Ajoute une nouvelle feuille pour faire l'essai. N'oublie pas de changer dans le module le choix de la feuille:
Sheets("Feuil?").Select 'choix feuille
et de rajouter aussi dans le bouton 'boite de dialogue numérisation scanner
Sheets("Feuil?").Select 'choix feuille

cco86260 · Answer

Bonjour Daniel,

Je viens de regarder dans mon Workbook_BeforeClose (), et la seul cellule qui doit ce vider est la A111 hors la cellule utilisée pour le scan est FE630, je te met le code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)    With Sheets("MATRICE")    .Visible = True    Range("A111").ClearContents    End WithDim ws As WorksheetSheets("MATRICE").Visible = TrueWith Application    .DisplayAlerts = False    .ScreenUpdating = False       For Each ws In Worksheets        If ws.name <> "MATRICE" Then ws.Delete      Next ws    .DisplayAlerts = True    .ScreenUpdating = True    End With

Mais je vais faire le test sur un fichier vierge et je te tiens au jus...

Merci
 
--

cs_Le Pivert · Answer

Je viens d'essayer avec tous tes paramètres, je n'ai aucun problème! 
A part cela tu peux scanner en PDF, c'était le but?

ucfoutu · Answer

A GrosBill qui a écrit : 
"CmdTwain n'est pas un scanner mais un logiciel qui émule tout les scanners "
http://www.gssezisoft.com/main/product/cmdtwain/
on y lit 
"It should work with any scanner that meets the TWAIN standard"
et donc pas "tous les scanners " ...

Importer des documents via un scanner

23 réponses

Votre réponse

Discussions similaires