Bouton enregistrer sous

Résolu
LOTO82 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
 loto -
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
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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







 

                
                

    
        

    
            
        0
                                
                
    

            



    

        
        

            
        

    


        

        

                    

    

        

                    

                    


                
        
    
    

        



    

                    

    
        

    

            


    
    


    
    

                

    loto




 

    






    Merci beaucoup ca marche a merveille merci encore vous venez de me sauver
    




    
      

    
    
    0