Bonsoir,
Sinon je te conseille la méthode suivante:
Mettre dans la colonne A de la feuille facture dans la cellule A46:"Commentaires:" (voir fichier joint)
Tu utilise la formule ci-dessous pour savoir à quelle ligne se trouve commentaires:
Ligne_Fin = Application.WorksheetFunction.Match("Commentaires:", Sheets("Facture").Range("A:A"), 0)
--> Cela permet que la fin de ta feuille soit mobile. tu peux donc imprimer jusqu'à une ligne quelconque. et pas de souçis de communications
Et tu l'intègre dans ton code de la façon suivante
.Range("A1:L" & Ligne_Fin).ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Cdlt,
Oranger