Convertir une page excel en PDF

Résolu/Fermé
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 - Modifié par supraman46 le 30/03/2015 à 17:11
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 - 31 mars 2015 à 17:37
Bonjour,

J'ai déjà en main un code qui me permet de transférer un fichier Excel en PDF, mais je n'arrive pas à rajouter une règle qui me permettrait de convertir seulement la première page. En ce moment, il y a 5 pages qui sortent.

Voici le code

Sub Macro1()
Dim sNomFichier As String

sNomFichier = Worksheets("GM RESULTS").Range("A1").Text + "_" + Worksheets("GM RESULTS").Range("M3").Text

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sNomFichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub


Merci à l'avance pour votre aide
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
30 mars 2015 à 17:56
Bonjour,

Se mettre sur la feuille à enregistrer 

Dim chemin As String

chemin = "C:\chemin\essai.pdf"'chemin du fichier pdf avec son nom

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
0
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 1
31 mars 2015 à 17:37
Désolé pour le délai, je viens tout juste de l'essayé et ca fonctionne très bien, un gros merci pour ton aide Le PIvert!
0