Bonjour,
Dernièrement, J’ai posé une colle brillamment résolue sur le forum.
Enregistrement, avec macro, format PDF
Ma question :
Bonjour les artistes,
Est-ce possible d’enregistrer, avec une macro, un fichier dans le même répertoire que l’original au format PDF ?
Dans l’exemple joint, j’aimerais enregistrer, les cellules B7-E39 et nommer suivant la cellule Z12
Évidemment le fichier est allégé pour l’envoi et la confidentialité.
Merci d’avance.
Cordialement,
Votre réponse :
Public Sub Creer_PDF()
Dim sPath As String, sFile As String
Const RNG As String = "$B$7:$E$40"
Application.ScreenUpdating = False
sPath = ThisWorkbook.Path & Application.PathSeparator
With ActiveSheet
sFile = .Cells(12, 26).Text
.Range(RNG).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPath & sFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
End Sub
Aujourd’hui le président de l’association, aimerait que ce ne soit plus enregistré dans le même répertoire, mais sur un disque externe de sauvegarde :
Chemin :
Sauvegarde (F:)
Location 2018 – 2019
Gr 17
Classement
Merci de vous pencher sur mon problème.
Cordialement,