Convertir une page excel en PDF
Résolu
supraman46
Messages postés
57
Statut
Membre
-
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
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
-
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
