Bonjour,

Je travaille sur une macro permettant l'enregistrement automatique de feuille au format PDF. Tout fonctionne.

J'ai tout de même besoin d'ajouter un code/MsgBox pour vérifier si le fichier existe déjà et proposer de le remplacer.

Merci pour votre aide

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
Sub Enregistrer_pdf()
Dim nompdf As String
Dim Chemin As String
 
On Error GoTo erreur
 
    Chemin = ActiveSheet.Range("K1").Value
    nompdf = Chemin & "\" & Range("G1").Value
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
Exit Sub
 
erreur:
 
    MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
End Sub
Merci pour votre aide et bonne journée