Bonjour à tous,

Je suis sur un erreur depuis 24H et n'arrive toujours pas à résoudre après tant de tentative et recherches. J'ouvre une nouvelle discussion ici pour demander votre aide.

Je créé un InputBox pour stocker une chaîne de caractère dans un String. Puis je l'utilise pour le nommage de mon fichier lors du SaveAs.
Au début ça marche bien et d'un coup l'error 400 apparaît.

J'espère que vous puissiez m'aider.
Voici mon code et je vous remercie d'avance


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub ProtectAndSave()
Application.DisplayAlerts = False
Dim nom As String
       nom = InputBox("Quel est le nom du fichier ?")
     Do
        If nom = "" Then
            Exit Do
        Else
            Sheets("Config").Visible = False
            Sheets("Listes_deroulantes").Visible = False
 
            Worksheets("Template").Protect Password:="feuil", contents:=True
            ActiveWorkbook.Protect Password:="classeur", Structure:=True, Windows:=True
 
            With ActiveWorkbook
                .SaveAs Filename:=ThisWorkbook.Path & "\" & nom & " - template.xlsx", FileFormat:=xlOpenXMLWorkbook
            End With
        End If
    Loop
End Sub