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
loto - 12 févr. 2015 à 10:25
A voir également:
- Créer un bouton enregistrer sous excel
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer liste déroulante excel - Guide
- Créer un groupe whatsapp - Guide
- Créer un compte instagram - Guide
1 réponse
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
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:
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
12 févr. 2015 à 10:25