Microsoft 365 Enregistrement répertoire de mon choix

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

FCMLE44

XLDnaute Impliqué
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

VB:
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
Code:
sNomFichierPDF = ThisWorkbook.Path & "\" & "Test.pdf"

Quelqu'un aurait il une idée ?
 
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.
 

Pièces jointes

Dernière édition:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
247
Réponses
10
Affichages
548
Réponses
3
Affichages
674
Retour