bonjour,
James : j'ai beau faire des recherche, mais pas de fichier avec l'extension .exd donc si je reprends ton propos, il me faut être patient et attendre la prochaine MAJ de Microsoft ?
Eric : j'ai enlevé tous les planning créé, j'ai supprimé la faueille "Modèle" et je l'ai recréé et j'ai toujours le bug !
et quand je clique sur débug :
Option Explicit
Private Sub CommandButton1_Click()
' Créer/Modifier
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Veuillez choisir un nom dans la liste"
Exit Sub
End If
If FeuilleExiste(Me.ComboBox1) = False Then
Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Me.ComboBox1
End If
Set F1 = Sheets(Me.ComboBox1.Value)
F1.Select
UserForm2.TextBox1.Value = Me.ComboBox1
Unload Me
UserForm2.Show 0
End Sub
bonnes fêtes de fin d'année,
Francky