Discussion :

[Invité]

Bonjour,

En enregistrant par macro, une feuille excel (ou plus) sous format PDF ou XPS, je n'ai pas de message comme pour excel m'indiquant que le fichier existe déjà.

Quelle est la solution? mon code est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Dim Chemin As String, MonFichier As String
Chemin = ThisWorkbook.Path
 
MonFichier = Chemin & "\" & "PV CmdP" & " " & Sheets("ConsultCMDP").Range("C2") & ".pdf"
 
    Sheets(Array("A", "B", "C")).Select
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MonFichier, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Je voudrais, faire en sorte que si le fichier existe déjà, qu'il ne soit pas créé. Je ne voudrai pas avoir le message d'invite de confirmation.

Je vous remercie.

Cordialement,