Scanner avec Excel

Salut Forum!

j'ai récupérer un code pour scanner en JPG sur Word qui fonctionne super bien.

Quand je le mets dans mon personal.xlsb, tout me semble correct, j"intègre la fonction au ruban par contre rien ne se passe.

Faut-il un peu d'adaptation pour faire fonctionner la macro sous excel?

' Scanner pour Word 2013/2016
' Auteur : Günter Born: Corrigé pour Word_fr par Bobby2Dallas Team Aaz
' Ajoute une fonction de scanner dans Word 2013/2016

Sub Scan()
'
' Appeler la macro du scanner dans Word
'
  On Error Resume Next
     Dim objCommonDialog As WIA.CommonDialog
     Dim objImage As WIA.ImageFile
     Dim strDateiname
     ' initialise les objets WIA du scanner
     Set objCommonDialog = New WIA.CommonDialog
     Set objImage = objCommonDialog.ShowAcquireImage

     ' définir un fichier temporaire
     strDateiname = Environ("temp") & "\Scan.jpg"

     If Not objImage Is Nothing Then
       Kill strDateiname 'delete old file
       ' enregistrer dans le fichier temporaire
       objImage.SaveFile strDateiname
       ' insérer dans le document
       Selection.InlineShapes.AddPicture strDateiname
       Set objImage = Nothing
     End If
     Set objCommonDialog = Nothing

   ' MsgBox strDateiname  ' test output
   End Sub

Ouais bon disons que j'ai été un peu paresseux,

après environ 18 secondes de lecture approfondie du code j'ai réalisé que c'était assez simple, toutes mes excuses du dérangement cher forum.

Toutefois, je laisse la solution:

on remplace

  Selection.InlineShapes.AddPicture strDateiname

par:

ActiveSheet.Pictures.Insert strDateiname