Macro pour sauvegarder automatiquement un fichier excel

[kernaleguen]

Bonjour,

Je souhaite obtenir une macro qui me permettrait -avant de fermer excel- d'enregistrer le bon de commande que j'ai créé.

Le nom du fichier doit changer à chaque sauvegarde et doit indiquer le n° du bon de commande. Le nom du fichier serait construit ainsi : photocopie-bibliotheque+n° du bon de commande. Ce fichier doit être sauvegardé selon le chemin suivant : Y:\XX1\XX2\XX3

Je vous remercie par avance

Bien cordialement

 

[JM27]

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

 

[kernaleguen]

Bonjour,

Cela fonctionne très bien

Merci et bonne journée

 

[kernaleguen]

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