XL 2010 Enregistrer en PDF

cathodique

XLDnaute Barbatruc

• 26 Août 2019

• #2

Bonjour,

à tester

VB:

Option Explicit

Sub PDF()
   Dim NomFichier As String, CheminRepertoire As String, CheminComplet As String

   NomFichier = Range("H3").Value & " " & Range("K3").Value & " " & Range("F10").Value & " " & _
                Range("C22").Value & " " & Range("H19").Value
   CheminRepertoire = "C:\Users\MuscatMimi\Desktop\"
   CheminComplet = CheminRepertoire & NomFichier
 
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, Quality:=xlQualityStandard, _
                                   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False   'True
   MsgBox "Le fichier a été créé sur le bureau! Fin de procédure."
End Sub

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 26 Août 2019

• #3

Bonjour a tout le <Forum
Merci Cathodique
Super ton code
Depuis des années j'ai plus touché le vba,je vais m'y remettre
J'avais des codes de ce genre mais j'ai tout perdu
merci encore
Christian

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 26 Août 2019

• #4

zut je viens de tester
ça beug ici
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 'True

 

Pièces jointes

• Sans titre.png

  7 KB · Affichages: 16

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 26 Août 2019

• #5

zut je viens de tester
ça beug ici
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 'True

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 26 Août 2019

• #6

essai avec le nom d'une seule cellule,ça fonctionne,mais avec plus non ça beug

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 26 Août 2019

• #7

oups j'ai trouvé,dans une cellule il y a avait un / 2019/201,c'est la que ça beug,maintenant c'est bon
merci a tous

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 26 Août 2019

• #8

Désolé pour ce retard. Mais, tu as réussi toute seule à trouver la faille.
En effet, certains caractères ne sont pas permis dans le nom de fichiers. Le problème vient du slash ( / ). Bonne soirée.

 

Vote positif 0 Vote négatif