Sauvegarder un fichier excel en le transformant en PDF

kernaleguen

XLDnaute Nouveau
Bonjour,

J'utilise un fichier excel pour des bons de commande et je souhaite sauvegarder ce fichier au format XLS mais également au format PDF. J'ai une macro qui me permet de sauvegarder mon fichier au format XLS selon un chemin déterminé mais je ne parviens pas à sauvegarder ce fichier au format PDF dans la même macro. Ci-dessous la macro que j'utilise pour la sauvegarde du fichier excel (comment la compléter par une macro qui sauvegarderait en PDF) ? :

Sub Sauvegarde_bibliotheque()
'
' Sauvegarde bibliotheque Macro
'
'
Dim chemin As String, fichier As String
chemin = "y:\XX1\XX2\XX3\"
'Ajoute la date du jour et l'heure dans le nom du fichier
fichier = "bibiliotheque-photocopie_" & Range("g9") & "_" & Range("e17") & "_" & Range("f17") & "_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & "_" & ".xls"
ActiveWorkbook.SaveCopyAs chemin & fichier

Pouvez-vous m'aider

Bien cordialement
 

Pièces jointes

  • Base Maquette BDC photocopie biblio 28 01 2019.xlsx
    15.9 KB · Affichages: 11

herve62

XLDnaute Barbatruc
Bonsoir
A adapter dans ton cas :
Code:
Private Function sPDF() As String
'Créer le fichier PDF avec le numéro de devis en titre
    Dim Chemin As Variant
    With Sheets("Devis")
        Chemin = Application.GetSaveAsFilename("Devis " & .Range("C13").Text & ".pdf", "Fichiers Adobe PDF (*.pdf), *.pdf", , "Sauvegarder sous format PDF...")
        If Chemin <> False Then
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
                                 IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
            sPDF = Chemin
        End If
    End With
End Function
 

kernaleguen

XLDnaute Nouveau
Bonjour,

J'utilise un fichier excel pour des bons de commande et je souhaite sauvegarder ce fichier au format XLS mais également au format PDF. J'ai une macro qui me permet de sauvegarder mon fichier au format XLS selon un chemin déterminé mais je ne parviens pas à sauvegarder ce fichier au format PDF dans la même macro. Ci-dessous la macro que j'utilise pour la sauvegarde du fichier excel (comment la compléter par une macro qui sauvegarderait en PDF) ? :

Sub Sauvegarde_bibliotheque()
'
' Sauvegarde bibliotheque Macro
'
'
Dim chemin As String, fichier As String
chemin = "y:\XX1\XX2\XX3\"
'Ajoute la date du jour et l'heure dans le nom du fichier
fichier = "bibiliotheque-photocopie_" & Range("g9") & "_" & Range("e17") & "_" & Range("f17") & "_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & "_" & ".xls"
ActiveWorkbook.SaveCopyAs chemin & fichier

Pouvez-vous m'aider

Bien cordialement
 

kernaleguen

XLDnaute Nouveau
Bonjour,

Merci pour ta réponse toutefois je rencontre un petit problème (sans doute que je m'y prends mal). J'ai ajouté ton code à la suite de ma macro et j'ai un message d'erreur qui apparait :

"Erreur de compilation : End Sub attendu"

Ci-dessous ma macro :


Sub Sauvegarde_bibliotheque()

'

' Sauvegarde bibliotheque Macro

'

'

Dim Chemin As String, fichier As String



Chemin = "y:\DAF\comptabilité générale\Bibliothèque\"

'Ajoute la date du jour et l'heure dans le nom du fichier

fichier = "bibiliotheque-photocopie_" & Range("g9") & "_" & Range("e17") & "_" & Range("f17") & "_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & "_" & ".xls"

ActiveWorkbook.SaveCopyAs Chemin & fichier

Private Function sPDF() As String

'Créer le fichier PDF avec le numéro de devis en titre

Dim Chemin As Variant

With Sheets("Devis")

Chemin = Application.GetSaveAsFilename("Devis " & .Range("C13").Text & ".pdf", "Fichiers Adobe PDF (*.pdf), *.pdf", , "Sauvegarder sous format PDF...")

If Chemin <> False Then

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _

IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

sPDF = Chemin

End If

End With

End Function

End Sub
 

herve62

XLDnaute Barbatruc
Bonjour
Evidemment ! tu insères la fonction dans ta Sub !!! , soit tu ne mets QUE le code de la fonction avec adaptation pour ton cas
soit la mets à part , et l'appelle depuis ta sub au bon endroit , ci-joint l'exemple à ajuster
 

Pièces jointes

  • sauvePDF.xlsm
    21.9 KB · Affichages: 14

kernaleguen

XLDnaute Nouveau
Bonjour,

J'utilise un fichier excel pour des bons de commande et je souhaite sauvegarder ce fichier au format XLS mais également au format PDF. J'ai une macro qui me permet de sauvegarder mon fichier au format XLS selon un chemin déterminé mais je ne parviens pas à sauvegarder ce fichier au format PDF dans la même macro. Ci-dessous la macro que j'utilise pour la sauvegarde du fichier excel (comment la compléter par une macro qui sauvegarderait en PDF) ? :

Sub Sauvegarde_bibliotheque()
'
' Sauvegarde bibliotheque Macro
'
'
Dim chemin As String, fichier As String
chemin = "y:\XX1\XX2\XX3\"
'Ajoute la date du jour et l'heure dans le nom du fichier
fichier = "bibiliotheque-photocopie_" & Range("g9") & "_" & Range("e17") & "_" & Range("f17") & "_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & "_" & ".xls"
ActiveWorkbook.SaveCopyAs chemin & fichier

Pouvez-vous m'aider

Bien cordialement
Bonjour
Evidemment ! tu insères la fonction dans ta Sub !!! , soit tu ne mets QUE le code de la fonction avec adaptation pour ton cas
soit la mets à part , et l'appelle depuis ta sub au bon endroit , ci-joint l'exemple à ajuster

Bonjour Hervé,

Je te remercie pour ton retour mais je ne maitrise pas vraiment les macros. Je les utilise du mieux que je peux (en allant sur des sites) mais sans réelle connaissance. Elles me permettent de traiter plus rapidement certains fichiers ou actions que je dois réaliser. Peux-tu corriger ma macro afin d'y insérer la sauvegarde au format PDF.

Merci
 

Discussions similaires

Réponses
6
Affichages
303
Haut Bas