Comment imprimer en VBA ??????????

cs_jeromem51 Messages postés 2 Date d'inscription mardi 21 novembre 2000 Statut Membre Dernière intervention 13 juillet 2005 - 12 juil. 2005 à 10:51
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 13 juil. 2005 à 18:53
Salut,

Je cherche des infos concernant l'impression sous VBA de fichier texte ou d'une TextBox !!!!! Si il y avait une ame charitable pour me les fournir se serait super cool car la je suis bloqué ...

Merci d'avance de votre aide.
O SECOURS !!!

3 réponses

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
12 juil. 2005 à 14:55
Bonjour,

Ce n'est pas possible à ma connaissance(mais je peus me tromper), pour
imprimer un fichier, il faut d'abords l'ouvrir dans Excel et ensuite
imprimer la feuille, idem pour les TextBox, les données doivent-être
récupérées dans Ecxel.

Un autre moyen, consiste peut-être à ouvrir le bloc note par une Macro et là, imprimer un fichier.



jpleroisse
0
cs_jeromem51 Messages postés 2 Date d'inscription mardi 21 novembre 2000 Statut Membre Dernière intervention 13 juillet 2005
13 juil. 2005 à 14:05
Je veux bien essayé mais comment faire et quelles lignes de codes taper ????

Merci de ton aide mais si tu pouvais en faire plus ....
Toujours O SECOURS.....
GG.
0
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
13 juil. 2005 à 18:53
Bonjour,

1) Pour ouvrir un fichier dans Excel.



Sub ImporterFichier()

Dim r, Data

Range("A1").Select

Open "C:\Mes documents\MonFichier.txt" For Input As #1

r = 0

Do Until EOF(1)

Line Input #1, Data

ActiveCell.Offset(r, 0) = Data

r = r + 1

Loop

Close #1

End Sub



2) Copier les valeurs de 2 TextBox dans Excel(Je me suis limité à 2 , mais tu peux en mettre plus.



Private Sub CommandButton1_Click()

Dim En_Colone, En_Ligne

Range("A2").Select

En_Colone = ActiveCell.Column

En_Ligne = ActiveCell.Row + 1

While Not IsEmpty(ActiveCell.Value)

Cells(En_Ligne, En_Colone).Activate

En_Ligne = En_Ligne + 1

Wend

ActiveCell.Offset(0, 0).Range("A1").Select

ActiveCell.Value = UserForm1.TextBox1

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.Value = UserForm1.TextBox2

'Vider les TextBox pour une prochaine entrée.

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.SetFocus

End Sub



3) Ouvrir le Bloc Notes.



Option Explicit

Private Declare Function ShellExecute Lib "Shell32.dll" _

Alias "ShellExecuteA" (ByVal hwnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long



Private Sub CommandButton2_Click()

Dim FileName As String

FileName = "C:\Windows\NotePad.exe"

Call ShellExecute(0&, vbNullString, FileName, _

vbNullString, vbNullString, vbNormalFocus)

End Sub



jpleroisse



PS: si celà te convient, clique sur réponse acceptée
0