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
Merci pour votre aide et bonne journée
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
Partager