Macro Publipostage sur Excel

[nonifel]

Bonjour

Je cherche a imprimer en PDF les données de chaque code.
Je ne peux pas faire le publipostage sur Word, j'ai trop de données.
ça va faire plusieurs feuilles.

Fichier ci-joint pour plus de détails.

Merci d'avance.

 

[titiborregan5]

Re : Macro Publipostage sur Excel

Bonjour Nonifel, le forum,

à titre personnel, je procèderai de la manière suivante:
- création d'un onglet par code personne
- impression de chaque onglet en pdf.

Bon courage

Tibo

 

[nonifel]

Re : Macro Publipostage sur Excel

Bonjour Tibo,

J'ai pensé à mettre un filtre, qui affichera le nom, sauf que j'en ai pour 220.

Merci pour l'info.

 

[nonifel]

Re : Macro Publipostage sur Excel

Bonjour,

Besoin d'une Macro qui change la Case B5 de la feuille 2 selon la feuille Base et qui imprime.

Merci Beaucoup.

 

[titiborregan5]

Re : Macro Publipostage sur Excel

re,
le code pour créer un onglet par agent!

Sub copie_onglets()
For i = 3 To Sheets("base").Range("a2").End(xlDown).Row
code = Sheets("base").Cells(i, 1)
Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Code " & code
Sheets("Code " & code).Range("b5") = code
Sheets("Code " & code).Columns("a:I").AutoFit
Next

End Sub

Après cherche sur internet pour savoir comment imprimer via pdf avec le nom voulu! comme je ne connais pas ton logiciel d'éditeur de pdf je ne peux t'aider! au pire fais avec l'enregistreur de macros!

 

[JCGL]

Re : Macro Publipostage sur Excel

Bonjour à tous,

Un essai avec :

Option Explicit

Sub Fiche()
    Dim Lig&
    For Lig = 3 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row
        Feuil2.Cells(5, 2) = Feuil1.Cells(Lig, 1)
        Feuil2.PrintPreview
    Next
End Sub

Création PDF dans le répertoire du fichier :

Option Explicit


Sub Fiche()
    Dim Lig&
    For Lig = 3 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row
        Feuil2.Cells(2, 2) = Feuil1.Cells(Lig, 1)
        'Feuil2.PrintPreview
        Feuil2.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & _
        Feuil2.Cells(2, 2) & "_" & _
        Feuil2.Cells(4, 1) & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Next
    Feuil1.Activate
End Sub

A+ à tous