Macro pour sauvegarder automatiquement un fichier excel

Bonjour
Ci joint une macro qui te permettra d'enregistrer ton fichier
Ici , l' chemin est le même que celui du fichier
A toi d'adapter les variables CheminDeCeFichier et NomDeCeFichier comme tu le souhaites
Sub Archivage()
CheminDeCeFichier = ThisWorkbook.Path
NomDeCeFichier = Replace(Range("E17"), "/", "-") & Range("F17")
ActiveWorkbook.SaveAs Filename:= _
CheminDeCeFichier & "\" & NomDeCeFichier
End Sub

A toi aussi de la mettre dans thisWorkbook

Bonjour,

Cela fonctionne très bien

Merci et bonne journée

Re bonjour

Je souhaite sauvegarder ce fichier non seulement en XLS mais aussi en PDF. J'ai bien une macro qui me permet de réaliser ces 2 sauvegardes mais lorsque j'ouvre le PDF un message d'erreur apparait (cf. pièce jointe). Pouvez-vous m'aider ?

Merci