Correction code export PDF/ Excel

Hello tout le monde.

Quelqu'un pourrait m'aider à corriger mon code vba pour export.

Le message d'erreur affiché me dit que le document n'est pas enregistré ou il est ouvert. je comprends pas pourquoi.

La feuille que je souhaite exporter est la feuille SUIVI CC je pense qu'il faut l'activer avant de procéder à l'export.

Je vous remercie par avance pour votre aide.

Sub macroimpression()

date1 = Sheets("Mapping").Cells(4, 4)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"PP:\6. Budget\2017 Budget\4. Suivi mensuel\Suivi 17\Impression\" & "Suivi V3 " & date1 & ".pdf", _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

ChDir _

"PP:\6. Budget\2017 Budget\4. Suivi mensuel\Suivi 17\Impression"

ActiveWorkbook.SaveAs Filename:= _

"PP:\6. Budget\2017 Budget\4. Suivi mensuel\Suivi Color Code GJ17\Impression\" & "Suivi V3" & date1 & ".xlsx" _

, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Bonjour,

A accommoder

Sub Archivage()
Dim reponse As Integer

reponse = MsgBox("Veux-tu créer un fichier PDF à partir du feuille active ?", _
vbYesNo + vbDefaultButton2 + vbExclamation, "Créer un fichier PDF")

ChemindAcces$ = ThisWorkbook.Path & ""
NomFichier$ = Worksheets("Chindou").Range("A1").Value & ".pdf"
ChemindFichier$ = ChemindAcces$ & "\" & NomFichier$
If reponse = vbNo Then End
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ChemindFichier$, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub