Enregistrement en PDF nom fichier contenant une date au format "mois année"

[cathodique]

Bonjour,

je me tourne vers vous pour trouver une solution en VBA. J'enregistre un fichier en pdf, dont le nom est formé de cellules concaténées. l'une des cellules contient une date au format "mois année" (Août 1993). je pense que c'est cette cellule qui pose problème, bug sur le code d'enregistrement en pdf.

Sub Publier_en_pdf()
Dim Chemin As String, fichier As String
Chemin = ThisWorkbook.Path

Sheets(Array("source", "Graph1")).Select

fichier = Chemin & "\" & "Rapport " & Sheets("source").Range("F1") & " " & "Région: " & Sheets("source").Range("C1") & "-" & "site: " & Sheets("source").Range("C2") & ".pdf"
    
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Sheets("Feuil4").Select
End Sub

je joins le fichier en vous remerciant.

Cordialement,

 

[cathodique]

Re : Enregistrement en PDF nom fichier contenant une date au format "mois année"

Re,

après quelques recherches, malgré un bug sur la ligne de code d'enregistrement en pdf, le fichier a bien été créé (mystère) sous ce nom: "Rapport 8 1993 Région montreuil-site G1.pdf"
j'ai modifié cette ligne ainsi:

fichier = Chemin & "\" & "Rapport " & Month(Sheets("source").Range("F1")) & " " & Year(Sheets("source").Range("F1")) & " " & "Région " & Sheets("source").Range("C1") _
& "-" & "site " & Sheets("source").Range("C2") & ".pdf"

pour mois je récupére un "8" comment faire pour récupérer en texte c_à_d "Août"

merci

Cordialement,

 

[JCGL]

Re : Enregistrement en PDF nom fichier contenant une date au format "mois année"

Bonjour à tous,

Tu as des caractères interdits dans le nom du fichier (les deux points).
Peux-tu essayer :

fichier = Chemin & "\" & "Rapport_" & Format(Sheets("source").Range("F1"), "mmmm_yyyy") & " " & "Région_" & Sheets("source").Range("C1") _& "Site_" & Sheets("source").Range("C2") & ".pdf"

A+ à tous

 

[cathodique]

Re : Enregistrement en PDF nom fichier contenant une date au format "mois année"

Bonjour,

En effet, pour les 2 points je m'en suis rendu compte et je t'en remercie. je te soumets mon dernier code qui apparemment passe bien sauf que maintenant, j'ai un bug que je ne comprends vraiment pas. j'ai un message "erreur 1004" m'indiquant que le document non enregistré ........... alors que je le retrouve bel et bien enregistré. (voir fichier joint)

fichier = Chemin & "\" & "Rapport " & MonthName(Month(Sheets("source").Range("F1").Text)) & " " & _
Year(Sheets("source").Range("F1")) & " " & "Région " & Sheets("source").Range("C1") _
& "-" & "site " & Sheets("source").Range("C2") & ".pdf"

là je n'y comprends plus rien, je m'en remets à vous. merci pour votre aide. J'essaie ton code et je reviens pour donner la suite.
Cordialement,

 

[cathodique]

Re : Enregistrement en PDF nom fichier contenant une date au format "mois année"

Re JCGL,

je viens de faire un test avec ton code et c'est le même bug que j'ai en retour. le message, l'arrêt sur la ligne de code de création du pdf alors que le fichier est créé.

Merci beaucoup

Cordialement,

 

[JCGL]

Re : Enregistrement en PDF nom fichier contenant une date au format "mois année"

Bonjour à tous,

Place un On Error Resume Next avant l'export.

A+ à tous

 

[cathodique]

[Résolu]: Enregistrement en PDF nom fichier contenant une date au format "mois année"

JCGL, je te remercie beaucoup ça fonctionne bien.

"L'expérience fait toute la différence"

merci encore.

Cordialement,