Excel/ impressions multiples bis Résolu/Fermé

Question

Bonjour à tous et ttes,


j'espere que vous allez bien et que le week-end  s'annonce positif.

je me permets de faire appelle à vous car j'ai un petit problème à vous soumettre.

je joins le fichier sur lequel plus d'explication se trouve (feuille mcae_gril_prev) :
https://www.cjoint.com/?3Huk72EI2bT

mais sachez que cela à voir avec le post précédent et que cela concerne la mise en place de date de début et date de fin à placer sur uen feuille. cette même feuille contient un tableau sur lequel les dates d'un mois complet est indiquée. ce que je cherche à faire c'est donc de pouvoir imprimer en une seul opération plusieurs feuilles avec chaque fois un mois différent.

vous remerciant grandement pour vos suggestions, remarques et critiques.

bon temps de midi.

berni///



Configuration: Windows 7 / Internet Explorer 8.0

eriiic · Answer

Bonsoir,

Pour l'impression :
Sub imprimer()
    Dim nmois As Long, mois As Long, année As Long, m As Long
    nmois = InputBox("Nombre de mois à imprimer ?", "Nombre de mois", 3)
    mois = Month([A20])
    année = Year([A20])
    For m = 1 To nmois
        MsgBox ("impression de " & Format([A20], "mmm/yyyy"))
        'Worksheets("mcae_gril_prév.").PrintOut
        mois = mois Mod 12 + 1
        année = année - (mois = 1)
        [A20] = DateValue("01/" & mois & "/" & année)
    Next m
End Sub
Le nombre de mois à imprimer est demandé au début de la macro.
Une fois les tests faits enlever le commentaire du .printout et le mettre sur le msgbox.

eric

benji71 · Answer

Bonjour cher Eriic,

j'espere que vous allez bien. merci d'avoir eu la gentillesse de repondre à mon problème.

je n'ai pas d'imprimante à la maison, je vais donc essayé cela au bureau dès demain mais j'ai une petite question, lorsque j'aurais placé la macro, celle-ci va s'appliquer dès que je vais dder à imprimer [donc, lorsque je clic sur la l'icone "imprimer" correct ?

si j'ai tjrs bien compris, je ne dois donc pas coller la marco à un bouton que j'aurais créé.

pour être sur de ne pas commettre de "boulette" voici ce que vous me proposez de tester :
Sub imprimer() 

    Dim nmois As Long, mois As Long, année As Long, m As Long
    nmois = InputBox("Nombre de mois à imprimer ?", "Nombre de mois", 3)
    mois = Month([A20])
    année = Year([A20])
    For m = 1 To nmois
        MsgBox ("impression de " & Format([A20], "mmm/yyyy"))
        'Worksheets("mcae_gril_prév.").PrintOut
        mois = mois Mod 12 + 1
        année = année - (mois = 1)
        [A20] = DateValue("01/" & mois & "/" & année)
    Next m
End Sub


uen fois que cela marche je peux donc ecrire comme ceci :
Sub imprimer() 

    Dim nmois As Long, mois As Long, année As Long, m As Long
    nmois = InputBox("Nombre de mois à imprimer ?", "Nombre de mois", 3)
    mois = Month([A20])
    année = Year([A20])
    For m = 1 To nmois
        'MsgBox ("impression de " & Format([A20], "mmm/yyyy"))
        Worksheets("mcae_gril_prév.").PrintOut
        mois = mois Mod 12 + 1
        année = année - (mois = 1)
        [A20] = DateValue("01/" & mois & "/" & année)
    Next m
End Sub


je dois donc déplacer la ' de la ligne :Worksheets("mcae_gril_prév.").PrintOut
pour la mettre devant la ligne : 'MsgBox ("impression de " & Format([A20], "mmm/yyyy"))


correct ?

un tt grand merci à vous et de l'aider apporté.

tres bon dimanche...

berni ///

benji71 · Answer

Bonsoir cher Eriiic, j'espere que vous allez bien et que vous avez passé une bonne journée. un petit mot sur "comme tu sembles être resté sur le 1er code "je suis revenu sur le premier code car j'ai l'impression de "maitriser" les choses...et que au bureau j'ai le choix entre 3 imprimantes (dont un couleur) donc je me suis dit que se serait mieux de garder les premiers code. je reviens sur le "n'oublie pas d'ajouter le contrôle de saisie dont je te parlais à la fin du post 3" si je vous ai bien, le bon code est celui-ci : Sub imprimer_() Dim nmois As Long, mois As Long, année As Long, m As Long nmois = InputBox("Nombre de mois à imprimer ?", "Nombre de mois", 3) If nmois > 1 And nmois <= 12 Then mois = Month([A20]) année = Year([A20]) For m = 1 To nmois 'MsgBox ("impression de " & Format([A20], "mmm/yyyy")) Worksheets("mcae_gril_prév.").PrintOut copies:=2 mois = mois Mod 12 + 1 année = année - (mois = 1) [A20] = DateValue("01/" & mois & "/" & année) Next m Else MsgBox ("Saisie non conforme") End If End Sub correct ? mais à propos à quoi doit servir le : If nmois > 1 And nmois <= 12 Then .... Else MsgBox ("Saisie non conforme") End If je veux dire qu'elle sera sa fonction ? j'ai rencontré un petit problème. si je clic sur le bouton imprimer (celui sur lequel j'ai affecté la macro), la boîte à message s'ouvre et me demande combien de mois...si je clic sur annuler...j'ai un message "erreur d'excécution'13' incompatibilité de type" ai-je fait une erreur ? à quoi cela peut-il être du ? vs remerciant pour votre aide et précieux conseil, je vous souhaite une bonne soirée, nuit... cdlmnt, berni///

benji71 · Answer

Bonsoir cher Eriiic,

comme promis..Me revoici....et comme promis..Cela marche.. je suis super content... :-)

j'ai essayé à plusieurs reprises et cela focntionne..

un tt grand merci à vous...

cdlmnt,

berni///