Export vers dossier spécifique
Résolu/Fermé
A voir également:
- Export vers dossier spécifique
- Dossier appdata - Guide
- Mettre un mot de passe sur un dossier - Guide
- Dossier rar - Guide
- Windows 7 vers windows 10 - Accueil - Mise à jour
- Dossier démarrage - Guide
1 réponse
Utilisateur anonyme
9 nov. 2018 à 12:26
9 nov. 2018 à 12:26
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.
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