Problème avec ActiveWorkbook.SaveAs

Bonjour à tous !

Dans le cadre du boulot, j'ai besoin de créer une feuille qui doit être doit être sauvegardée ( en fonction de la valeur d'une cellule A2) dans un endroit précis du DD ( en fonction de la valeur d'une autre celllule A1 ) et uniquement par la personne qui connait le MPD.

Voici mon code :

Sub machinsave()
Dim Num_Article As String 
Dim Chemin$, Client$, Fichier$
Chemin = "W:\bla\blabla\blobo\"
Client = Range("A1")
Fichier = Range("A2") & ".xls"

Num_Article = Application.InputBox(prompt:="Entrez le mot de passe", Type:=2)
If Num_Article = "mdp" Then
If Dir(Chemin & Client, 16) = "" Then MkDir Chemin & Client
ActiveWorkbook.SaveAs Chemin & Client & "\" & Fichier

Else
MsgBox "Mot de passe incorrect"

End If
End Sub

Je pense ( =p ) ne pas m'être trompé et pourtant, j'ai droit à une erreur 400 !

Quelqu'un pourrait m'aider s'il vous plait ?

Bonjour

J'ai testé le code mais pas eu d'erreur

Quel est le libellé de l'erreur 400 ?

Sur quelle ligne ?

Merci de prendre de ton temps pour m'aider.

Voyant que tu n'avais pas d'erreur, j'ai fais un petit test.

J'ai crée 2 boutons, l'un avec la macro écrite dans feuille 1, l'autre bouton avec la macro écrite dans le module 1.

J'ai 2 erreurs différentes selon les cas...

Cas avec la macro en feuille 1 :

Erreur de type 400 ( c'est celle que j'avais à la base justement et pour laquelle je postais ).

J'ai une petite fenêtre qui pop avec l'erreur 400, un bouton Ok et Aide et RIEN d'autre malheursement.

Cas avec la macro en module 1 :

Erreur d'exécution '1004':

La méthode 'SaveAs' de l'objet '_Workbook' a échoué

et ça plante au niveau de cette ligne

ActiveWorkbook.SaveAs Chemin & Client & "\" & Fichier

EDIT : Hum, je viens de me rendre compte que j'avais renseigné la case B2 à la place de la case A2 ( pour le nom du fichier ) d'où le plantage. Affaire réglée, merci à toi !!!