Automatiser Nom d'un fichier via PDF Créator

Bonjour,

j'ai développé un petite macro (avec l'aide du forum soit dit en passant !) me permettant d'éditer automatiquement via un bouton l'impression d'un onglet selon une liste de personne.

Cela fonctionne bien.

Je souhaiterais apporter une amélioration.

lors de l'édition sur mon imprimante par défaut PDF Créator, ce dernier me gère X fichiers sous le même nom. Ce nom est celui que porte le fichier EXCEL.

je souhaiterais que chaque fichier reprenne automatiquement le nom de l'employé figurant dans la cellule "Nom employé" du TCD.

Est-ce possible ? je suppose via une macro ?

ci-joint un fichier type (ouvrir en lecture seule)

Bonjour,

Impossible de cette manière, sauf à renommer le fichier une fois enregistré. Avec un copier/coller, je t'invite à regarder ce poste.

Sinon, tu peux simplement enregistrer directement le fichier en PDF. ci-après un macro à adapter :

Sub Enregistrer_PDF()
Dim mois As String
mois = Range("C3").Value
Dim ann As String
ann = Range("B3").Value
Dim dest As String
dest = "destination du fichier"
If Dir(dest) = "" Then
MsgBox "Le répertoire de destination n'existe pas."
Exit Sub
End If

dest = "destination du fichier"

  With Sheets("Ligne éditoriale").PageSetup
    .LeftMargin = Application.InchesToPoints(0)
    .RightMargin = Application.InchesToPoints(0)
    .TopMargin = Application.InchesToPoints(0.5)
    .BottomMargin = Application.InchesToPoints(0)
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
  End With
Sheets("Ligne éditoriale").ExportAsFixedFormat Type:=xlTypePDF, Filename:=dest
ThisWorkbook.FollowHyperlink dest
End Sub

Cdlt,

Merci pour votre retour rapide.

via un enregistrement en PDF, cela fonctionne parfaitement comme je le souhaitais.

je vous remercie encore une fois.