Enregistrer sous PDF avec comme nom les données d'une cellule

Ah ouais donc du coup les slashs dans la date en Y15 on s'en fout à nouveau ?

plutot :

Sub imprime()

ActiveSheet.PageSetup.PrintArea = "A1:N131"
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:\fabrication\Sauvegarde Fiches de Fabrications\" & replace([Y15],"/","_") & ".pdf"
Range("H144") = "Archivé en PDF le " & Date

End Sub

Fred

J'ai modifié le contenu de la cellule Y15 en ne faisant plus apparaître les slashs

Merci messieurs! La macro fonctionne parfaitement.

Belle journée

Dans ce cas....

Mais à l'avenir.. merci de fournir un fichier de test avec informations bidons...

Fred

Merci Fred, je le ferais la prochaine fois.