Microsoft 365 Enregistrement répertoire de mon choix

[FCMLE44]

Bonjour

J'ai le code ci dessous. Toutefois je souhaiterais donner à ce fichier le nom que je souhaite et l'enregistrer dans le répertoire de mon choix

Sub PDF()
Dim sNomFichierPDF As String
Dim Ar(1) As String

sNomFichierPDF = ThisWorkbook.Path & "\" & "Test.pdf"
Ar(0) = "Renseignements Salarié"
Ar(1) = "Feuille Calcul Indemnités"
Application.ScreenUpdating = False
Sheets(Ar).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sNomFichierPDF, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Sheets("Renseignements Salarié").Select
Application.ScreenUpdating = True
End Sub

Néanmoins, cette ligne, je pense me cause un souci

sNomFichierPDF = ThisWorkbook.Path & "\" & "Test.pdf"

Quelqu'un aurait il une idée ?

 

[Muratime]

Comme il n'y a pas de réponse alors j'ai shunté le user form et tu peux supprimer le contenu de cellule B5, et tu pourras choisir qu'une seule ligne dans le choix des feuilles dans le vba a toi de voir lesquels a modifier. Je pense que tout est comme tu voulais.

 

[Muratime]

Je voulais rajouter que pour ceux qui veulent utiliser ce fichier, il faut que quand vous fassiez enregistrer sous et qu'il n'y pas l'option PDF alors il faudra prendre un module complémentaire "save as PDF" pour excel ce que je me suis rendu compte sous excel 2007.
Je dis ça pour les nuls comme moi hahahaha