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