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

Signaler
Messages postés
2
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
13 juillet 2005
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
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

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
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
Messages postés
2
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
13 juillet 2005

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.
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
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