XL 2010 Imprimer ma feuille de garde en respectant la semaine

[SSIAP2]

Bonjour à toute la communauté excel D je viens vous demander encore un peut d'aide pour finaliser mon petit projet ou j'en suis à la phase imprimer.

sur ma feuille de garde les date sont incrémenter du 1er au 31 de chaque mois je recherche une solution pour imprimer cette feuille à l'aide d'une macro en respectant les jour d'une semaine.
chaque semaine commence du lundi au dimanche et devras tenir sur une page.

si la semaine le 1er jour du mois commence un vendredi la première feuille imprimeras


Samedi 1er octobre
et
dimanche 2 octobre

puis la seconde feuille
la 2 eme semaine du lundi3 au dimanche 9
puis la 3eme feuille
semaine du lundi 10 au dimanche 16.....

pouvez vous m'aider svp merci

 

[Paf]

Bonjour SSIAP2,

un essai :

 Sub ImprimeSemaine()
Dim DerL As Integer, Plage As Range, i As Integer, LD As Integer, LF As Integer
With Worksheets("Feuil1")
DerL = .Range("A" & Rows.Count).End(xlUp).Row
Set Plage = .Range("A3:I" & DerL)
i = 3
While i < DerL
    LD = i 'initialisation ligne de début zone
    While Weekday(.Cells(i, 1), 2) < 7 And i < DerL - 6
        If i < DerL Then i = i + 8
    Wend
    LF = i + 6 'initialisation ligne de fin zone
    i = i + 8
    With .PageSetup
    .PrintArea = "A" & LD & ":I" & LF
    .FitToPagesTall = 1 'pour avoir l'impression sur une seule feuille
    .FitToPagesWide = 1
    End With
    .PrintPreview ' à remplacer par .PrintOut pour imprimer
    .PageSetup.PrintArea = ""
Wend
End With
End Sub

A+

 

[SSIAP2]

Bonjour paf merci pour ton aide je regarde sa demain matin car la j'ai pas imprimante sous la main un grand merci déja

 

[Staple1600]

Bonsoir à tous

Pour info
Avec .PrintPreview pas besoin d'imprimante, car cela affiche l’aperçu avant impression
Donc tu peux tester la macro de Paf de suite

 

[SSIAP2]

Bonjour paf bonjour staple1600 et merci pour cette pression

j'ai put tester sur une imprimante et j'ai noter quelque petit problème

es ce possible que sur chaque feuille on puisse reprendre l’entête des ligne 1 et 2
sur la mise en page
l'impression me prend de la colonne A3 à E18 au lieux de de A3 à I18

sachant que F18 en fait se trouve sur une autre page.

et pour tous le reste sur chaque page j'ai bien du lundi mais au dimanche mais dimanche j'ai que l’entête(Date Matin Apres Midi) mais pas les donner CDP CA PL EQP1 EQP2 EQP 3

je pense que ce n'est un calibrage des lignes mais j'ai pas trouver pour l'instant peut on amélioré ses point svp merci

autrement c'est du super boulot déja merci

ps:je t'ai mis en fichier joint comment sa me donne quand j'imprime et ce que je souhaiterais à la place merci d'avance

 

[SSIAP2]

re bonjour à vous alors après quelque recherche en fait sur le format tout est bon faillais juste je règle la hauteur des cellule et largeur manuellement je recherche juste à avoir les deux première ligne entête sur chaque page et c'est top

 

[SSIAP2]

re à vous tous fonctionne suffit la aussi de le faire manuellement et enregistré merci à toi paf bonne soirée

 

[Paf]

re,

ma réponse arrive un poil trop tard !

il aurait suffit de rajouter après

 With .PageSetup

la ligne:

  .PrintTitleRows = "$1:$2"

A+

 

[SSIAP2]

merci paf sa va me servir tous de meme