Problème Macro PDF sur Excel

Question

Bonjour,

Depuis le changement de mon EXCEL (2010 => 2016), la macro de mon fichier excel ne fonctionne plus.
Cette dernière avait pour but de mettre en PDF, 5 onglets de mon fichier EXCEL.

Aujourd'hui quand je l'actionne, elle m'affiche "erreur 400". Pouvez vous m'aider sur ce sujet s'il vous plaît.

Voici la Macro:

Sub Exporter_PDF() 

On Error Resume Next 
ChDir ("C:\" & Environ("username") & "\Desktop\Tableau_de_bord\") 
If Err Then MkDir ("C:\" & Environ("username") & "\Desktop\Tableau_de_bord\") 'pour le créer 
On Error GoTo 0 

Sheets(Array("8 principaux indicateurs", "Focus livs, qualite & VO", "Visuel", "8 principaux indicateurs N-1", "MARQUE")). _ 
Select 
Sheets("8 principaux indicateurs").Activate 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"C:\" & Environ("username") & "\Desktop\Tableau_de_bord\" & Worksheets("8 principaux indicateurs").Range("B8") & " " & Range("D4") & ".pdf", Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ 
False 
End Sub

Edit modo : merci de mettre le code entre balises

Merci par avance.

Xmenpl · Answer

Apparemment aucune erreur dans le code vba. Quelques solutions pour une erreur 400 qui ne devrait pas exister entre ces deux versions. Dont le déplacement du code des macros dans un nouveau module créé avec la version 2016. http://fr.repairmsexcel.com/blog/fixer-excel-vba-erreur-400...