Re : enchainer automatiquement l'impression
Je n'est pas de problème d'impression mais juste pouvoir enchainer automatiquement l'impression.
ma listbox contient plusieurs ligne et chaque ligne doivent être imprimer dans un fichier word. ce fichier est toujour le même je modifie uniquement certain Signet par les valeurs renvoyé dans des textbox de ligne sélectionné dans la listbox
comment enchainer automatiquement la sélection des lignes de la listbox les unes aprés les autres et ne pas cliquer à chaque fois sur le bouton pour lancer l'impression
ci joint copie de la macro utiliser
Merci
Private Sub CommandButton7_Click()
If ListBox3.ListIndex = -1 Then
Msg = "Il faut sélectionner un Nom."
Title = "Impression impossible"
Style = vbOKOnly + vbInformation
Reponse = MsgBox(Msg, Style, Title)
Exit Sub
End If
Me.TextBox12 = 0
For i = 9 To 11
If Me.Controls("TextBox" & i) <> "" Then
x = CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
Me.TextBox12.Value = Me.TextBox12.Value + CDbl(Replace(Me.Controls("TextBox" & i), ".", ","))
End If
Next i
EcritVersSignet
End Sub
Sub EcritVersSignet()
Dim LaLettre As String
Dim LeNom
Dim LePrenom
Dim LeMontant
Dim Wordapp As Word.Application
Dim WordDoc As Word.Document
Dim today As Date
today = Date
On Error Resume Next
Set Wordapp = CreateObject("Word.Application")
Set WordDoc = Wordapp.Documents.Open("C:\mesdoc\jean_MonDoc.doc") 'ouvre document Word
Wordapp.Visible = False
LeNom = UserForm4.TextBox1.Value
LePrenom = UserForm4.TextBox2.Value
LeMontant = CDbl(UserForm4.TextBox12.Value)
With WordDoc
.Bookmarks("Signet1").Range.Text = LeNom
.Bookmarks("Signet2").Range.Text = LePrenom
.Bookmarks("Signet3").Range.Text = "Pour l'année 2009"
.Bookmarks("Signet4").Range.Text = "MaVille, LE " & today
.Bookmarks("Signet5").Range.Text = Total
End With
Wordapp.Visible = True
WordDoc.PrintOut 'imprimer
WordDoc.Close False Wordapp.Quit
End Sub