Bonjour le forum !
J'ai un problème avec la fonction PrintOut que je ne comprends pas...
Et je n'aime pas ne pas comprendre !
Voici le code que j'utilise
La macro bug sur fs.PrintOut ... Savez-vous me dire pourquoi ?
Merci d'avance
++
J'ai un problème avec la fonction PrintOut que je ne comprends pas...
Et je n'aime pas ne pas comprendre !
Voici le code que j'utilise
VB:
Sub Bouton1_Cliquer()
'impression
Application.Calculation = xlManual
Dim nb_annexe, nb_rapport, i As Integer
nb_annexe = Worksheets("Accueil").Cells(1, 9)
nb_rapport = Worksheets("Accueil").Cells(7, 2)
Worksheets("Page_garde").PrintOut
For i = 1 To nb_rapport
rapport = "Rapport" & i
Worksheets(rapport).PrintOut
Next i
For Each fs In ThisWorkbook.Worksheets
If fs.Name <> "Accueil" And fs.Name <> "Page_garde" And fs.Name <> "Annexe" And fs.Name <> "Data" And Left(fs.Name, 3) <> "Rap" Then
fs.PrintOut
End If
Next fs
...
End Sub
La macro bug sur fs.PrintOut ... Savez-vous me dire pourquoi ?
Merci d'avance
++