XL 2010 Enregistrer en PDF

[MuscatMimi]

Bonsoir a tous
9a fait des années que je touche plus le vba j'ai tout perdu
je désire enregistrer une feuille " Facture Emsm" au format PDF
Avec le nom du fichier dans les cellules suivante H3, K3, F10, C22, H19
Le chemin de destination est
"C:\Users\MuscatMimi\Desktop\"
merci a tous

 

[cathodique]

Bonjour,

à tester

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

 

[MuscatMimi]

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

 

[MuscatMimi]

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

 

[MuscatMimi]

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

 

[MuscatMimi]

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

 

[MuscatMimi]

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

 

[cathodique]

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.