Salut à tous
J'essaye de créer un bouton pour exporter ma feuille Excel. L'enregistrement doit être fait sous pdf dans un fichier sur le bureau nommé facture et prend le nom en utilisant le contenu de la cellule C16 et G6. Mon code marche à moitié car il enregistre un fichier (Excel) et non pas pdf en plus il le met sur le bureau et non pas sur mon fichier facture.
Le code est le suivant :
Private Sub Export()
info1 = Sheets("Nouveau Modél").Range("C16")
info2 = Sheets("Nouveau Modél").Range("G6")
nom = info1 & "-" & info2 & "-" & ".xls"
ThisWorkbook.SaveAs (nom)
ChDir " \Users\<mb\Desktop\Facture"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, quality:=xlQualityStandard, incluseDocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1
End Sub
Merci pour votre aide!