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 ?

 

[FCMLE44]

ca fonctionne et ca enregistre bien le fichier. Mais ce que je souhaite et c'est la ma demande c'est que j'ai une boite de dialogue qui s'affiche pour que je puisse choisir moi même nommer et enregistrer dans le répertoire que je souhaite.

De plus je peux plusieurs feuilles a sélectionner ensemble

 

[Muratime]

Essai ceci par contre enregistrer plusieurs fichier en même temps cela ne va pas être possible

 

[FCMLE44]

Merci la macro fonctionne et me donne bien une boite de dialogue pour enregistrer ou je veux mon pdf mais puis je sélectionner moi meme les feuilles du classeur à mettre dans ce pdf ?

Je souhaiterais pouvoir nommer dans le module vb les feuilles que je mets dans ce dernier

 

[Muratime]

Bon voici juste un petit souci le fichier se renomme tout seul par Vrai lol sinon ça fonctionne suffi de choisir dans le vba si tu veux feuille 1 ou 2 ou plusieurs.

 

[Muratime]

En faite je suis une grosse bille en VBA c'était juste pour faire ma BA de la journée mais aussi montrer qu'avec google est ton amis tu peux faire beaucoup de chose lol et aussi vu que personne te répondais alors voilà

 

[FCMLE44]

Ok merci de m'avoir aidé quand même.

 

[Muratime]

Voilà le fichier fonctionne parfaitement il y a juste qu'il se renomme Vrai, une broutille qu'un cador excel va corriger 3 x rien 😛 sinon c'est bien ça que tu voulais mise a part cette broutille ?

 

[Muratime]

Final test

 

[FCMLE44]

merci excel pratique
Cest sympa quand même je regarde

 

[FCMLE44]

C vrai que j'obtiens la boite dialogue mais je ne souhaites pas sélectionner les feuilles via un userform, je préfère qu'ils soient indiqués brut dans le code et j'irais les mettre à jour
Merci Stepaustras

 

[Muratime]

Me suis dis que j'allais pas te laisser en plan lol

 

[FCMLE44]

Me suis dis que j'allais pas te laisser en plan lol

sympa

 

[FCMLE44]

Me suis dis que j'allais pas te laisser en plan lol

je maitrise un peu de mon coté mais la suis un peu embeté

 

[Muratime]

T'aura plus qu'a aller chercher le fichier, j'ai fais la demande

 

[FCMLE44]

ok merci
j ai encore plein de choses a faire sur mon fichier
essaies de comprendre le mécanisme