Bonjour à tous!
ecluse105 ,comme ceci enregistré sur mon bureau
"C:\Users\...\Desktop\" & Cells(9, 7).Value & ".pdf"
voici le code que je me sers pour faire un classement j'ai essayé avec la valeur de la cellule "A2" et ça fonctionne
la plage sélectionnée "O1:U33" que j'enregistre en PDF ça devrait être la même chose pour toi avec une facture
Sub Classement_PDF()
Range("O1:U33").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\...\Desktop\" & Cells(2, 1).Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Range("A1").Select
End Sub
Bonne journée!