Choisir l'emplacement d'enregistrement
Résolu
WILK642
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, j'ai mis en place une macro pour convertir le fichier excel en PDF et l'enregistre sur un répertoire prédéfini. Cependant j'aimerais laisser l'utilisateur le choix de l'emplacement d'enregistrement du fichier. Pouvez vous m'aider?
Voici le code:
Sub Sélection_pour_publier_le_rapport()
Sheets(Array("PG", "Sommaire", _
"Partie I", "1.1 Faits marquants", _
"Partie II", "2.1 Maint préventives", "2.2 Maint correctives", "2.3 Demandes des interventions", "2.4 Astreintes", _
"Partie III", "3.1 Nettoyage locaux intérieurs", _
"Partie IV", "4.1 Planning SST", _
"Partie V", "5.1 Devis et Travaux")).Select
Sheets("PG").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\VN5624\OneDrive - ENGIE\Bureau\rapprot.pdf"
MsgBox ("Votre rapport est publié")
Sheets("PG").Select
End Sub
Voici le code:
Sub Sélection_pour_publier_le_rapport()
Sheets(Array("PG", "Sommaire", _
"Partie I", "1.1 Faits marquants", _
"Partie II", "2.1 Maint préventives", "2.2 Maint correctives", "2.3 Demandes des interventions", "2.4 Astreintes", _
"Partie III", "3.1 Nettoyage locaux intérieurs", _
"Partie IV", "4.1 Planning SST", _
"Partie V", "5.1 Devis et Travaux")).Select
Sheets("PG").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\VN5624\OneDrive - ENGIE\Bureau\rapprot.pdf"
MsgBox ("Votre rapport est publié")
Sheets("PG").Select
End Sub
