Imprimer un fichier .txt depuis un userform Excel

Résolu
Signaler
Messages postés
9
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
14 novembre 2008
-
Messages postés
9
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
14 novembre 2008
-
Bonjour à tous,

voila, j'ai tout dis dans le titre du message.L'un de vous peut il m'indiquer la sequence de code qui me permettrait de lancer l'impression d'un fichier ("C:\mes documents\mon fichier.txt") depuis un bouton de commande de Userform1 d'un classeur excel.
Je veux lancer l'impression direct, et non pas importer le contenu dans excel via open et do while puis printout range, car excel me reformatte le contenu de ce fichier, essentiellement les tabulations qui se retrouvent remplacées par des caracteres machines.

Merci pour vos solutions

2 réponses

Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
8 juin 2012
4
Bonjour,

Private Declare Function ShellExecute& _
Lib "shell32" _
Alias "ShellExecuteA" _
(ByVal hwnd&, _
ByVal lpOperation$, _
ByVal lpFile$, _
ByVal lpParameters$, _
ByVal lpDirectory$, _
ByVal nShowCmd&)

Sub Print_Txt(File$)
Const SW_HIDE& = 0&
ShellExecute 0&, "print", File, vbNullString, vbNullString, SW_HIDE
End Sub

Sub Imprim()
Print_Txt "C:\mes documents\mon fichier.txt"
End Sub

ctac
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
9
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
14 novembre 2008

merci beaucoup. Ca a marché sans aucun prob, et m'a evité des heures de recherches