L'idée est d'imprimer tous les fichiers contenus dans le répertoire C:\bulletins
Il faudrait donc que la macro ouvre les fichiers un à un. Il faudrait aussi que ce soit bien toutes les feuilles de chaque fichier qui soit imprimé et pas seulement la feuille active.
With ActiveSheet.PageSetup
.... .Draft = True '= mode brouillon
....
.Zoom = 100
End With
End Sub
Je ne suis pas sur que cela fonctionne (à tester)
Code:
Sub Impression()
Dim F As Byte
For F = 1 To ActiveWorkbook.Sheets.Count
[COLOR="RoyalBlue"]With Sheets(F)
.PageSetup.Draft = True
.PrintOut
End With[/COLOR]
Next F
ActiveWorkbook.Close True
End Sub
Il me reste une dernière question concernant l'impression. Mais elle n'est pas directement liée à la macro décrite ici.
Cette question concerne les fichiers que la macro doit ouvrir. Ces fichiers contiennent des feuilles qui ne doivent pas s'imprimer. Est-il possible de paramétrer une feuille dans un classeur comme non-imprimable? J'ai fouillé dans tous les coins et je n'ai rien trouvé à ce sujet.