bonjour
pour l'instant j'ai un fichier, quand je clique sur une image, le fichier que j'ai choisi s'ouvre. Via la commande activeworkbook.hyperlink.
Exemple:
Private Sub Image1_Cliquer()
Activeworkbook.Followhyperlink ("C:\Documents\test.pdf")
End Sub
va s'afficher devant moi le fichier "test.pdf" présent dans mes documents. J'ai trouvé ce code via un tuto sur le net.
Cependant je cherche comment, via un clic sur une image, le fichier renseigné peut s'imprimer, en y renseignant le chemin d'accès par exemple.
J'ai tenté ce code (trouvé aussi sur le net) suivant mais il ne fonctionne pas, rien ne se lance sur les différentes imprimantes que j'ai en réseau :
Private Sub Image2_Cliquer()
Dim NomFichier As String
Dim x As Long
x = FindWindow("XLMAIN", Application.Caption)
NomFichier = "C:\Documents\test.pdf"
ShellExecute x, "print", NomFichier, "", "", 1
End Sub
Je dois sans doute m'y prendre très mal pour arriver à mes fins et les tutoriels trouvés sur internet ne fonctionnent pas ou n'est pas ce que je recherche.
Merci pour votre aide :)