Convertir une page excel en PDF

Résolu
supraman46 Messages postés 57 Statut Membre -  
supraman46 Messages postés 57 Statut Membre -
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 8437 Statut Contributeur 729
 
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 57 Statut Membre 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!
0