Nombre d'impression
Résolu
Bonjour,
J'ai fait cette macro en partie avec l'enregistreur de macros et ce que j'ai glané sur le net :
Sub Imprimer()
Application.ScreenUpdating = False
Range("C:C,G:G").Select
ActiveSheet.PageSetup.PrintArea = "$A:$F"
Selection.EntireColumn.Hidden = True
Sheets("Feuil2").PrintOut Copies:=Sheets("Feuil1").Range("L5")
Application.ScreenUpdating = True
' Call Afficher
End Sub
Mais ça ne fonctionne pas.
Je vous remercie de bien vouloir me corriger.
J'ai fait cette macro en partie avec l'enregistreur de macros et ce que j'ai glané sur le net :
Sub Imprimer()
Application.ScreenUpdating = False
Range("C:C,G:G").Select
ActiveSheet.PageSetup.PrintArea = "$A:$F"
Selection.EntireColumn.Hidden = True
Sheets("Feuil2").PrintOut Copies:=Sheets("Feuil1").Range("L5")
Application.ScreenUpdating = True
' Call Afficher
End Sub
Mais ça ne fonctionne pas.
Je vous remercie de bien vouloir me corriger.
5 réponses
-
Contributeurbonjour
tu es sur quelle feuille quand tu lances la macro
Mais ça ne fonctionne pas.
et si tu nous en disais plus ?
tu appelles la macro "afficher"!: qu'il y a t il dans cette macro
au besoin reformules ta demande comme si tu n'avais pas écrit de macro
-
Bonjour michel_m
Je suis sur la feuille nommée Liste qui en L5 indique le nombre d'impression par liste de choix et la macro Afficher, affiche les colonnes masquées. Je la met ci-dessous:
Sub Afficher()
Application.ScreenUpdating = False
Columns("A:H").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub -
Bonjour,
Je mets le lien du fichier :
https://www.cjoint.com/c/ELbmzUDGUhw
En vous remerciant de votre aide. -
-
Bonjour,
Je vous remercie beaucoup pour m'avoir gentiment offert ce code.
Je vous souhaite le meilleur.
