{"id":5867,"date":"2015-02-15T22:27:49","date_gmt":"2015-02-15T21:27:49","guid":{"rendered":"http:\/\/www.auditsi.eu\/?p=5867"},"modified":"2015-02-15T22:27:49","modified_gmt":"2015-02-15T21:27:49","slug":"excel-vba-automatiser-limpression-des-feuilles-de-calcul","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=5867","title":{"rendered":"Excel & VBA : automatiser l’impression des feuilles de calcul"},"content":{"rendered":"

Certaines t\u00e2ches r\u00e9p\u00e9titives gagnent \u00e0 \u00eatre automatis\u00e9es. Il en est ainsi des impressions. Il est en effet fr\u00e9quent d’avoir \u00e0 imprimer de mani\u00e8re r\u00e9currente des feuilles de travail. Sur des s\u00e9ries importantes, cette t\u00e2che se r\u00e9v\u00e8le rapidement fastidieuse. Or elle est ais\u00e9ment automatisable \u00e0 l’aide de quelques lignes de code VBA.<\/p>\n

L’instruction VBA qui permet \u00e0 Excel d’imprimer est .PrintOut<\/em>, elle s’utilise ainsi :<\/p>\n

ActiveWorkbook.Sheets(1).PrintOut\r\n<\/pre>\n
Dans cet exemple, Excel va imprimer la premi\u00e8re feuille (la plus \u00e0 gauche) du classeur en cours.<\/p>\n
Param\u00e8tres de l’instruction .PrintOut :<\/em>
\n<\/strong><\/p>\n
\n
\n\n\n\n\n\n\n\n\n\n\n\n\n
 Nom <\/span><\/th>\n Obligatoire\/Facultatif <\/span><\/th>\n Type de donn\u00e9es <\/span><\/th>\n Description <\/span><\/th>\n<\/tr>\n
 from <\/span><\/td>\n Facultatif <\/span><\/td>\n Variant<\/strong> <\/span><\/td>\n Num\u00e9ro de la page \u00e0 partir de laquelle commencer l’impression. Si cet argument n’est pas d\u00e9fini, l’impression commence au d\u00e9but. <\/span><\/td>\n<\/tr>\n
 Vers <\/span><\/td>\n Facultatif <\/span><\/td>\n Variant<\/strong> <\/span><\/td>\n Num\u00e9ro de la derni\u00e8re page \u00e0 imprimer. Si cet argument n’est pas d\u00e9fini, l’impression se termine \u00e0 la derni\u00e8re page. <\/span><\/td>\n<\/tr>\n
 Copies<\/span> <\/span><\/td>\n Facultatif <\/span><\/td>\n Variant<\/strong> <\/span><\/td>\n Nombre de copies \u00e0 imprimer. Si cet argument n’est pas d\u00e9fini, une seule copie est imprim\u00e9e. <\/span><\/td>\n<\/tr>\n
 Preview<\/span> <\/span><\/td>\n Facultatif <\/span><\/td>\n Variant<\/strong> <\/span><\/td>\n True<\/strong> pour que Microsoft Excel affiche l’aper\u00e7u avant impression avant d’imprimer l’objet. False<\/strong> (ou non d\u00e9fini) pour imprimer l’objet imm\u00e9diatement. <\/span><\/td>\n<\/tr>\n
 ActivePrinter<\/span> <\/span><\/td>\n Facultatif <\/span><\/td>\n Variant<\/strong> <\/span><\/td>\n D\u00e9finit le nom de l’imprimante active. <\/span><\/td>\n<\/tr>\n
 PrintToFile<\/span> <\/span><\/td>\n Facultatif <\/span><\/td>\n Variant<\/strong> <\/span><\/td>\n True<\/strong> pour imprimer dans un fichier. Si PrToFileName<\/span> n’est pas d\u00e9fini, Microsoft Excel invite l’utilisateur \u00e0 entrer le nom du fichier de sortie. <\/span><\/td>\n<\/tr>\n
 Collate<\/span> <\/span><\/td>\n Facultatif <\/span><\/td>\n Variant<\/strong> <\/span><\/td>\n True<\/strong> pour assembler plusieurs copies. <\/span><\/td>\n<\/tr>\n
 PrToFileName<\/span> <\/span><\/td>\n Facultatif <\/span><\/td>\n Variant<\/strong> <\/span><\/td>\n Si PrintToFile<\/span> est d\u00e9fini sur True<\/strong>, cet argument sp\u00e9cifie le nom du fichier dans lequel vous voulez imprimer. <\/span><\/td>\n<\/tr>\n
 IgnorePrintAreas<\/span> <\/span><\/td>\n Facultatif <\/span><\/td>\n Variant<\/strong> <\/span><\/td>\n True<\/strong> pour ignorer les zones d’impression et imprimer l’objet entier. <\/span><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n
Source : https:\/\/msdn.microsoft.com\/fr-fr\/library\/office\/ff838253.aspx<\/a><\/em><\/h6>\n
A titre d’illustration, voici un programme qui n’imprime que les feuilles de calcul du classeur en cours qui r\u00e9pondent \u00e0 un crit\u00e8re d\u00e9termin\u00e9. Petit raffinement compl\u00e9mentaire, ce programme change la couleur des onglets<\/a> imprim\u00e9s pour les identifier visuellement.<\/p>\n
Sub Traite_OngletsNonVides()\r\n    Dim i As Integer\r\n    Const CelluleATester = \"F28\"\r\n\r\n    With ActiveWorkbook\r\n        For i = 1 To .Sheets.Count - 1\r\n            With .Sheets(i)\r\n                If .Range(CelluleATester).Value <> 0 Then\r\n                    With .Tab\r\n                        .Color = 5296274\r\n                        .TintAndShade = 0\r\n                    End With\r\n                    .PrintOut Copies:=2\r\n                Else:\r\n                    With .Tab\r\n                        .ThemeColor = xlThemeColorAccent6\r\n                        .TintAndShade = 0.799981688894314\r\n                    End With\r\n                End If\r\n            End With\r\n        Next i\r\n    End With\r\nEnd Sub<\/pre>\n
Pour r\u00e9sumer, le programme passe en revue toutes les feuilles de calcul du classeur en cours (ActiveWorkbook<\/em>) \u00e0 l’aide de la boucle compteur<\/a> For… To… Next<\/em> (sauf la derni\u00e8re, d’o\u00f9 le -1<\/em>) : si le contenu de la cellule F28 (constante CelluleATester<\/em>) est diff\u00e9rent de 0<\/em> (z\u00e9ro), l’onglet est color\u00e9 en vert et la feuille est imprim\u00e9e (.PrintOut<\/em>) en deux exemplaires (Copie:=2<\/em>). Ceci fait, le programme passe \u00e0 la feuille suivante (Next<\/em>).<\/p>\n
Il ne reste plus qu’\u00e0 sauvegarder<\/a> le classeur et \u00e0 affecter la macro \u00e0 un bouton de commande<\/a>.<\/p>\n
Approfondir le sujet : Programmer en VBA<\/a> \/ Initiation au langage Basic<\/a> \/ Cr\u00e9ez votre premier programme VBA avec l’enregistreur de macros<\/a><\/p>\n
\"Share<\/a>