Conversion en PDF de plusieurs courriers
Bonjour le Forum
j'ai une base d'environ 100 Contacts : nom prénom adresse ......
j'ai un courrier type dans un autre onglet
j'utilise ce code pour convertir le courrier en PDF
Private Sub pdf_Click()
' pdf Macro
Dim fName As String
With Worksheets("Autorisation")
fName = .Range("A17").Value & " _ " & .Range("F10").Value
End With
'récuperer le chemein du dossier source
ChDir ThisWorkbook.Path
'enregistrer le pdf dans le même dossier que le fichier source
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & fName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'afficher message à la fin d'enregistrement du PDF
MsgBox ("Le permis N° " & fName & " a été bien enregistré en PDF dans : " & ThisWorkbook.Path & vbLf & "Vous pouvez joindre ce fichier par mail.")
'enregistrer le classeur
ActiveWorkbook.Save
End SubL'objectif et de convertir ce courrier type en PDF (plusieurs pages bien sur ) suivant la liste des personnes de la base (parfois ça peut aller jusqu'à 100 personnes donc 100 pages) et l'enregistrer dans le même classeur ou se trouve le fichier excel.
je n'arrive pas à adapter ce bout de code car je suis novice en VBA
Merci pour votre aide
je joins le fichier
Bonsoir,
Ma petite contribution.
Dans Gestionnaire des noms : "Liste_Noms" correspond au nombre de personnes en colonne A de la Base.
Base transformée en Tableau1.
Onglet Courrier: en L2-> liste déroulante selon "Liste_noms"
Les cellules G7,H7,G8,G9 et H9 sont alimentées par la fonction RECHERCHEV
Cliquer sur le bouton bleu
2 choix-sauvegarde de la page en cours ou sauvegarde totale (donc autant de fichiers pdf que de personnes)
Cdt
Henri
Bonsoir,
Ma petite contribution.
Dans Gestionnaire des noms : "Liste_Noms" correspond au nombre de personnes en colonne A de la Base.
Base transformée en Tableau1.
Onglet Courrier: en L2-> liste déroulante selon "Liste_noms"
Les cellules G7,H7,G8,G9 et H9 sont alimentées par la fonction RECHERCHEV
Cliquer sur le bouton bleu
2 choix-sauvegarde de la page en cours ou sauvegarde totale (donc autant de fichiers pdf que de personnes)
Cdt
Henri
Merci Henri
c'est très bien juste je me suis mal exprimé je pense
si choix de toutes les personnes de la base alors un seul fichier PDF avec plusieurs pages . chaque page est un courrier à part avec adresse d'une personne du tableau
Objectif impression d'un seul coup
Sinon top
Joli travail je vous remercie
Bonjour Dindino,
Dans ce cas pourquoi vouloir créer un fichier PDF?
Objectif impression d'un seul coup
Il suffit d'imprimer directement toutes les lettres avec le même principe.
Voir fichier joint avec clic sur "Imprimer les courriers".
Cdt
Henri