VBA exporter une plage variable en pdf

[LOLO13130]

Bonsoir le forum,

Comme mentionné dans le titre, j'essaie désespérément d'exporter une plage variable en pdf.
J'ai essayé de bidouiller certains codes trouvés sur le forum pour adapter à mes besoins, mais sans succès vu mon niveau de compétence...

Mes besoins :
Plage variable = ("A2:G" & Range("A102").End(xlUp).Row)
Nom du fichier pdf exporté = contenu de la cellule A3 de la feuille active
Répertoire de destination = le même dossier dans lequel se trouve le fichier excel (ThisWorkbook.Path)
Déclenchement de la macro = en appuyant sur l'image "Exporter en pdf"
Le tout sur une feuille protégée par le mot de passe deblock

Je joins le code bidouillé

Sub Exporter_pdf_BG()

Dim LeNom, LeRepertoire, LaSelection As String

LeNom = Range("A3").Value
LeRepertoire = ThisWorkbook.Path
LaPlage = ("A2:G" & Range("A102").End(xlUp).Row)

    ActiveSheet.Unprotect ("deblock")

    Range("LaPlage").Select
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        LeRepertoire & LeNom & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

    ActiveSheet.Protect Password:="deblock", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoRestrictions

End Sub

ainsi qu'un fichier.
Merci d'avance pour votre aide si précieuse.

 

[Dranreb]

Bonsoir.
Et si au lieu de LaPlage, sans avoir besoin de la sélectionner, on prend
ActiveSheet.PageSetup.PrintArea = "$A$2:$G$" & ActiveSheet.[A102].End(xlUp).Row, qu'est-ce que ça dit ?

 

[LOLO13130]

Bonsoir Dranreb,
Merci pour votre réponse mais malheureusement je n'ai toujours pas réussi à l'utiliser...
Je poursuis mes essais et reviens vers vous.
Merci encore.

 

[Dranreb]

Peut être convient-il de déprotéger la feuille avant de tenter de redéfinir la zone d'impression ?
Mais normalement avec IgnorePrintAreas:=False le ExportAsFixedFormat devrait en tenir compte.
Enfin… peut être faudrait-il aussi l'appliquer à ActiveSheet et non à Selection.

 

[LOLO13130]

Bonjour Dranreb,
Merci pour vos conseils qui ont été très utiles !!
Cela fonctionne à merveille !!
[RESOLU]