XL 2013 Bouton simple d'export svp

[sersib]

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:

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.

 

[Phil69970]

Bonjour @sersib

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

Tu supposes bien et tu n'as pas chercher beaucoup
Il suffit d'aller au bas de ton écran....

@Phil69970

 

[Jacky67]

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:

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.

Bonsoir,
Essaye comme ceci
A condition que c17 et f10 soient renseignés et que le répertoire "xxxxx" existe

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

 

[sersib]

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

 

[Jacky67]

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

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

 

[sersib]

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

Merci beaucoup à vous deux @Jacky67 @Phil69970

 

[patricktoulon]

re
bonjour
n'oubliez pas de mettre la propriété du bouton
pour un bouton formulaire :décoché "imprimer l'object"
pour un bouton activX mettre la propriété "printobject" a false dans l'editeur vbe
un bouton qui sert a rien dans un pdf ça fait négligé

 

[sersib]

Merci,
J'abuse si je vous demande comment mettre un dernier bouton pour envoyer par e-mail (avec l'application par défaut), de ce fichier .PDF ?
Désolé si j'abuse