Discussion :

[nguyen0000]

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

[ARTURO83]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nguyen0000]

Vous avez raison et cela fonctionne !

Merci beaucoup et bonne semaine !