dindin
XLDnaute Occasionnel
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
L'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
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
VB:
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 Subje n'arrive pas à adapter ce bout de code car je suis novice en VBA
Merci pour votre aide
je joins le fichier