Impression automatique
Bonjour, débutant en VBA je dois faire un fichier pour imprimer des documents automatiquement. A partir d'une liste de documents, selon si il doit être imprimer, en fonction de la semaine.
A l'ouverture du fichier je dois choisir la semaine, cliquer sur le bouton impression et la liste de documents doit s'imprimer.
voici le code que j'ai pour le module:
Public Sem As Integer
Sub Imprime_Feuilles()
' Macro Imprime_Feuilles>
Dim vararray() As String
Dim csname As Integer, c As Integer
Dim countarr As Integer, r As Integer
Dim sname As Worksheet
'emplacement et variables conteur
csname = Range("A2").Column
c = Range("Sem").Column
Set sname = ActiveSheet
r = Range("Sem").Row
countarr = 0
'boucle liste des feuilles
While sname.Cells(r, csname) <> ""
'add to array if flag is on
If sname.Cells(r, c) = 1 Then
ReDim Preserve vararray(countarr)
vararray(countarr) = sname.Cells(r, csname).Value
countarr = countarr + 1
End If
r = r + 1
Wend
Sheets(vararray).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
sname.Activate
End Sub
Voici le code de mon userform:
Private Sub CheckBox1_Click()
Range("B2") = Sem
End Sub
Private Sub CheckBox2_Click()
Range("C2") = Sem
End Sub
Private Sub CheckBox3_Click()
Range("D2") = Sem
End Sub
Private Sub CommandButton1_Click()
Imprime_Feuilles
Unload UserForm1
End Sub
merci d'avance de vôtre aide.