XL 2013 Bouton simple d'export svp

sersib à dit:

Je suppose que la question a déjà était posée, mais je n'ai pas réussi à trouver.

Cliquez pour agrandir...

sersib à dit:

Bonjour,
Je suppose que la question a déjà était posée, mais je n'ai pas réussi à trouver.
J'utilise actuellement une feuille Excel avec un simple bouton pour enregistrer au format Excel avec ce code vba:

VB:

Private Sub CommandButton1_Click()
Dim NomFichier
NomFichier = Range("c17") & "-" & Range("f10")
ActiveWorkbook.SaveAs "C:\xxxxx\" & NomFichier & ".xls"
End Sub

Possible de faire un autre bouton avec le même nom de fichier, mais en format .PDF ?
Merci beaucoup d'avance.

Cliquez pour agrandir...

Private Sub CommandButton2_Click()
    Dim NomFichier
    NomFichier = Range("c17") & "-" & Range("f10")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\xxxxx\" & NomFichier
End Sub

sersib à dit:

Merci beaucoup à vous deux.
Je met en application dès demain.

Cliquez pour agrandir...

Jacky67 à dit:

Re..
Remplace "ActiveSheet" par "ThisWorkbook" pour tout le classeur

Cliquez pour agrandir...