Export vers dossier spécifique [Résolu]

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Bonjour,
J’utilise la macro dans le fichier ex ci-dessous qui marche très bien pour enregistrer ma feuille Excel active en deux formats en créant aussi un dossier nommé, seulement je souhaite spécifier le chemin pour la création de ce dossier qui porte ces deux formats de fichiers,
quelque soit l'emplacement du fichier source. Le chemin souhaité "C:\Dossier_Inspect-V1\Rapports"
Pour améliorer cette macro que dois-je ajouter ou modifier?
voila un fichier exemple: https://www.cjoint.com/c/HKitYd6YXqk

Merci bien pour vos aides
Cordialement.
Afficher la suite 

1 réponse

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
0
Merci
bonjour, le forum

j'ai utilisé mes peu de connaissance en codage pour combiner et adapter quelques lignes de macros à mon problème

finalement j'ai la solution suivante peut être quel servira pour quelqu’un d'autre.

Sub Sauvegarder()
Dim reponse As Integer

reponse = MsgBox("Veux-tu créer un fichier PDF à partir du feuille active ?", _
vbYesNo + vbDefaultButton2 + vbExclamation, "Créer un fichier PDF")

ChemindAcces$ = "C:\Rapports"
NomFichier$ = Worksheets("Visite").Range("K3").Value & ""

If reponse = vbNo Then End
Sheets("Visite").Unprotect Password:="Recap"

Sheets("Visite").Copy
With ActiveSheet
.Shapes.Range(Array("CommandButton1")).Delete
.Shapes.Range(Array("CommandButton2")).Delete
.Shapes.Range(Array("CommandButton3")).Delete
.Shapes.Range(Array("Image 4")).Delete
.Shapes.Range(Array("Picture 5")).Delete
End With

ChemindFichier$ = "C:\Rapports" & "\" & NomFichier$
ActiveWorkbook.SaveCopyAs ChemindAcces$ & "\" & Range("K3") & ".xlsx"
ActiveWorkbook.Close False

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ChemindFichier$, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Commenter la réponse de delta70