Bouton sauvegarde PDF

Bonjour à tous,

Je viens à nouveau solliciter votre aide afin de résoudre le problème suivant:

Dans le fichier joint je souhaiterais créer un bouton sauvegarde PDF (Feuille Evaluation annuelle)

Cette sauvegarde doit se faire au même emplacement que le fichier excel (Essai)

Et cerise sur le gâteau que ce soit enregistré avec le nom de la feuille (Evaluation annuelle) ainsi que la date de sauvegarde (jj,mm,aa).

Je sais que c'est beaucoup demander et vous remercie d'ores et déjà de toute aide que vous pourrez m'apporter, car après de nombreux essais, j'ai pu réaliser cela pour l'onglet (Matrice des compétences) mais lorsque j'essaye d'adapter ce code à l'onglet (Evaluation annuelle) ce dernier m'imprime toujour l'onglet (Matrice des compétences).

Reiterant tous mes remerciments pour toute aide, je vous souhaite d'ores et déjà une excellente fin de journée.

Bonjour

Ce ne sont pas les exemples qui manquent. Cette question est récurrente presque chaque semaine

un exemple ici où cela sauvera la feuille active dans un répertoire de votre choix --> https://forum.excel-pratique.com/s/goto/1213451
le code vous demandera où sauvegarder et le nom que vous voulez lui donner.
Ce qui vous laisse d'ailleurs plus de choix que d'imposer le répertoire

Crdlt

Bonjour Dan,

Je vous remercie de votre réponse pertinente rapide et efficace.

Après essai de ce code cela fonctionne à merveille.

Neanmoins, si je peux abuser encore un peu de votre temps, comment dois-je modifier ce code afin que la date du jour soit indiquée lors de l'enregistrement sur le nom du fichier.

Vous remerciant d'ores et déjà de votre réponse ( si votre emploi du temps vous le permet), je vous souhaite une excellente journée.

CODE:

Sub ExportationPDFAnalyseComptences()

Dim Nomfichier As Variant
Dim feuille As Worksheet

Nomfichier = Application.GetSaveAsFilename(InitialFileName:="Formulaire.pdf", FileFilter:="PDF files (*.pdf),*.pdf")
If Nomfichier = False Then Exit Sub

Set feuille = ActiveSheet
feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nomfichier
End Sub

Bonjour.

Oui, plein d'exemples là dessus aussi :

    Dim NomFichier As Variant
    NomFichier = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.Path, FileFilter:="PDF files (*.pdf),*.pdf")
    If Not NomFichier = False And NomFichier > vbNullString Then
        Dim stringTemp
        tempstring = Left$(NomFichier, InStrRev(NomFichier, ".") - 1) & Format$(Date, "_yyyymmdd") & Mid$(NomFichier, InStrRev(NomFichier, "."))

        Set feuille = ActiveSheet
        feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=stringTemp
    End If

Re

Neanmoins, si je peux abuser encore un peu de votre temps, comment dois-je modifier ce code afin que la date du jour soit indiquée lors de l'enregistrement sur le nom du fichier.

Pas de soucis. je l'avais préparé en attendant votre retour. Essayez ceci

Sub test()
Dim repertoire As String, nomfichier As String
Dim ws As Worksheet

Set ws = Activesheet
repertoire = ThisWorkbook.Path & "\"
nomfichier = ws.Name & "_" & Format(Now, "yyyy-mm-dd")

ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=repertoire & nomfichier & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

si ok et terminé pensez à cloturer le fil

NB : lorsque vous postez un code pensez à utiliser les balises de code en cliquant sur l'icone </> dans le barre de menu et collant votre code dans la fenêtre

Crdlt

bonjour Dan,

En tout premier lieu je m' excuse de ma réponse plus que tardive.

Je viens d'essayer votre code et ce dernier fonctionne à merveille.

De ce fait il ne me reste plus qu'a vous remercier vous et Jean-Paul de toute l'aide que vous m'avez apportée et vous souhaite une excellente journée