Devis Enregistrement baser sur la reference

Bonjour,

Je suis pas trop "Master of VBA", mais actuellement j'essai de créer un nouveau système.

Quand la personne enregistres le devis dans un fichier automatiquement le nom du fichier PDF doit être la reference qui est deja ecris dans le devis en haut.

Merci d'avance les amis

Bonjour,

en supposant que le haut du devis soit la cellule A1,

Sub ExportAsPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & Range("A1") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Merci pour ta réponse !

J'ai copier le code et mis le code la cellule (F8) et quand je fais Enregistrer sous ! ça me donnes rien ou plutot le même nom par Default du fichier.

thanks

Bonjour,

le code ne modifie en rien le fichier excel,

il crée un fichier pdf, chercher le fichier .pdf dans le même répertoire de votre fichier excel.