préremplir un "enregistrer sous"

Re : préremplir un "enregistrer sous"

Bonjour,

Pour ma part, j'utilise cette macro qui enregistre en PDF dans le dossier souhaité et qui nomme l'enregistrement par le contenu d'une cellule (ici D11) et qui lui ajoute les deux derniers chiffres de l'année en cours ainsi que la date du jour d'enregistrement entre parenthèses. Par exemple si le contenu de la cellule est 1, le fichier sera nommé 108 (21 01 08)
Cette macro peut facilement être adaptée aux besoins de chacuns.

'enregistrement PDF
Dim Fichier As String
x = Range("D11").Value
Fichier = "" & x & Format(Date, "yy") & Format(Date, "(dd-mm-yy)")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"F:\compta\administratif\sauvegardes factures et devis\" & Fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

bon courage...

Re : préremplir un "enregistrer sous"

merci je vais essayer de l'adapter à ma macro

Re : préremplir un "enregistrer sous"

Super en bidouillant un peu j'ai exactement ce que je voulais
encore 2 ou 3 petits trucs et je serais ok

Re : préremplir un "enregistrer sous"

Salut

comment faire pour ne pas avoir le nom de la feuille
j'ai modifier en
Fichier = " " & x & " " & y & Format(Date, "(dd-mm-yy)")
apparemment sur ce code Fichier= reprend le nom de la feuille j'aimerai qu'il prenne le nom d'une cellule exemple [G6] mais je ne voie pas comment faire
si quelqu'un peut m'aider ...

Re : préremplir un "enregistrer sous"

bonjour,

ton code devrait fonctionner
en D11, est qu'il y a le nom de ta feuille?


cordialement

Re : préremplir un "enregistrer sous"

Salut Fred65200
je te remercie encore pour ton aide de la dernière fois ça a été vraiment super
j'ai abandonné l'enregistrement en pdf car il (je) s'emmêlait un peu avec ta macro du coup j'enregistre tout en .xls c'est un peu plus volumineux mais ça me convient très bien