XL 2013 impression d'une colonne automatique en fonction de la date

[stéph76]

Bonjour,
chaque mois je dois remplir des tableaux et donc les imprimer, et j'aimerais savoir s'il est possible d'imprimer la colonne du mois précédant de façon automatique, sans avoir à redéfinir le champs d'impression chaque fois, exemple en avril, je dois imprimer la colonne A qui contient mes libellés et la colonne D correspondant au mois de mars, en mai, je devrai imprimer les colonnes A et E, .....
Merci de votre aide.

Stéphane

 

[fanfan38]

Oui c'est faisable

sub imprime()
    Columns("B:D").Select
    Selection.EntireColumn.Hidden = True
    Range("A1:E11").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$E$11"
end sub

Voir mettre une condition mais sans fichier .... On est pas devain
A+ François

 

[stéph76]

Bonjour, et déjà merci d'avoir répondu, voici un exemple de mes fichiers, je voudrais donc imprimer ce mois-ci, uniquement la colonne A qui contient mes libellés et la colonne D du mois de mars avec toutes les lignes de 1 à 115, et chaque mois ce sera la colonne du mois précédent.
J'espère être un peu plus clair avec le tableau joint.
Merci.

Stéphane

 

[fanfan38]

quel critère pour l'impression la date du jour=mois precedent?

 

[stéph76]

Oui, c'est toujours le mois précédent

 

[fanfan38]

Ci joint ma solution
A+ François

 

[stéph76]

Merci François, c'est exactement ce que je voulais, j'ai même fait un essai en changeant la date de mon PC pour l'avancer d'un mois, et cela me change bien la colonne à imprimer.
Cela va me faire gagner un temps précieux chaque mois, et surtout m'éviter de ne pas imprimer la bonne colonne. Encore merci.

Stéphane