Imprimer une image d'un userforme

Résolu/Fermé
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 - 19 mai 2017 à 11:55
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 - 19 mai 2017 à 17:07
Bonjour,
je suis very débutant mais je prend des bouts de programme de partout pour m'en sortir... mais...

j'ai créé un userform, où l'utilisateur clique sur un bouton pour afficher une image dynamique selon les données(cette image est enregistré dans un dossier X), je voulais par la suite a partir d'un autre bouton nommé imprimer:
je souhaite imprimer l'image qui est affichée dans mon userform.

pouvez vous m'aider SVP

A voir également:

3 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 mai 2017 à 14:33
Bonjour,

Le plus simple est d'ouvrir l'image dans la visionneuse de Windows et de l'imprimer comme ceci:

ThisWorkbook.FollowHyperlink "C:\chemin de l'image.jpg"

0
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 2
19 mai 2017 à 15:43
merci ça marche mais j'ai une question svp lorsque je lance le bouton il m'affiche en premier un message d'avertissement comme quoi la source n'est pas fiable alors comment je peux supprimer cette fenetre
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 19 mai 2017 à 16:38
Application.DisplayAlerts = False


ne fonctionne pas car il considere que c'est un lien hypertexte.
donc voir ce lien:

http://www.faqword.com/index.php/powerpoint/faq-ppt/environnement/637-comment-supprimer-le-message-dalerte-qui-saffiche-lorsquon-clique-sur-un-lien-hypertexte



@+ Le Pivert
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 mai 2017 à 16:39
Voici une autre manière d'ouvrir dans la visionneuse sans avoir de message:

Dim strShell As String
strShell = "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & "C:\chemin image.jpg"
Shell (strShell)




0
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 2
19 mai 2017 à 17:07
Merci beaucoup ça fonctionne tres bien
0