Enregistrer un nom de doc avec macro

Bonjour,

J'ai le code suivant pour enregistrer sous un document excel en version pdf. J'aimerai juste que le nom du doc tienne compte de la semaine en cours. càd où le S est coloré rouge j'aimerai pouvoir, par exemple si on est en S43, mettre 43 à la suite du S.

Est ce possible ? Merci de votre aide.

Sub Enregistrer_ADECCO()

'

' Enregistrer_ADECCO Macro

'

'

ChDir "Q:\RH\INTERIM\ADECCO\CONTRATS_ADECCO\2019_ADECCO"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"Q:\RH\INTERIM\ADECCO\CONTRATS_ADECCO\2019_ADECCO\CONTRATS_2019_ADECCO_S.pdf", _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=True

End Sub

Bonjour

Code à essayer :

Sub Enregistrer_ADECCO()
' Enregistrer_ADECCO Macro

Dim SemEnCours As Variant
SemEnCours = DatePart("ww", Date, 2, 1)

ChDir "Q:\RH\INTERIM\ADECCO\CONTRATS_ADECCO\2019_ADECCO"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Q:\RH\INTERIM\ADECCO\CONTRATS_ADECCO\2019_ADECCO\CONTRATS_2019_ADECCO_S" & SemEnCours & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

End Sub

Cordialement

Super, ça fonctionne parfaitement.

Merci bcp !!

Rechercher des sujets similaires à "enregistrer nom doc macro"