enregistrer pdf en fonction de la date excel 2016 Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
n
naubin1
Membre fidèle
Membre fidèle
Messages : 325
Inscrit le : 3 avril 2018
Version d'Excel : 2010

Message par naubin1 » 27 juin 2018, 11:21

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

::( ::( ::( ::( ::( ::(
:btres:
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'118
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 27 juin 2018, 13:05

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 ;;)
exemple.xlsm
(14.79 Kio) Téléchargé 8 fois
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
n
naubin1
Membre fidèle
Membre fidèle
Messages : 325
Inscrit le : 3 avril 2018
Version d'Excel : 2010

Message par naubin1 » 27 juin 2018, 13:45

je voudrais l'enregistrer dans un dossier du type
chemin: "H:/monnom/mondossier/monresgistre/"
fichier= "nomdufichier.ladate.xlsx"
:btres:
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'118
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 27 juin 2018, 14:10

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 ;;)
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
n
naubin1
Membre fidèle
Membre fidèle
Messages : 325
Inscrit le : 3 avril 2018
Version d'Excel : 2010

Message par naubin1 » 29 juin 2018, 17:03

faudrai que ca soit une copie en pdf
:btres:
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'118
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 2 juillet 2018, 08:48

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.
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'698
Appréciations reçues : 700
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 2 juillet 2018, 09:50

Bonjour,
Bonjour Ausecour,
Pour récupérer le nom du fichier sans son extension :
Mid(ActiveWorkbook.Name, 1, InStrRev(ActiveWorkbook.Name, ".") - 1)
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'118
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 2 juillet 2018, 09:53

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

Ça m'affichait "Classeur 1"
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'698
Appréciations reçues : 700
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 2 juillet 2018, 09:57

Re,
Car ton fichier n'avait pas été encore enregistré. ;;)
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'118
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 2 juillet 2018, 10:04

Jean-Eric a écrit :
2 juillet 2018, 09:57
Re,
Car ton fichier n'avait pas été encore enregistré. ;;)
Cdlt.
Bien vu! Du coup je ne lui avais pas encore affecté d'extension!
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message