A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Jitbit macro recorder - Télécharger - Confidentialité
- Telecharger macro nblettre.xla - Forum Bureautique
2 réponses
JCB40
Messages postés
2934
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
27 novembre 2024
463
Modifié le 27 janv. 2020 à 18:06
Modifié le 27 janv. 2020 à 18:06
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
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
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