Extraction en pdf

Bonjour,

J'utilise le code suivant pour extraire mon onglet Excel en PDF

 Sheets("Calendrier").unprotect Password:=Range("psw").Text
    Sheets("Calendrier").Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\" & "Calendrier" & Value & Format(Now() - 1, " dd mm yyyy ")

    MsgBox "La page 1 a été extraite et enregistrée sur la clé USB.", vbInformation

Dans mon onglet, il y a plusieurs pages, et je voudrais adapter mon code pour extraire une page ou un groupe de page (ex ; page 1 ou page 1 à 3)

Comment dois adapter ce code ?

Merci par avance

Bonjour,

BrunoM45 a fait un utilitaire qu'on peut trouver ici, et qui devrait répondre à la question.

Merci, je vais me pencher sur la question

Bonjour,

Essai :

 Sheets("Calendrier").unprotect Password:=Range("psw").Text
    Sheets("Calendrier").Select

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\" & "Calendrier" & Value & Format(Now() - 1, " dd mm yyyy "),From:=1, To:=3

    MsgBox "La page 1 a été extraite et enregistrée sur la clé USB.", vbInformation

Sinon définir le zone d'impression dans la macro suivant la cellule A1 par exemple

Select Case Sheets("Calendrier").Range("A1").Value
   Case "P1"
   Sheets("Calendrier").PageSetup.PrintArea = "A1:B3"
    Case "P1 a P3"
    Sheets("Calendrier").PageSetup.PrintArea = "A1:K10"
End Select

A+