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