Enregistrement d'une feuille Excel en VBA

Bonjour,

Je cherche a enregistrer une feuille excel en PDF et en la renommant....tout fonctionne sauf quel ne se renomme pas !

Quelqu'un pourrait il me renseigner

Sub enregistre_nom_date()
'
' enregistre_nom_date Macro
'

'Dim Chemin As String, NomFichier As String
NomFichier = Range("c12").Value & "_" & Range("a23").Value & "_" & Format(Date, "dd_mm_yyyy") & Range("c23").Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"

ChDir "C:\Users\Administrateur\Documents\CERBERE\LOCATION"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Administrateur\Documents\CERBERE\LOCATION\ & NomFichier" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True


End Sub

Bonjour,

Teste comme ceci

Sub enregistre_nom_date()
'
' enregistre_nom_date Macro
'

'Dim Chemin As String, NomFichier As String
NomFichier = Range("c12").Value & "_" & Range("a23").Value & "_" & Format(Date, "dd_mm_yyyy") & Range("c23").Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"

ChDir "C:\Users\Administrateur\Documents\CERBERE\LOCATION\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Administrateur\Documents\CERBERE\LOCATION\" & NomFichier _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

End Sub

Merci. J'essaie et te tiens au courant

Re... il me marque une erreur " le fichier est peut etre ouvert ou une erreur c'est produite lors de l'enregistrement"

désolé de te déranger , mais merci de ton aide

Re,

Verifie le lien de l'emplacement,

Chez moi avec mon lien, cela fonctionne

dans ma macro , il enregistrait bien mais avec comme nom "& Nom "

Re,

Plus court

Sub enregistre_nom_date()
'
' enregistre_nom_date Macro
Dim Chemin As String, NomFichier As String
NomFichier = Range("c12").Value & "_" & Range("a23").Value & "_" & Format(Date, "dd_mm_yyyy") & Range("c23").Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"

Chemin= "C:\Users\Administrateur\Documents\CERBERE\LOCATION\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & NomFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

End Sub

desolé toujours le meme message d'erreur

Re,

Eh bien, je n'en ferazi pas plus,

J'ai testé sur mon PC Excel 2013, tout est OK

merci de ton aide ......sais tu ce qu'est l'erreur d'execution 1004

Google est ton ami

https://fr.repairmsexcel.com/blog/comment-reparer-une-erreur-dexecution-1004

Mais de mon côté l'erreur provient du lien

Chemin= "C:\Users\Administrateur\Documents\CERBERE\LOCATION\"