UserForm avec un checkBox

Salut, j'ai fait un UserForm avec un checkBox et un textBox . L'objectif est d'enregistrer un fichier a partir du contenu de ces 2 fenetres.

Le checkbox m'embete un peu au niveau VBA.

Je vous envoie un petit fichier avec le UserForm. Les instructions sont sur la feuille.

Merci a tous!

Bonjour Capucin le forum

a+

Papou

Private Sub CommandButton1_Click()
    Dim adr$, fichier$
    adr = ThisWorkbook.Path
    If CheckBox1 Then fichier ="Essai 9" Else fichier = TextBox1.Value
    Feuil1.Copy 'nom de ta feuille à copier
    ActiveWorkbook.SaveAs adr & "\" & fichier & ".ass"
    ActiveWorkbook.Close 1
End Sub

La ligne qui permet d'enregistrer le fichier cause des problemes, ca gele. Le format dois etre XLS. La syntaxe ne dois pas etre bonne. Peux tu regarder ca?

reg Private Sub CommandButton1_Click()
        Dim adr$, fichier$
        adr = ThisWorkbook.Path
        If CheckBox1 Then fichier = "Essai 9" Else fichier = TextBox1.Value
        Feuil1.Copy 'nom de ta feuille à copier
       ActiveWorkbook.SaveAs adr & "\" & fichier & ".ass", FileFormatNum = 56  ' pour enregistrer en format XLS
        ActiveWorkbook.Close 1  

re bonjour Capucin le forum

c'est toi l'apprenti sorcier pas moi, tu as mis un code farfelu je l'ai modifié c'est tout mais le

"FileFormatNum = 56" moi je ne connais pas alors essayes plutôt ci-dessous

a+

Papou

Private Sub CommandButton1_Click()
    Dim adr$, fichier$
    adr = ThisWorkbook.Path
    If CheckBox1 Then fichier ="Essai 9" Else fichier = TextBox1.Value
    Feuil1.Copy 'nom de ta feuille à copier
   ActiveWorkbook.SaveAs adr & "\" & fichier & ".ass"
    ActiveWorkbook.Close 1
End Sub

J'ai pris le code farfelu sur internet. Je pense que j'essayais de faire complique.

Ca fonctionne bien, merci papou!