SaveAs error 400

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:

---

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

---

Bonjour,

Pourquoi faire une boucle, puisque vous masquez les feuilles au premier passage?
Essayez ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub ProtectAndSave() Dim nom As String Application.DisplayAlerts = False nom = InputBox("Quel est le nom du fichier ?") If nom <> "" Then Sheets("Config").Visible = False Sheets("Listes_deroulantes").Visible = False Worksheets("Template").Protect Password:="feuil", contents:=True ActiveWorkbook.Protect Password:="classeur", Structure:=True, Windows:=True ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & nom & " - template.xlsx", FileFormat:=xlOpenXMLWorkbook End If End Sub

---

Cdlt

Vous avez raison et cela fonctionne !

Merci beaucoup et bonne semaine !