bouton enregistrer sous Résolu

Question

Bonjour,
je veux créer un bouton enregistre sous dans une facture que je dois enregistrer dans un dossier crée sur le bureau renommé loto dés que je fais une facture pour un client j'appui sur le bouton et la facture sera automatiquement enregistrée sur le dossier loto au format pdf et en prenant en considération le nom du client sans remplacer les autres déjà enregistrer, sachant que je suis debutant en vba merci

cs_Le Pivert · Answer

Bonjour,

Sans bouton l'enregistrement se fait à la fermeture du classeur.
Tu peux mettre un bouton avec ce code également;

Faire Alt F11 pour ouvrir l'éditeur. Cliquer sur ThisWorkBook en haut à gauche et mettre ce code:

Option Explicit
Dim chemin, nom As String
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Save_pdf
End Sub
Private Sub Save_pdf()
chemin = Environ("USERPROFILE") & "\Desktop\loto"
nom = Range("A1").Value
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & "\" & nom & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        MsgBox "Enregistrer"
End Sub

Bouton enregistrer sous

1 réponse

Discussions similaires

Newsletters