Bonjour,
Quelqu'un peut-il m'aider dans le code ci-après ?
Je souhaite que la macro adresse un message si le fichier existe déjà pour éviter d'écraser celui-ci s'il existe au préalable.
Merci d'avance
Quelqu'un peut-il m'aider dans le code ci-après ?
Je souhaite que la macro adresse un message si le fichier existe déjà pour éviter d'écraser celui-ci s'il existe au préalable.
Code:
Sub PDF()
Dim sNomFichierPDF As String
sNomFichierPDF = Sheets("Table").Range("PATH").Value & "\" & Sheets("Calcul").Range("G10").Value & ".pdf "
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sNomFichierPDF, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Merci d'avance