Selectionner plage pour export PDF

Bonjour,

J'ai réalisé une macro afin d'exporter en PDF des tableaux de stats clients.

Le bouton fonctionne mais l'export comprend également des données qui ne doivent pas apparaitre telles que le bouton ou les réfs du PDF...

Je n'arrive pas à ajouter un codage qui permette d'obtenir un PDF uniquement de la plage que je souhaite (A1;K33).

Edit modo : image supprimée, code à mettre au format texte

Pourriez vous m'aider svp ?

Je vous remercie par avance,

Cordialement.

Bonjour Emiliebrun26 et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalites du forum à connaître

Concernant votre demande, merci de joindre le code sous forme de texte et non d'image
code à mettre entre balises grâce au bouton

Merci pour votre participation

Cordialement

Bonjour

pour le bouton le sélectionner et dans les propriétés désélectionner Imprimer

Pour les zones a exclure Définir une zone d'impression, soit manuellement soit par vba cela devrait suffire

Cordialement

FINDRH

Bonjour,

Je ne peux pas insérer le code. Un message d'erreur m'indique que je ne peux poster de lien.

@FINDRH, justement je n'arrive pas à définir la zone d'impression par VBA....

Cordialement,

Re,

Vous sélectionnez votre code, puis CTRL+C
Vous créez un nouveau message, clic sur le bouton indiquez et dans le fenêtre qui s'affiche -> CTRL+V
Puis ensuite bouton [Insérer]

Si ce n'est pas possible (je ne vois pas pourquoi), déposez votre fichier

Sinon le code à utiliser pour définir la plage

ActiveSheet.PageSetup.PrintArea = "$A$1:$K$33"

A+

Bonjour,

Du coup, voilà le codage (enfaite il y avait un lien à l'intérieur) :

Sub CREERPDF()
'
' CREERPDF Macro
'

'

    Dim monDossier As String, monFichier As String
    monDossier = "personal/***/Documents/Bureau/STATS%20CLIENTS/STATISTIQUES%20CLIENTS/"
    monFichier = [o7] + [o8]

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    monDossier & monFichier, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

End Sub

Re,

Merci, il faut donc ajouter

Sub CREERPDF()
' CREERPDF Macro
    Dim monDossier As String, monFichier As String
    ' Remplacer les *** par le vrai nom de dossier
    monDossier = "personal/***/Documents/Bureau/STATS%20CLIENTS/STATISTIQUES%20CLIENTS/"
    monFichier = [o7] + [o8]
    With ActiveSheet
      .PageSetup.PrintArea = "$A$1:$K$33"
      .ExportAsFixedFormat Type:=xlTypePDF, Filename:=monDossier & monFichier, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End With
End Sub

A+