Macro
polo57
-
polo57 -
polo57 -
Bonjour,
Je suis à la recherche d'une macro pour créer une fonction scanner sur word 2016.
Y a-t-il une personne qui puisse m'aider ou me fournir une macro valide, car je n'y connais rien sur ce sujet.
Merci d'avance cordialement
Je suis à la recherche d'une macro pour créer une fonction scanner sur word 2016.
Y a-t-il une personne qui puisse m'aider ou me fournir une macro valide, car je n'y connais rien sur ce sujet.
Merci d'avance cordialement
Configuration: Windows / Chrome 79.0.3945.130
2 réponses
-
Bonjour
Voir ci-dessous
https://answers.microsoft.com/fr-fr/msoffice/forum/msoffice_word-msoffice_custom-mso_2016/tuto-comment-scanner-avec-office-2016-voici-la/63775998-7fa7-4ecc-9070-cbf1c6ffa4b5?tm=1512179867970
Voir également
http://www.faqword.com/index.php/word/faq-word/objets-graphiques/569#word-2013-et-ulterieur
Cordialement
-
Bonsoir,
un grand merci pour ces deux pistes. La premiere piste que je l'ai faite comme il est indiqué, mais à la ligne en dessous de :
On error Resume next
Dim objcommonDialog As WIA.CommonDialog
Il me met le message suivant : Erreur de compilation: Type défini par l’utilisateur non défini.
On Error Resume Next
Dim objCommonDialog As WIA.CommonDialog
Dim objImage As WIA.ImageFile
Dim strDateiname
Set objCommonDialog = New WIA.CommonDialog
Set objImage = objCommonDialog.ShowAcquireImage
strDateiname = Environ("temp") & "\Scan.jpg"
If Not objImage Is Nothing Then
Kill strDateiname
objImage.SaveFile strDateiname
Selection.InlineShapes.AddPicture strDateiname
Set objImage = Nothing
End If
Set objCommonDialog = Nothing
Je vais faire un essai avec on note comme sur la deuxième proposition.
Merci
