Enregistrement automatique selon le nom d'une cellule
Résolu/Fermé
A voir également:
- Enregistrement automatique selon le nom d'une cellule
- Aller à la ligne dans une cellule excel - Guide
- Trouver un numéro de portable avec un nom ✓ - Forum Mobile
- Message automatique thunderbird - Guide
- Nom de l'adresse ✓ - Forum Réseaux sociaux
- &Quot;Nom de l'adresse" lors d'une inscription sur une site - Forum Consommation & Internet
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
3 déc. 2015 à 08:09
3 déc. 2015 à 08:09
Bonjour,
Il faut savoir que l'enregistrement en xls enregistre tout le classeur.
Celui en pdf enregistre la feuille active
Mettre un bouton allez dans Developpeur, Inserer Controle ActiveX Bouton de commande.
Double cliquer sur le Bouton et mettre ce code:
Il faut savoir que l'enregistrement en xls enregistre tout le classeur.
Celui en pdf enregistre la feuille active
Mettre un bouton allez dans Developpeur, Inserer Controle ActiveX Bouton de commande.
Double cliquer sur le Bouton et mettre ce code:
Option Explicit Private Sub CommandButton1_Click() Save_classeur End Sub Sub Save_classeur() Dim chemin, nom As String chemin = "C:\Users\.....\Documents\" 'adapter le chemin finir par \ nom = Range("A1").Value 'PDF ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ chemin & nom & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False 'XLS ActiveWorkbook.SaveAs Filename:=chemin & nom & ".xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub
3 déc. 2015 à 14:36