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

[Jean-Philippe André]

Bonjour,

pour nous permettre d'être moins mêlés, pourrais tu nous dire ici si :
tu scannes plusieurs documents qui doivent finir
-dans une seule feuille/plusieurs images
ou
- dans plusieurs feuilles/une seule image par feuille ?

[thespeedy20]

Bonsoir Jean-Philippe André,

La réponse à votre question, c'est plusieurs feuilles/une seule image par feuille....

Merci

[Jean-Philippe André]

Ok,

auquel cas il te faut faire un ajout de feuille dans ton classeur avant de copier le résultat.

je n'ai pas vérifié la validité de ton code de copie, mais en admettant qu'il tourne, le bon code serait de cet acabit :

Code :

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

1
2
3
4
5
'feuille de destination
Dim wsh as Worksheet
Set wsh = ThisWorkbook.Worksheets.Add()
    wsh.Shapes.AddPicture _
      strDateiname, False, True, 0, 0, -1, -1

[thespeedy20]

re,

merci beaucoup pour votre solution, je dois insérer ce bout de code ou exactement....

je pourrais aussi avoir l'autre solution d'avoir plusieurs images/feuilles

Je vous remercie vivement pour votre aide

OLi

[Jean-Philippe André]

Mon code s'insererai en lieu et place de

Code :

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

1
2
3
'feuille de destination
    Sheets("Feuil1").Shapes.AddPicture _
      strDateiname, False, True, ActiveCell.Left, ActiveCell.Top, -1, -1