Export vers dossier spécifique [Résolu/Fermé]

Signaler
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
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.

1 réponse

Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
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