J'ai un dossier " modèles" avec plusieurs modèles de classeurs (bilan.xlt, budget.xlt, facture.xlt...). J'aimerais une boite de dialogue qui me permette de choisir l'un de ces modèles et de l'enregistrer dans un dossier spécifique "travail" sous un nom précis.

1) créer un userform avec juste un listbox (userform1 et listbox1) 2) dans le code du userform, recopier :

Private sub ListBox1_Click()
 UserForm1.Hide
 end sub

3) dans un module normal, recopier la macro :

sub nouveau_classeur()
 'vider le listbox1
 nouveau:
 If UserForm1.ListBox1.ListCount > 0 Then
 UserForm1.ListBox1.RemoveItem (0)
 GoTo nouveau
 End If
 'remplir le listbox1
 UserForm1.ListBox1.AddItem "bilan.xlt"
 UserForm1.ListBox1.AddItem "budget.xlt"
 UserForm1.ListBox1.AddItem "facture.xlt"
 'afficher le listbox
 UserForm1.Show
 'ajouter le classeur
 Set nouv = Workbooks.Add("C:\modèles" & UserForm1.ListBox1.Value)
 'enregistrer le classeur
 Select Case UserForm1.ListBox1.ListIndex + 1
 Case Is = 1
 nouv.SaveAs "C:	ravailbilan.xls"
 Case Is = 2
 MsgBox "C:	ravailbudget.xls"
 Case Is = 3
 MsgBox "C:	ravailfacture.xls"
 End Select
 end sub