Sujet Précédent Sujet Suivant

Bouton enregistrer sous

Résolu/Fermé
LOTO82 Messages postés 3 Date d'inscription lundi 5 janvier 2015 Statut Membre Dernière intervention 8 janvier 2015 - 5 janv. 2015 à 11:47
 loto - 12 févr. 2015 à 10:25
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
5 janv. 2015 à 16:07
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


    

    12 févr. 2015 à 10:25

    






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




    
      

    
        
    0