Imprimer une image d'un userforme

Résolu
NLAH Messages postés 125 Date d'inscription   Statut Membre Dernière intervention   -  
NLAH Messages postés 125 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Contributeur Dernière intervention   729
 
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   Statut Membre Dernière intervention   2
 
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   Statut Contributeur Dernière intervention   729
 
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   Statut Contributeur Dernière intervention   729
 
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   Statut Membre Dernière intervention   2
 
Merci beaucoup ça fonctionne tres bien
0