Enregistrement automatique selon le nom d'une cellule
Résolu
Nono
-
Nono -
Nono -
A voir également:
- Enregistrement automatique selon le nom d'une cellule
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
1 réponse
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
Nono
Merci beaucoup ! tout fonctionne à merveilles ! :)