Discussion :

[thespeedy20]

Bonjour,

j'ai trouvé une macro qui me permet de scanner une feuille, et de l'ajouter à une feuille excel...si je mets plusieurs feuilles dans le scanner, je n'ai toujours qu'une feuille à l'écran.....

Pouvez-vous me donner un coup de main....

Merci d'avance

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Private Declare PtrSafe Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
'Set a reference to Microsoft Windows Image Acquisition Library V 2.0
 
Private Function TempPath() As String
  Const MaxPathLen = 256 ' Max length of the path, just as big as possible
 
  Dim FolderName As String ' Name of the folder
  Dim ReturnVar As Long ' Return Value
 
  FolderName = String(MaxPathLen, 0)
  ReturnVar = GetTempPath(MaxPathLen, FolderName)
 
  If ReturnVar <> 0 Then
    TempPath = Left(FolderName, InStr(FolderName, Chr(0)) - 1)
  Else
    TempPath = vbNullString
  End If
End Function
 
Sub Scan()
  Dim objCommonDialog As WIA.CommonDialog
  Dim objImage As WIA.ImageFile
  Dim strDateiname As String
  ' instantiate Scan WIA objects
  Sheets("Feuil1").Cells(1, 1).Activate
  Set objCommonDialog = New WIA.CommonDialog
  Set objImage = objCommonDialog.ShowAcquireImage
  strDateiname = Environ$("TEMP") & "\Scan.jpg" ' set temporary file
  If Not objImage Is Nothing Then
    If Dir(strDateiname) <> "" Then Kill strDateiname
    objImage.SaveFile strDateiname 'save into temp file
    DoEvents
    'feuille de destination
    Sheets("Feuil1").Shapes.AddPicture _
      strDateiname, False, True, ActiveCell.Left, ActiveCell.Top, -1, -1
 
  End If
  Call Image
End Sub