XL 2016 Complément de code sur impression PDF

  • Initiateur de la discussion Initiateur de la discussion Didou1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Didou1

XLDnaute Nouveau
Bonjour le forum,

J'utilise ce code pour enregistrer mes feuilles Excel en format PDF
on peut nommer le dossier
récupérer certaines valeurs dans la feuille pour nommer le nom du fichier
Très pratique

Je cherche à rajouter dans le code en limitant le champ d'impression
Il prend tous les éléments présents dans la feuille
Je souhaiterais ajouter la sélection de A1 à D38

Est-ce que ceci est possible

VB:
Sub PDF_Menu()

    Chemin = Workbooks(ActiveWorkbook.Name).Path
    Feuille = ActiveSheet.Name
 
    
    Dossier = "JB"

    fa = Format([B8], " mmm yy")
    nom = Format([B5], " mmm yy")
    'Poste = Range("F14").Value

    nomFichier = "" & "A4 " & fa & "" & "  à  " & nom & " .pdf"

    If Dir(Chemin & "\" & Dossier) = "" Then
        On Error Resume Next
        MkDir Chemin & "\" & Dossier
        On Error GoTo 0
    End If

    CheminEvent = Chemin & "\" & Dossier
  

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    CheminEvent & "\" & nomFichier, Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                    False
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
245
Réponses
3
Affichages
672
Réponses
3
Affichages
887
Réponses
2
Affichages
511
Réponses
10
Affichages
547
Retour