imprimer des images .jpg en vba

[albert]

bonjour à tous et à toutes, forumiens, forumiennes,

j’ai 300 images en .jpg dans un dossier, je voudrais demander à une imprimante de les imprimer de 1 à 299, recto-verso et de plus, chaque image a un nom différent. (avec une impression manuelle, j’en ai pour un moment)


Ma question : est-il possible d’imprimer en boucle ces images avec un code vba ??? (et avec quel code ? )

Merci d’avance
albert

 

[albert]

J’ai trouvé !

un code qui imprime le recto.
Si quelqu’un a une idée pour faire recto-verso, je suis preneur.
Merci d’avance

Sub IMPRIME_TOUT()
'
Dim fso, path, fichier, fichiers
path = 'D:\\classement Test'
Set fso = CreateObject('Scripting.FileSystemObject')
Set dossier = fso.GetFolder(path)
Set fichiers = dossier.Files

For Each fichier In fichiers
Shell ('C:\\Program Files\\Fichiers communs\\Microsoft Shared\\PhotoEd\\PHOTOED.EXE /p ' & fichier.shortpath)

'MsgBox 'shortPath=' & fichier.shortpath & vbCrLf & 'Path=' & fichier.path
'MsgBox 'shortName=' & fichier.ShortName & vbCrLf & 'Name=' & fichier.Name
Next
Set fso = Nothing
Set dossier = Nothing
Set fichiers = Nothing

End Sub

http://www.vbfrance.com/infomsg_IMPRIMER-TOUTES-IMAGES-DOSSIER_742113.aspx

 

[fredl]

Bonjour à tous,

Suite à recherche infructueuse sur le forum,
je me permets de faire remonter ce topics car je souhaiterai faire la même chose(imprimer une image), mais à partir du logiciel PHOTOS de Windows 10.
l'un d'entre vous saurait comment réécrire l'instruction ci dessous :

"Shell ('C:\\Program Files\\Fichiers communs\\Microsoft Shared\\PhotoEd\\PHOTOED.EXE /p ' & fichier.shortpath) "

pour que cela fonctionne?

Merci d'avance pour vos lumières.
Cordialement.
Frédéric

 

[patricktoulon]

re
bonjour
et pourquoi voudrais tu passer par un logiciel photo (quelqu'il soit)?
ca te servirait a quoi?
imprime ton image directement

Function ImprimerFichier(ByVal Fichier As String)
    CreateObject("Shell.Application").Namespace(0).ParseName(Fichier).InvokeVerb ("Print")
End Function

Sub test()
    Dim Fichier$
    Fichier = "C:\Users\Public\Pictures\Sample Pictures\aaaa.jpg"
    ImprimerFichier Fichier
End Sub

si tu cherche a manipuler la commande impression d'un logiciel quelconque de photo
c'est piloter le logiciel que tu cherche et là c'est une autre paires de manches

 

[soan]

salut patrick, fredl,

et un selfie ? fredl peut faire un selfie du logiciel PHOTOS de Windows 10 ?

soan

 

[fredl]

Bonjour patrick et Soan,
Merci beaucoup patrick pour ta proposition que je viens de tester.
Chapeau bas! : Top top et encore top!!!!!!!!!!!!!!!!!!!!!
Vous êtes des chefs!

Frédéric