Impression du Bulletin

Victor21

XLDnaute Barbatruc

Supporter XLD

• 29 Janvier 2012

• #2

Re : Impression du Bulletin

Bonjour.

A adapter.

 

Pièces jointes

• Publipostage.xls

  45.5 KB · Affichages: 99
• Publipostage.xls

  45.5 KB · Affichages: 104
• Publipostage.xls

  45.5 KB · Affichages: 101

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 29 Janvier 2012

• #3

Re : Impression du Bulletin

Bonjour Lipadec, le forum,

J'ai rajouté une feuille pour la liste des employés avec les matricules, modifie le code en fnction de l'organisation de ton fichier.

Donc une boucle parcoure tous les employés présent dans la feuille "LISTE EMPLOYES" et imprime le bulletin correspondant, grace a un bouton sur cette meme feuille.

de plus j'en ai profiter pour lier la cellules "M10" à la "A10".

Edit : "Bonjour Patrick"

 

Pièces jointes

• Bulletin(1).xls

  63 KB · Affichages: 87

Vote positif 0 Vote négatif

Lipadec

XLDnaute Occasionnel

• 29 Janvier 2012

• #4

Re : Impression du Bulletin

Re
Merci au Forum, merci à Nyko283,
Je peux te dire que dans mon fichier, il y a déjà une feuille "Liste" numérotée de 1 à 50.
Mais il y a des n° qui n'existent plus. Ceux qui existent sont: 1-2-25-30-32-39-41-42
J'ai voulu appliquer ta macro, mais elle ne m'imprime pas ce que je veux
Veux-tu bien m'affecter ta macro à ma liste qui est ci jointe avec le bulletin
Merci d'avance

Lipadec

 

Pièces jointes

• Bulletin(2).xls

  58.5 KB · Affichages: 55

Dernière édition: 29 Janvier 2012

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 29 Janvier 2012

• #5

Re : Impression du Bulletin

re,

erreur de cerveau je corrige

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 29 Janvier 2012

• #6

Re : Impression du Bulletin

Alors voici le code à mettre à la place :

VB:

Dim i As Integer
With Sheets("BULLETIN")
    For i = 2 To ThisWorkbook.Sheets("Liste").Range("B5536").End(xlUp).Row ' boucle de la ligne 2 jusqu'a la derniere ligne non vide
        If ThisWorkbook.Sheets("Liste").Cells(i, 2).Value <> "" And ThisWorkbook.Sheets("Liste").Cells(i, 2).Value <> 0 Then
            .Cells(10, 1).Value = ThisWorkbook.Sheets("Liste").Cells(i, 1).Value
            .Calculate '  recalcul les formules de la feuille bulletin juste pour etre sur...
            '.PrintOut ' lance l'impression
            MsgBox "impr" & i - 1
        End If
    Next i
End With

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 29 Janvier 2012

• #7

Re : Impression du Bulletin

Re,

J'ai modifié la formule en B10 de Bulletin. Je vous laisse le soin d'effectuer la modification pour les autres cellules variables.
Remplacez dans le module 1 (Alt+F11 pour y accéder) : PrintPreview qui est l'aperçu avant impression par PrintOut Copies:=1

 

Pièces jointes

• Bulletin(3).xls

  66.5 KB · Affichages: 72

Vote positif 0 Vote négatif

Lipadec

XLDnaute Occasionnel

• 30 Janvier 2012

• #8

Re : Impression du Bulletin

Re,

Merci à vous deux, vos deux solutions sont bonnes, mais j'ai utilisé celle de Victor21 car il y a l'aperçu avant impression
Merci une autre fois

Lipadec

 

Vote positif 0 Vote négatif