Excel VBA Impression

Bonjour à tous,

Je dois, dans Excel, créer une macro VBA qui me permettra d'imprimer la feuille actuel dans mon classeur. Je début dans les macros VBA donc je ne sais pas comment le code activesheet.printout fonctionne. Mon but est de pouvoir imprimer, en cliquant sur un bouton, la feuille Excel présentement sélectionné, excepté les 3 premières lignes. J'essaie avec une macro comme celle-ci :

Code:

---

1 2 3 4 5 6

Sub Imprimer() Dim i As Integer i = 4 ActiveSheet.PrintOut(i to columns.count) End Sub

---

Bien entendu, je ne m'attendais vraiment pas a se que ma macro fonctionne, mais si quelqu'un pourait bien m'aider un peut :-)

Bonjour Otiss,

Test ce qui suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Imprimer()   Dim Plage As Range   With ActiveSheet   'défini la plage en commençant en A3 'jusqu'à la dernière cellule non vide 'de la feuille Set Plage = .Range(.Cells(3, 1), _ .Cells( _ .Cells.Find("*", .[A1], -4123, , _ 1, 2).Row, _ .Cells.Find("*", .[A1], -4123, , _ 2, 2).Column))   'défini la zone d'impression .PageSetup.PrintArea = Plage.Address   'aperçu avant impression .PrintPreview   'impression .PrintOut   End With   End Sub

---

Hervé.