Salut a tous
j'ai ce code qui imprime seulement le nom de fichier que je le donne
Code vbscript : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Option Explicit
'On Error Resume Next

Dim objShell, objFolder, objFile

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("D:\")
Set objFile = objFolder.ParseName("fichier.htm")
objFile.InvokeVerb("Print")

Je veux qu'il imprime les fichiers par extention
par exemple tous les fichiers (.doc) ou (.htm)
merci d'avance