Enregistrer en PDF

[kimcergy]

Bonjour à tous,

Je chercher macro afin de pouvoir enregistrer en pdf mais juste la page 1 de la feuille "Mois" à appliquer sur le bouton PDF svp
J'ai essayé plusieurs exemples mais rien ne fonctionne

Je vous remercie par avance de votre aide précieuse

Kimcergy

 

[Staple1600]

Re : Enregistrer en PDF

Bonjour à tous

kimcergy
Merci de joindre un fichier exemple anonymisé (comme le stipule la charte du forum)
Le tien contient des patronymes.
C'est rapide à faire: en A2 de la feuille Fer écrire NOM1 puis recopier vers le bas.
Ensuite il te suffit d'aller en mode Edition et changer ton fichier actuel par sa version anonymisée 😉

Sinon j'ai testé ceci avec l’enregistreur de macros et j'ai bien que la page 1 dans le Pdf généré...

Sub Macro1()
Range("A1:G44").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$44"
ChDir "C:\Temp"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Temp\planning individuel.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

EDITION: Ci-dessous une version un peu améliorée

Sub Macro1Bis()
Dim NomFic$, Chemin$
Chemin = "C:\Temp\"
NomFic = InputBox("Saisir le nom du PDF désiré" & Chr(13) & "(extension comprise)", _
        "EXPORT PDF", Replace(ActiveWorkbook.Name, ".xlsm", ".pdf"))
Range("A1:G44").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Chemin & NomFic, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[DoubleZero]

Re : Enregistrer en PDF

Bonjour, kimcergy, Staple1600 😀, le Forum,

Pour ne pas laisser apparaître le(s) bouton(s) sur le PDF :

Sub PDF_sans_bouton_visible()
    ActiveSheet.DrawingObjects.Visible = False
    Range("A1:G44").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$44"
    ChDir "C:\Temp"
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                  "C:\Temp\planning individuel.pdf", Quality:= _
                                  xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                  OpenAfterPublish:=False
    ActiveSheet.DrawingObjects.Visible = True
End Sub

Qu'est-ce qui ne fonctionnait pas avec les suggestions faites ici 🙁 ?

Re-courage et à bientôt 🙂

 

[Staple1600]

Re : Enregistrer en PDF

Bonjour 00

00
Tu peux supprimer la Selection et la PrintArea (voir Edition de mon précédent)
Merci pour le masquage de la shape 😉
PS: Damned!, je suis encore tombé dans un fil doublon ...

 

[DoubleZero]

Re : Enregistrer en PDF

Re-bonjour,

...Tu peux supprimer la Selection et la PrintArea...

Merci, la "Macro1Bis" est "plus mieux bien" !

A bientôt 🙂🙂

 

[kimcergy]

Re : Enregistrer en PDF

Bonjour à tous,

Je sais pas pourquoi mon fichier est anonymisé
Voici une autre version es pesréant qu'il ne l'est pas.

merci à vous deux et le forum

 

[DoubleZero]

Re : Enregistrer en PDF

Bonjour à toutes et à tous,

... Je sais pas pourquoi mon fichier est anonymisé...

kimcergy, bien au contraire !

Les fichiers déposés en #1 et #6 comportent des valeurs qui ne paraissent pas anonymes (onglet "Fer" - colonne A).

Les deux fichiers doivent être supprimés et remplacés.

Les macros ont-elles été testées ?

A bientôt 🙂

 

[PascalXLD]

Re : Enregistrer en PDF

Bonjour

Comme le dit justement DoubleZero que je salue au passage il faut que les données soient bidons
J'ai donc supprimé les 2 fichiers et tu peux en remettre avec des noms du genre toto

Bonne journée

 

[kimcergy]

Re : Enregistrer en PDF

Re,

Ah je comprends mieux 🙂
Merci à vous tous pour ces renseignements.
Je vais tester et vous tiens au courant

Kimcergy

 

[Staple1600]

Re : Enregistrer en PDF

Bonsoir à tous

Bonjour
Comme le dit justement aujourd’hui DoubleZero que je salue au passage il faut que les données soient bidons
J'ai donc supprimé les 2 fichiers et tu peux en remettre avec des noms du genre toto
Bonne journée

Aurais-je donc manquer de justesse hier dans mes propos 😉

Bonjour à tous
kimcergy
Merci de joindre un fichier exemple anonymisé (comme le stipule la charte du forum)
Le tien contient des patronymes.
C'est rapide à faire: en A2 de la feuille Fer écrire NOM1 puis recopier vers le bas.
Ensuite il te suffit d'aller en mode Edition et changer ton fichier actuel par sa version anonymisée

 

[kimcergy]

Re : Enregistrer en PDF

Bonjour Staple1600, le forum,

voici le fichier
j'ai essayé cette formule mais quand je clique sur le bouton, rien ne se passe
Kimcergy

 

[kimcergy]

Re : Enregistrer en PDF

Bonjour à tous,

J'ai enfin réussi avec
' toto1.xlsm!PDF
'Dim NomFic$, Chemin$
Chemin = "D:\ASIA\planning individuel_"
NomFic = InputBox("Saisir le nom du PDF désiré" & Chr(13) & "(extension comprise)", _
"EXPORT PDF", Replace(ActiveWorkbook.Name, ".xlsm", ".pdf"))
Range("A1:G44").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Chemin & NomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Par contre, tous les mois je dois changer de répertoire. Y aurait il possibilité de pouvoir sélectionner un autre répertoire sans modifier le code ?

Merci à vous
Kimcergy

 

[kimcergy]

Re : Enregistrer en PDF

Bonjour à tous,

J'ai enfin réussi avec
' toto1.xlsm!PDF
'Dim NomFic$, Chemin$
Chemin = "D:\ASIA\planning individuel_"
NomFic = InputBox("Saisir le nom du PDF désiré" & Chr(13) & "(extension comprise)", _
"EXPORT PDF", Replace(ActiveWorkbook.Name, ".xlsm", ".pdf"))
Range("A1:G44").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Chemin & NomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Par contre, tous les mois je dois changer de répertoire. Y aurait il possibilité de pouvoir sélectionner un autre répertoire sans modifier le code ?

Merci à vous
Kimcergy