Enregistrer pdf en fonction de la date Excel 2016

Bonjour cher camarades d'excel,

Je cherche un moyen d'enregistrer sous format pdf un fichier Landa avec un nom variable; typiquement "nomdufichier_ladate.pdf" sous une version excel 2016

Bonjour,

Pour PDF et Excel 2016 je ne sais pas, mais petite procédure avec un enregistrement fichier Excel avec nom variable, la date se rajoute à l'endroit où il y a l'extension de fichier en remplaçant le point par un espace + la date + le point.

Peu importe le nom du fichier, la macro rajoutera la date à la fin de son nom.

Voici le résultat que tu peux tester, en espérant que ça t'aidera

12exemple.xlsm (14.79 Ko)

je voudrais l'enregistrer dans un dossier du type

chemin: "H:/monnom/mondossier/monresgistre/"

fichier= "nomdufichier.ladate.xlsx"

Bonjour,

Dans ce cas il te faudra plutôt ce code :

Sub Macro1()
date_actu = DateTime.Day(Date) & "-" & DateTime.Month(Date) & "-" & DateTime.Year(Date)
    ChDir "H:\"
        ActiveWorkbook.SaveAs Filename:= _
        "H:\monnom\mondossier\monresgistre\" & Replace(ActiveWorkbook.Name, ".", " " & date_actu & "."), _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Filename est égal à : ton chemin "H:\monnom\mondossier\monresgistre\" auquel on rajoute le résultat de la fonction Replace.

La fonction Replace remplace le . de l'extension du fichier par un espace + la date actuelle + le point, cette fonction est apliquée cette fois, non pas sur le nom entier du fichier (qui contient le chemin), mais sur son nom court (exemple.xlsm par exemple).

Je te laisse voir ça pour ton cas

faudrai que ca soit une copie en pdf

Rebonjour,

J'ai cherché un peu, le code pour enregistrer en PDF est légèrement différent, celui-ci fonctionne, j'ai fait le test chez moi avec un chemin valide :

Sub Test()
On Error Resume Next
date_actu = DateTime.Day(Date) & "-" & DateTime.Month(Date) & "-" & DateTime.Year(Date)
nomf = ActiveWorkbook.Name
nomf = nomf & " " & date_actu & ".pdf"
'chemin = "H:\monnom\mondossier\monresgistre\"
chemin = "C:\Users\TEMP\Documents\"

If Dir(chemin, vbDirectory) = "" Then
MsgBox ("Le chemin d'accès n'est pas valide")
Exit Sub
End If

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & nomf, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

Il faudra modifier les commentaires pour mettre ton chemin en variable chemin.

Bonjour,

Bonjour Ausecour,

Pour récupérer le nom du fichier sans son extension :

Mid(ActiveWorkbook.Name, 1, InStrRev(ActiveWorkbook.Name, ".") - 1)

Cdlt.

Bonjour Jean-Eric, de mon coté si j'affichais le nom, ça me le mettait déjà sans extensión

Ça m'affichait "Classeur 1"

Re,

Car ton fichier n'avait pas été encore enregistré.

Cdlt.

Re,

Car ton fichier n'avait pas été encore enregistré.

Cdlt.

Bien vu! Du coup je ne lui avais pas encore affecté d'extension!

Salut le soldats,

je vous remercie c'est niquel!

Rechercher des sujets similaires à "enregistrer pdf fonction date 2016"