Aide pour macro Impressions

[MacMac]

Voila Mon Probleme j'ai creer plusieur feuille avec un bouton dessus pour imprimer celle ci

mais sa me mets une erreur 1004 dessus que je click sur debodage j'ai une ligne en jaune et j'y n'y connais absolument rien dans se domaine

voila ma macro

Sub imprimante()
ActiveCell.Offset(2, -1).Range("B4:AB87").Select
ActiveSheet.PageSetup.PrintArea = "$B$4:$AB$87"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
ActiveCell.FormulaR1C1 = ""
ActiveCell.Offset(-3, -1).Range("A1").Select
End Sub

ActiveCell.Offset(2, -1).Range("B4:AB87").Select
cette partie est en jaune pourquoi cela y 'a t'il un moyen pour que le bouton fonctionne correctement
merci de vos lumiere

 

[porcinet82]

Re : Aide pour macro Impressions

Salut,

Si tu connais la plage de cellule que tu veux imprimer, remplace directement dans la ligne de code en mettant par exemple et en supposant que la plage soit B4:AB87 :
ActiveCell.Range("B4:AB87").Select

Sinon, a tester, peut etre de la manière suivante :
ActiveCell.Range("B4:AB87").Offset(2, -1).Select

@+

 

[Evelynetfrancois]

Re : Aide pour macro Impressions

bonjour

ActiveSheet.PageSetup.PrintArea = "$B$4:$AB$87"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.PageSetup.PrintArea = ""
ne suffit pas ???

E et F

 

[MacMac]

Re : Aide pour macro Impressions

Merci de Votre Aide sa ma l'aire allez pour le moment je vient de le corriger et sa a l'aire de passer encor merci de votre aide

 

[MacMac]

Re : Aide pour macro Impressions

Voila je voudrai modifier le code ci s'est possible pour que si je vis sur un autre pc et que le format de l'image n'est pas correct je voudrai ajuster la page au mieux c'est a dire supprimer les marge et ajuster la taille optimal pour mon tableau qui tienne sur toute la feuille a l'impression la taille quoi merci de votre aide