Nombre d'impression

Résolu
vielhom Messages postés 24 Statut Membre -  
vielhom Messages postés 24 Statut Membre -
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.


A voir également:

5 réponses

michel_m Messages postés 18903 Statut Contributeur 3 317
 
bonjour

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
0
vielhom Messages postés 24 Statut Membre 3
 
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
0
vielhom Messages postés 24 Statut Membre 3
 
Je vous remercie de vous intéresser à ma demande, car je suis novice.
0
vielhom Messages postés 24 Statut Membre 3
 
Bonjour,
Je mets le lien du fichier :

https://www.cjoint.com/c/ELbmzUDGUhw

En vous remerciant de votre aide.
0
f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,

fichier modifie : https://www.cjoint.com/c/ELbmLz6OEbf
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
vielhom Messages postés 24 Statut Membre 3
 
Bonjour,
Je vous remercie beaucoup pour m'avoir gentiment offert ce code.
Je vous souhaite le meilleur.
0