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é
ainsi qu'un fichier.
Merci d'avance pour votre aide si précieuse.
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é
Code:
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
Merci d'avance pour votre aide si précieuse.