Avoir un Filname variable avec VBA Excel
Résolu
Bonjour,
J'ai un soucis et je pense que quelqu'un pourra m'aider.
Voilà, j'ai créé une macro sur Excel qui me permet d'enregistrer mon fichier dans un endroit bien précis et sous un format .pdf.
Bref là n'est pas le problème.
Je souhaiterais que mon fichier pdf s'enregistre sous un le nom du client à qui le fichier est destiné. Le nom du client étant indiqué sur le fichier, je voudrais que VBA le récupère pour l'utiliser en tant que nom du fichier à enregistrer.
Le nom du fichier est donc variable.
Pour cela, il doit y avoir une formule à entrer dans VBA après "filename=..."
J'espère avoir été clair!
Merci beaucoup.
--
Time is money !
J'ai un soucis et je pense que quelqu'un pourra m'aider.
Voilà, j'ai créé une macro sur Excel qui me permet d'enregistrer mon fichier dans un endroit bien précis et sous un format .pdf.
Bref là n'est pas le problème.
Je souhaiterais que mon fichier pdf s'enregistre sous un le nom du client à qui le fichier est destiné. Le nom du client étant indiqué sur le fichier, je voudrais que VBA le récupère pour l'utiliser en tant que nom du fichier à enregistrer.
Le nom du fichier est donc variable.
Pour cela, il doit y avoir une formule à entrer dans VBA après "filename=..."
J'espère avoir été clair!
Merci beaucoup.
--
Time is money !
3 réponses
-
ContributeurBonjour,
chemin="D:\tmp\"
' nom du fichier en A1
... Filename:= chemin & A1 & ".pdf", ...
eric -
Bonjour,
Lorsque j'ajoute votre formule dans mon module VBA, l'enregistrement se fait toujours au dessus du précédent...
-
Et bien j'ai créer un bouton "enregistrer" auquel j'ai affecté la macro.
Après Filename, j'ai écrit le nom de la cellule dont je souhaite que le contenu serve de nom pour le fichier.
Mais l'enregistrement se fait toujours sous le nom du classeur et pas sous le nom de la cellule-
-
Sub Macro1()
'
' Macro1 Macro
'
'
ChDir "C:\Users\christophe\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\tmp\"&[B13] _
"C:\Users\christophe\Desktop\CONTRAT_LOCATION.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Voilà la macro...
La sauvegarde ne fonctionne pas -
ContributeurC'est sûr que si tu mélanges mon répertoire et le tien ça ne va pas marcher...
Filename:="C:\Users\christophe\Desktop\ & [B13] & ".pdf"
avec en B13 de la feuille active le nom du fichier : CONTRAT_LOCATION
Si la feuille risque de ne pas être active alors :
Filename:="C:\Users\christophe\Desktop\ & [Feuil1!B13] & ".pdf"
eric -
-
