Export vers dossier spécifique
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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.
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.
1 réponse
-
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
