1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub Imprimer_Projets()
'
' Imprimer_Projets_Indiv Macro
' test imp
'
If MsgBox("Etes vous sur de vouloir imprimer les fiches projets individuelles ?", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("Tableau_Eleves").Visible = True
Sheets("Tableau_Eleves").Select
ActiveSheet.Unprotect
Sheets("Tableau_Eleves").Select
ActiveSheet.Range("$A$1:$V$56").AutoFilter Field:=1, Criteria1:="<>"
For Each Nom In Range("Nom_Candidat").SpecialCells(xlCellTypeVisible)
With Worksheets("Projets_Individuels")
.Range("J2") = Nom
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End With
Next
Sheets("Tableau_Eleves").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tableau_Eleves").Visible = False
Sheets("Projets_Individuels").Select
End If
End Sub |
Partager