Macro avec enregistrement automatique du nom de la feuille

Bonjour à tous et toutes,

je suis en néophyte (voir plus) en VBA ,

Je souhaite créer une macro qui va me permettre d'imprimer automatiquement une feuille de mon classeur Excel.

Cette feuille est déjà mise en page donc pas de manipulation à faire

Et j'aimerai que cette macro nomme le PDF de la même manière que le feuille Excel active et l'enregistre sur le même répertoire réseau.

voici le code que j'ai trouvé sur le forum:

Sub PDF()

NomFichier = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 5)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFichier

End Sub

Celui ci marche très bien , par contre il nomme l'enregistrement PDF de la même manière que le fichier. J'ai bien tenté de chercher à modifier le code mais rien ne fait.

Avez-vous une idée de comment faire?

Merci énormément par avance pour votre aide

Hello,

Possible de partager un fichier

Hello Mc Charon,

Non je ne peux pas, les données ne sont pas divulgables.

je sais que cela vas compliqué la tâche.

Bonjour à tous

NomFichier = ActiveSheet.Name

Voici un fichier excel pour exemple

j'ai une macro qui renomme le feuille par rapport à une cellule (ca ok)

la deuxième enregistre en PDF avec le nom du fichier et je souhaiterai enregistrer le PDF avec le nom de la feuille

@Sequoyah, j'ai testé et pas de résultat : "erreur d'exécution '1004''"

merci pour vos commentaires

Bonjour odlawso

Prenez l'habitude de définir des variables et de les remplir, cela vous évitera des ennuis

Sub enregistrement()
  Dim sPath As String, sNomFic As String
  sPath = ThisWorkbook.Path & "\"
  sNomFic = ActiveSheet.Name
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & sNomFic
End Sub

A+

Merci BrunoM45 la macro fonctionne parfaitement

Re,

A+