Notepade

Bonjour a tous

Dim fichier As String
fichier = Dir(ActiveWorkbook.Path & "\Test.txt")
Shell "notepad.exe /P" & ActiveWorkbook.Path & "\" & Test.txt, 1
End Sub

Voila ce code sert a imprimer des fichiers texte -
mon probleme est de pouvoir choisir l'imprimante car actuellement il imprime sur l'imprimante par défaut


Merci de votre aide
Franck