Convertir une page excel en PDF [Résolu/Fermé]

Signaler
Messages postés
53
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
28 février 2019
-
Messages postés
53
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
28 février 2019
-
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

1 réponse

Messages postés
6923
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 septembre 2020
549
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

Messages postés
53
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
28 février 2019
1
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!