Macro pour sauvegarder automatiquement un fichier excel

kernaleguen

XLDnaute Nouveau
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
 

Pièces jointes

  • Maquette facture photocopie biblio - 24 01 2019xlsx.xlsx
    11.5 KB · Affichages: 18

JM27

XLDnaute Accro
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
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub
 

kernaleguen

XLDnaute Nouveau
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
 

Pièces jointes

  • Erreur.xlsx
    35.4 KB · Affichages: 10

Discussions similaires

Haut Bas