Menu

Imprimer une image d'un userforme [Résolu]

NLAH 125 Messages postés lundi 9 septembre 2013Date d'inscription 13 juin 2017 Dernière intervention - 19 mai 2017 à 11:55 - Dernière réponse : NLAH 125 Messages postés lundi 9 septembre 2013Date d'inscription 13 juin 2017 Dernière intervention
- 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

Afficher la suite 

5 réponses

Répondre au sujet
cs_Le Pivert 5067 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 23 avril 2018 Dernière intervention - 19 mai 2017 à 14:33
0
Utile
1
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"

NLAH 125 Messages postés lundi 9 septembre 2013Date d'inscription 13 juin 2017 Dernière intervention - 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
Commenter la réponse de cs_Le Pivert
cs_Le Pivert 5067 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 23 avril 2018 Dernière intervention - Modifié par cs_Le Pivert le 19/05/2017 à 16:38
0
Utile
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
Commenter la réponse de cs_Le Pivert
cs_Le Pivert 5067 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 23 avril 2018 Dernière intervention - 19 mai 2017 à 16:39
0
Utile
1
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)




NLAH 125 Messages postés lundi 9 septembre 2013Date d'inscription 13 juin 2017 Dernière intervention - 19 mai 2017 à 17:07
Merci beaucoup ça fonctionne tres bien
Commenter la réponse de cs_Le Pivert