Bouton enregistrement pdf et Excel

Question

Alors voila j'ai un bouton qui me permet d'enregistrer en PDF via pdfcreator, 1) Mais j'aimerai que ce bouton enregistre en même temps en excel Car il s'agit d'un fichier pour devis et facture, donc si besoin de reprendre, juste en PDF ce n'est pas possible 2) En même temps je souhaiterai que l'enregistrement du nom "il s'agit de plusieurs cellules" qu'il y aille un espace entre chaque 3) Enfin au début de ma page une boite déroulante avec "DEVIS / FACTURE", comment faire pour que en fonction de l'un de ces choix, lors de l'enregistrement du fichier par le bouton il prenne en compte cela. Merci pour tous ceux qui pourront m'aider Cordialement Voici le code du bouton Private Sub CommandButton1_Click() Dim a As Worksheet Dim sc As Workbook Dim nouveauNom As String Application.ScreenUpdating = False Set a = ActiveSheet nouveauNom = "DEVIS" & Range("H3").Value & " " & Range("F3").Value & Range("E3").Value nouveauNom = Replace(nouveauNom, "/", "_") Set sc = Workbooks.Add(xlWBATWorksheet) sc.SaveAs (nouveauNom & ".xls") a.Copy Before:=sc.Sheets(1) ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator" Workbooks(nouveauNom & ".xls").Close SaveChanges:=False Kill nouveauNom & ".xls" Application.ScreenUpdating = True Application.DisplayAlerts = False Application.Quit...

Jean-Eric · Answer

Ci-joint fichier modèle à enregistrer sous : "C:\Utilisateurs\Administrateur\AppData\Roaming\Microsoft\Templates en modifiant l'extension xlsm en xltm * le répertoire AppData est caché par défaut. Pour apporter des modifications au modèle, aller dans le répertoire cité ci-dessus, click droit puis ouvrir. Pour créer un nouveau devis ou une nouvelle facture, dans Excel, Fichier, Nouveau, mes modèles, Devis_Factures SARL Rodrigues A tester évidemment A te lire Cdlt...