Enregistre en format et envoier en PDF

Bonjour voici un fichier avec:

- Un code avec envoie mail il fonctionne.

l'autre et enregistre en format PDF la j'ai un problème possibilité de me donner un coup de main

merci

Bonjour

voila pour le format PDF

A voir

Sub Format()
   With ActiveSheet.PageSetup
    .PrintArea = "$A$1:$J$57"
    .Orientation = xlPortrait ' Portrait
    .PaperSize = xlPaperA4 'Format papier
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .BlackAndWhite = False ' Couleur
   End With
Chemin = ThisWorkbook.Path & "\"
'    NomDoc = Range("A1").Value
NomDoc = "Main courante "
NomFiche = Chemin & NomDoc & Format(Now, "-dd-mmmm-yyyy") & ".pdf"
   Call EditionPDF(NomFiche)
 MsgBox "Edition Terminer"
End Sub

Sub EditionPDF(NomFiche)
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End Sub

A+

Maurice

Bonjour,

Vous ne pouvez pas enregistrer votre fichier avec des slash (/).

ci_jointe correction + amélioration pour le choix de votre dossier.

Merci beaucoup

Je peut envoi mon mail en PDF comment je peut effacer le contenu une fois que j'ai enregistre mon fichier

Bonsoir,

Houn54 a écrit :

comment je peut effacer le contenu

Soyez plus clair dans votre demande. De quel contenu s'agit-il ??

de ma feuille

Bonsoir,

Le plus simple est d'avoir une feuille modèle vierge qui est recopiée après enregistement.

ci-joint exemple.

Merci sa fonctionne bien mes j'ai une erreur quand je enregistre dans mon dossier Main courant

- Dossier main courante

si je crée des dossiers comme janvier février mars avril etc il me me errer

Bonsoir,

ci-jointe version corrigée

-Non sa ne fonctionne pas

While dossier.Title <> mes_documents.Name

Houn54 a écrit :

-Non sa ne fonctionne pas

Chez moi, ça fonctionne.

"While dossier.Title <> mes_documents.Name" quel est le message d'erreur ?

Erreur d' exécution '91':

Variable objet ou variable de bloc with non définie

Pour le moment, je ne vois pas où est le problème car cela fonctionne chez moi.

A quel moment se produit l'erreur ? Après sélection du dossier de stockage ?

A tout hasard, essayer cette nouvelle version

il me mes l’erreur des que je clic sur ok quand je sélection mon dossier( janvier )

-dans Main courant j'ai crée des dossiers les mois de l'année

que se passe-t-il quand vous sélectionnez le dossier "Documents" ?

que se passe-t-il quand vous sélectionnez le dossier "Main courante" ?

Je clic sur enregistré une

Premier fenêtre s'ouvre avec différents emplacement de dossier.

Je sélectionne mon dossier main courante puis un dossier que j'ai créé à l'intérieur comme

Janvier février mars

Est ls sa marche pas

Bonjour,

Puisque cela ne fonctionne pas chez vous, autre version sans option de création de dossier.

Bonjour j'arrive a enregistre mon ficher mes comment peut-on faire pour que il s'enregistre dans des dossiers

regarde voir ce que tu peut faire pour améliorer sur le ficher.

fait comme si que ce été a toi