Intermoi
XLDnaute Nouveau
Bonjour la communauté,
Pour une fois j'ai besoin d'un petit coup de pouce.
Je suis sur une App. de devis et pour une fois je n'ai pas de sauvegarde avec un chemin mais avec l'ouverture de la fenêtre enregistrer sous.
Pour la macro pas de problème, par contre, si on souhaite fermer ou annulé, la macro se lance quand même et enregistre le fichier.
je sais qu'il faudrait que j'insère une ligne avant l'exécution de la macro avec un exit sub à la fin, et c'est là que je sèche.
'*** Save As PDF
Sub SaveAsPdf()
'Variable
Dim PathPdf As Variant, NumDev As Integer, FName As String, NameCtl As String
FName = "Dev_"
NumDev = Range("N5")
NameCtl = Range("M12")
PathPdf = Application.GetSaveAsFilename(FName & Format(Now(), "YYYY") & Format(NumDev, "0000") & "_" & NameCtl, "ExcelFiles(*.pdf),*.pdf")
Worksheets("Dev").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=PathPdf, _
Quality:=xlQualityStandard, _
includedocproperties:=True, _
ignoreprintareas:=False, _
openafterpublish:=True
MsgBox ("Le devis " & "''" & FName & Format(Now(), "YYYY") & Format(NumDev, "0000") & "_" & NameCtl & "''" & " a été sauvegardé.")
End Sub
Pour une fois j'ai besoin d'un petit coup de pouce.
Je suis sur une App. de devis et pour une fois je n'ai pas de sauvegarde avec un chemin mais avec l'ouverture de la fenêtre enregistrer sous.
Pour la macro pas de problème, par contre, si on souhaite fermer ou annulé, la macro se lance quand même et enregistre le fichier.
je sais qu'il faudrait que j'insère une ligne avant l'exécution de la macro avec un exit sub à la fin, et c'est là que je sèche.
'*** Save As PDF
Sub SaveAsPdf()
'Variable
Dim PathPdf As Variant, NumDev As Integer, FName As String, NameCtl As String
FName = "Dev_"
NumDev = Range("N5")
NameCtl = Range("M12")
PathPdf = Application.GetSaveAsFilename(FName & Format(Now(), "YYYY") & Format(NumDev, "0000") & "_" & NameCtl, "ExcelFiles(*.pdf),*.pdf")
Worksheets("Dev").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=PathPdf, _
Quality:=xlQualityStandard, _
includedocproperties:=True, _
ignoreprintareas:=False, _
openafterpublish:=True
MsgBox ("Le devis " & "''" & FName & Format(Now(), "YYYY") & Format(NumDev, "0000") & "_" & NameCtl & "''" & " a été sauvegardé.")
End Sub