Exporter et enregistrer feuille format datet heure

Bonsoir à tous,

Je souhaite exporter et enregistrer une feuille (2) en pdf avec pour nom du nouveau fichier une partie fixe et l'autre partie variable (date et heure).

Voici mon code :

Private Sub Cmd_quitter_Click()

Dim Dossier As String, Chemin As String, PdfFile As String, Jour As String

Dossier = "C:\Users\nnn\Desktop\Nouveau dossier\"

Chemin = Dossier & "\"

Jour = Format(Now(), "dd-mm-yyyy hh:mm")

PdfFile = "1282" & "_" & Jour & ".pdf"

Feuil2.Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & PdfFile, _

Quality:=xlQualityStandard, IncludeDocProperties:=True, _

IgnorePrintAreas:=False, OpenAfterPublish:=False

Unload UserForm1

ThisWorkbook.Close SaveChanges:=True

End Sub

J'obtiens le message suivant : Erreur d'exécution '-214702477 et la mise en surbrillance de cette partie :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & PdfFile, _

Quality:=xlQualityStandard, IncludeDocProperties:=True, _

IgnorePrintAreas:=False, OpenAfterPublish:=False

Quel est le problème ? Quelqu'un pourrait m'aider à trouver une solution ? Merci.

Bonsoir

A vérifier

Dans ton code tu termines ta variable Chemin par 2 anti-slash

1 ici

Dossier = "C:\Users\nnn\Desktop\Nouveau dossier\"

et un autre ici

Chemin = Dossier & "\"

Second problème : Il ne faut pas de : (2 points) dans le nom du fichier

Jour = Format(Now(), "dd-mm-yyyy hh:mm")

Merci ! J'ai en effet supprimer les : et les \ et cela fonctionne. Merci pour ton aide.

J'ai essayé de reprendre cela mais toujours le même message d'erreur qui s'affiche.

peux-tu m'envoyer le source corrigé?

Merci