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
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
A voir également:
- Comment imprimer en VBA ??????????
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Byval vba - Conseils pratiques -Visual Basic / VB.NET
- Commentaire en vba ✓ - Forum ASP / ASP.NET
- Aide vba - Conseils pratiques -Visual Basic / VB.NET
- Set vba - Forum Visual Basic
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
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
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
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
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.
Merci de ton aide mais si tu pouvais en faire plus ....
Toujours O SECOURS.....
GG.
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
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
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
