préremplir un "enregistrer sous"

[tactic6]

Bonjour à tous

avec cette fonction dans une macro imprimer on enregistre d'abord dans un fichier pdf et ensuite on imprime

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ce que je n'ai pas réussi à trouver avec mes recherches c'est comment arriver à nommer automatiquement " enregistrer sous "
en clair actuellement j'ai "Nom.pdf"
ce que j'aimerais c'est la reprise de 2 cellules [H8 et J6] pour avoir [H8 J6].pdf

je suis pas sur d'avoir été clair non ?

 

[Zlopeck]

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...

 

[tactic6]

Re : préremplir un "enregistrer sous"

merci je vais essayer de l'adapter à ma macro

 

[tactic6]

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

 

[tactic6]

Re : préremplir un "enregistrer sous"

Salut

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

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 ...

 

[fred65200]

Re : préremplir un "enregistrer sous"

bonjour,

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


cordialement

 

[tactic6]

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