Nombre d'impression Résolu/Fermé

Question

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.


Configuration: Windows 7 / Firefox 42.0

michel_m · Answer

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

vielhom · Answer

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

vielhom · Answer

Bonjour,
Je mets le lien du fichier :

 https://www.cjoint.com/c/ELbmzUDGUhw

En vous remerciant de votre aide.

f894009 · Answer

Bonjour,

fichier modifie : https://www.cjoint.com/c/ELbmLz6OEbf

vielhom · Answer

Bonjour,
Je vous remercie beaucoup pour m'avoir gentiment offert ce code.
Je vous souhaite le meilleur.

Nombre d'impression

5 réponses

Discussions similaires