Discussion :

[modus57]

Bonsoir à tous.

Pour enregistrer la feuille active au format PDF et lui donner le nom du classeur pas de souci.

Voilà le code que j’utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Split(ThisWorkbook.Name, ".")(0), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Si le fichier PDF est enregistré à nouveau avec le même nom, le message « Le fichier existe déjà voulez-vous le remplacer » ne s’affiche pas et le fichier existant est écrasé par le nouveau.

Avez-vous connaissance de ce problème et comment le régler svp.

Merci d’avance pour votre aide.

[Marc-L]

Bonsoir,

effectivement cette méthode ne se préoccupe pas si un fichier existe déjà !

Contrôler l'existence du fichier avec la fonction Dir par exemple …

[modus57]

Bonjour Marc-L.

Il vaut mieux tard que jamais, merci pour ta réponse.

Effectivement la fonction Dir c'est la solution, si cela peut servir voici le bout qui permet de tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub SaveSousPDF_1()
    Dim Chemin As String, Fich As String, rep As String
    Chemin = ThisWorkbook.Path
    Fich = Split(ThisWorkbook.Name, ".")(0) & ".pdf"
    CheminComplet = Chemin & "\" & Fich
    MsgBox "Chemin complet : " & CheminComplet
    rep = Dir(Chemin & "\" & Fich)
    If rep = "" Then
        MsgBox "Enregistrer le fichier au format PDF."
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
    Else
        Choix = MsgBox("Le fichier au format PDF existe voulez vous écraser le fichier existant !", vbCritical + vbYesNo)
        If Choix = vbYes Then
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=True
        Else
            Exit Sub
        End If
    End If
End Sub

Bon w-e.