A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
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
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