Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Bonjour à toutes et à tous;La macro ci-dessous met à zéro une ligne (ligne 1) et une colonne (C)puis sélectionne la zone à imprimer.Mais... imprime malgré tout des cellules adjacentes (en particulier lacolonne AZ, ce que je souhaite pas.Sub Impr6()' Imprimer 1 Macro' Macro enregistrée le 25.08.2007 par Pierre F.'Columns("C:C").ColumnWidth = 0Rows("1:1").RowHeight = 0Range("A2:AY856").SelectRange("AY2").ActivateRows("1:1").RowHeight = 29.25Columns("C:C").ColumnWidth = 8.14Range("C2").SelectEnd SubPourquoi ?Que faire pour qu'elle obéisse "à la lettre" aux ordres :-)En fait, pour l'instant, elle me propose un aperçu.Je sens que c'est au niveau de la ligne...ActiveWindow.SelectedSheets.PrintPreview...qu'il faut agir, mais syntaxiquement, j'ai plus que de la peine :-(.Merci de votre aide.Cordialement,Pierre F.
Bonjour à toutes et à tous; La macro ci-dessous met à zéro une ligne (ligne 1) et une colonne (C) puis sélectionne la zone à imprimer. Mais... imprime malgré tout des cellules adjacentes (en particulier la colonne AZ, ce que je souhaite pas. Sub Impr6() ' Imprimer 1 Macro ' Macro enregistrée le 25.08.2007 par Pierre F. ' Columns("C:C").ColumnWidth = 0 Rows("1:1").RowHeight = 0 Range("A2:AY856").Select Range("AY2").Activate Rows("1:1").RowHeight = 29.25 Columns("C:C").ColumnWidth = 8.14 Range("C2").Select End Sub Pourquoi ? Que faire pour qu'elle obéisse "à la lettre" aux ordres :-) En fait, pour l'instant, elle me propose un aperçu. Je sens que c'est au niveau de la ligne... ActiveWindow.SelectedSheets.PrintPreview ...qu'il faut agir, mais syntaxiquement, j'ai plus que de la peine :-(. Merci de votre aide. Cordialement, Pierre F.
bonjour Pierre,Range("A2:AY856").PrintOut Copies:=1, Collate:=Trueisabelle
bonjour Pierre, Range("A2:AY856").PrintOut Copies:=1, Collate:=True isabelle
bonjour Pierre,Range("A2:AY856").PrintOut Copies:=1, Collate:=TrueisabelleMerci;en fait c'est pas tout à fait ça (j'avais oublié une ligne dans mamacro!!) et je souhaite passer pour l'instant par l'aperçu :Sub Impr6()Columns("C:C").ColumnWidth = 0Rows("1:1").RowHeight = 0Range("A2:AY856").SelectRange("AY2").ActivateActiveWindow.SelectedSheets.PrintPreviewRows("1:1").RowHeight = 29.25Columns("C:C").ColumnWidth = 8.14Range("C2").SelectEnd SubEn essayant ton code, la macro plante sur le "Copies:=1"Cet ordre veut-il dire qu'il ne doit imprimer qu'une page?MerciPierre F.
bonjour Pierre, Range("A2:AY856").PrintOut Copies:=1, Collate:=True isabelle Merci; en fait c'est pas tout à fait ça (j'avais oublié une ligne dans ma macro!!) et je souhaite passer pour l'instant par l'aperçu : Sub Impr6() Columns("C:C").ColumnWidth = 0 Rows("1:1").RowHeight = 0 Range("A2:AY856").Select Range("AY2").Activate ActiveWindow.SelectedSheets.PrintPreview Rows("1:1").RowHeight = 29.25 Columns("C:C").ColumnWidth = 8.14 Range("C2").Select End Sub En essayant ton code, la macro plante sur le "Copies:=1" Cet ordre veut-il dire qu'il ne doit imprimer qu'une page? Merci Pierre F.
bonjour Pierre,Selection.PrintOut Copies:=1, Preview:=True, Collate:=Trueisabelle
bonjour Pierre, Selection.PrintOut Copies:=1, Preview:=True, Collate:=True isabelle