Enregistrement PDF avec modification du nom

Bonjour à tous,

j'ai créé le code ci-dessous pour un enregistrement en PDF avec le nom du fichier pris sur certaine cellule, mais la macro tourne et rien ne se passe, j'imagine avoir fait une erreur mais je ne vois pas ou

si l'un d'entre vous peux m'aider Merci par avance :

'Declaration des variables en Public
Public Utilisateur As String
Public Dossier As String

Sub ExportPDF_H_FicheArticle()

Dim Utilisateur As String, Dossier As String, Fichier As String

Dim LaDate As String

Dim LHeure As String

' Formatage de la date et de l'heure

 LaDate = Format(Now, "yyyy_mm_dd_")

 LHeure = Format(Time, "hh_mm_ss")

Utilisateur = Environ("username")

Range("A1:U56").Select

Dossier = "C:\Users\" & Utilisateur & "\CIME CAPITAL\Base Documentaire - Documents\7- Supply Chain\7.21 Management\RH\Archive PDF H Inétim 2024\"

 Fichier = "[C6] & & [N54] & & [A8] & & [S46] & & LaDate & LHeure & .pdf"

ActiveWorkbook.Save ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier & Fichier, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

bonjour,

Fichier = "[C6] & & [N54] & & [A8] & & [S46] & & LaDate & LHeure & .pdf"

Cette ligne est peut être à revoir

Bonjour à tous,

Il ne faut pas déclarer les variables à la fois "Public" et "Dim", une seule déclaration par variable.

Une suggestion :

'Declaration des variables en Public
'Public Utilisateur As String
'Public Dossier As String

Sub ExportPDF_H_FicheArticle()
Dim Utilisateur As String, Dossier As String, Fichier As String
Dim LaDate As String
Dim LHeure As String

   ' Formatage de la date et de l'heure
   LaDate = Format(Now, "yyyy_mm_dd_")
   LHeure = Format(Time, "hh_mm_ss")
   Utilisateur = Environ("username")
   Range("A1:U56").Select

   Dossier = "C:\Users\" & Utilisateur & "\CIME CAPITAL\Base Documentaire - Documents\7- Supply Chain\7.21 Management\RH\Archive PDF H Inétim 2024\"

   Fichier = [C6] & "_" & [N54] & "_" & [A8] & "_" & [S46] & "_" & LaDate & LHeure & ".pdf"

   ActiveWorkbook.Save
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier & Fichier, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
   Range("A1").Select
End Sub

Bizz