Enregistrer en PDF à la fermeture du classeur

Bonjour à tous,

J'espère que vous allez bien.

N'ayant que trop peu de connaissances en VBA je fais appel à vous pour trouver une solution à un petit problème qui me tracasse la tête depuis plusieurs jours.

J'ai un tableur excel que je modifie régulièrement, une fois les modifications réalisé j'enregistre ce document en PDF pour le transmettre à d'autres personnes.

J'essaye donc de trouver en vain un code me permettant d'ouvrir une msgbox à chaque fermeture de mon tableur excel me demandent si je veux appliquer ces modifications sur le PDF, si je clique sur oui j'aimerais qu'il remplace la dernière version du fichier PDF.

Si quelqu'un pourrait m'orienter sur une solution en ce dernier jour de semaine ô combien appréciable je lui serait plus que reconnaissant !

Merci d'avance !

Cdt,

Thibault

Bjr,

exemple

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    nompdf = ThisWorkbook.Path & "\" & "sauvegarde fichier " & Format(Now, "yyyy-mm-dd hh\hnn")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Bonjour,

bonjour Steelson,

autre exemple avec question

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    nfpdf = "d:\downloads\test.pdf"
    ans = MsgBox("voulez-vous sauver les modifications dans le fichier PDF ?", vbYesNo)
    If ans = vbYes Then
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nfpdf _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End If
End Sub

Merci beaucoup à vous deux !

C'est exactement ce dont j'avais besoin.

Passez une agréable weekend.

Cdt,

Thibault