Enregistrement PDF utilisant VBA - PB de nom de fichier

[chnook]

Bonjour,

Je souhaiterais utiliser VBA pour enregistrer une des feuilles d'un classeur Excel dans mon répertoire D avec un nom de fichier en fonction d'un nom d'entreprise (contenu dans la cellule A1) et la date.
J'ai utilisé notamment la discussion suivante pour faire le code :
https://www.excel-downloads.com/threads/enregistrement-feuille-en-pdf-avec-vba.177844/
En revanche j'ai un petit soucis pour le nom du fichier, le nom de l'entreprise n'est pas prit en compte. Le fichier s'enregistre sous D, avec le nom -19012015 au lieu de A-19012015.
Voici le code utilisé :

Sub pdf()
'Enregistrer un pdf de la feuil1 sous le nom : Entreprise-LaDate
' Emplacement : bureau

Dim Fichier As String
Dim Entreprise As String
Dim LaDate As String
LaDate = Format(Date, "ddmmyyyy")
Sheets("Feuil1").Select
Enterprise = Range("A1").Value

'Nom du fichier (exemple) : ABC-01012015
Fichier = "-" & Entreprise & "-" & LaDate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & Fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

Le fichier test est joint.
Merci d'avance pour votre aide / propositions

 

[camarchepas]

Re : Enregistrement PDF utilisant VBA - PB de nom de fichier

Bonjour ,

Petit conseil ,

En premiere ligne de module ajoute :

Option Explicit' : Cela t'oblige à déclarer les variable , et là

tu vas t'apercevoir que :

Enterprise = Range("A1").Value alors que tu aurais du avoir

Entreprise = Range("A1").Value

 

[pierrejean]

Re : Enregistrement PDF utilisant VBA - PB de nom de fichier

Bonjour chnook

Peut-être en orthographiant correctement Entreprise dans la ligne:

Enterprise = Range("A1").Value

Nb : Je n'ai pas testé !!!

Edit : Bing !! Salut Camarcheapres

 

[chnook]

Re : Enregistrement PDF utilisant VBA - PB de nom de fichier

Merci beaucoup pour le conseil. P'tite faute de frappe - Grosse prise de tête ^^