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