Sub devis_bateau_en()
Dim Nom_Sauve As String
Dim Chemin As String, Num As Long
Nom_Sauve = "Devis bateau EN nom - " & Sheets("Choix - Plans").Range("B16").Value & " modèle - " & Sheets("Choix - Plans").Range("B11").Value & " - Qté - " & Sheets("Choix - Plans").Range("D16").Value & ".pdf"
Chemin = ActiveWorkbook.Path & "\devis\" & Nom_Sauve
Num = 0
Do Until Dir(Chemin) = ""
Num = Num + 1
If Chemin Like "*(*).pdf" Then
Chemin = Left(Chemin, InStrRev(Chemin, "(") - 1) & "(" & Num & ").pdf"
Else
Chemin = Left(Chemin, Len(Chemin) - 4) & "(" & Num & ").pdf"
end if
Loop
Sheets("Devis Bateau EN").Select
Sheets("Devis Bateau EN").Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True 'il y a sûrement ici une option pour empêcher de supprimer un fichier au même nom
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\VPLog.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub