Excel/ impressions multiples bis

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

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 ///

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///

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///