imprimer un fichier .txt depuis un userform ExcelRésolu

Question

Bonjour &#224; 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&#233;es par des caracteres machines.

Merci pour vos solutions

CTAC · Accepted Answer

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

laurent3857 · Answer

merci beaucoup. Ca a march&#233; sans aucun prob, et m'a evit&#233; des heures de recherches

Imprimer un fichier .txt depuis un userform Excel

2 réponses

Discussions similaires