Sauvegarder un fichier excel en le transformant en PDF

[kernaleguen]

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

 

[herve62]

Bonsoir
A adapter dans ton cas :

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]

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]

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]

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

 

[kernaleguen]

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

 

[herve62]

Il faudrait me laisser le chemin complet ( c:\..... etc) et le type de nom souhaité : bibliotheque-2019-01-25-03.pdf par exemple

PS : je n'ai pas vu de macro dans ton 1er fichier joint ?