choix de pages pour convert to pdf

Question

Bonjour, 

je voulais savoir si il existait une ligne de code additionnel pour convert to pdf pour sélectionner plusieurs pages d'une feuille excel 2007 sachant que les pages a convertir ne sont pas toujours les même et ne sont pas placées au même endroit,(donc from, to, c'est mort)
mais sont numérotée comme suit 
page 1/3, 2/3, 3/3 pour 3 pages a convertir
page 1/4, 2/4, 3/4, 4/4 pour 4 pages a convertir

merci d'avance aux experts


Configuration: Windows / Chrome 68.0.3440.84

cs_Le Pivert · Answer

Bonjour,

Erreur de ma part j'ai confondu avec des feuilles à enregistrer en PDF

Désolé

yanndebretagn · Answer

du coup,  jouable ou pas?

yanndebretagn · Answer

excuse je viens de voir le lien

kimbo13 · Answer

Indépendamment de votre version de Word, vous pouvez utiliser un logiciel dédié qui fonctionne comme un pilote d'imprimante. Par exemple PDFCreator, que vous pouvez télécharger sur Commentcamarche.net à cette adresse. Une fois le logiciel installé, il figure dans la liste de vos imprimantes. Ouvrez le fichier Word à convertir en PDF et appuyez simultanément sur les touches Ctrl et P du clavier. Choisissez alors PDFCreator dans la liste des imprimantes et cliquez sur Imprimer. Au bout de quelques instants, une boîte de dialogue de finalisation de "l'impression" s'affiche sur l'écran. Cliquez alors sur Enregistrer puis de nouveau sur Enregistrer.

yanndebretagn · Answer

re  cs_Le Pivert 
dit moi le code je colle ou
(il ne commence pas par sub) 
question de noob

 bonjour kimbo 13
mon problème est sur excel 2007 et je possède déjà pdfcreator merci quand même

autre question on
vu qu'il est possible d'indiquer la feuille en vba n'est t'il pas possible d'indiquer une page?

cs_Le Pivert · Answer

As-tu lu ce lien?

 https://forums.commentcamarche.net/forum/affich-35515303-choix-de-pages-pour-convert-to-pdf#5

en suivant le code donné sur ce lien.

Tu sélectionnes la totalité de ta 1ère page, clic droit Nommer une plage, tu la nommes Page1 et tu fais de même pour toutes tes pages

ensuite tu fais ta Sub en fonction des pages à traiter
 
Sub Tst()
Dim Rg As Range
    Set Rg = Application.Union(Range("Page1"), Range("Page2"), Range("Page3"))
    Rg.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                           ThisWorkbook.Path & "\" & "Test.pdf", _
                           Quality:=xlQualityStandard, _
                           IncludeDocProperties:=True, _
                           IgnorePrintAreas:=False, _
                           OpenAfterPublish:=False
    Set Rg = Nothing
End Sub


voici un exemple pour les pages 1, 2 et 3


vu qu'il est possible d'indiquer la feuille en vba n'est t'il pas possible d'indiquer une page?

Pour cette question, je me demande pourquoi tu la poses, vu que tu y as déjà répondu ici:

,(donc from, to, c'est mort) 

Voilà bon courage

yanndebretagn · Answer

merci 
je pensai a quelque chose comme from1 to 2;  from2 to 2
je regarde ça au calme et je reviens au rapport 
bonne soirée

cs_Le Pivert · Answer

Voici le code pour enregistrer des pages qui se suivent en PDF

'enregistrer pages en PDF
Sub convert_to_pdf_allpage()
Dim sRep As String
Dim sFilename As String
Dim Nom As String
Nom = InputBox("Saisie de votre PDF : ", "Enregistrement PDF", "MonPDF")
If Nom = "" Then Exit Sub
    sRep = ThisWorkbook.Path & "\" 'chemin du dossier
    sFilename = Replace(ThisWorkbook.Name, ".xlsm", "") 'nom seul sans extension
    sFilename = sFilename & Nom & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        sRep & sFilename, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        From:=1, To:=11, OpenAfterPublish:=True 'From:=1 numero de la page début, To:=11 numero de la page fin
        MsgBox Nom & " est enregistré dans le même dossier que ce classeur"
 End Sub 

Pour enregistrer des pages discontinues, il faut passer par la méthode que je t'ai donné!

yanndebretagn · Answer

bonjour cs_Le Pivert
j'ai trouvé une solution a mon problème (comme quoi une bonne nuit de sommeil)
il suffit de cacher les pages non renseignées puis d'enregistrer en pdf, ça a l'air de faire la blague.
juste un point qui me chiffonne, j'aimerai modifier la ligne Set Plage1 = Range("a1:a50")
par Set Plage1 = page1
mais je n'ai rien trouvé sur la suppression par plage.
je garde tes codes sous le coude je sens que ça va resservir d'ici peu

Choix de pages pour convert to pdf

9 réponses

Discussions similaires

Newsletters