Sauvegarde dans un emplacement avec nom

Bonjour,

J'ai essayer mais je ne trouve pas la solution. J'aimerais enregistrer mon document dans un emplacement précis avec le nom du Range("B6") "nom_client.
Mon problème est que je n'arrive pas à faire les 2 choses. Soit le chemin est juste mais je n'arrive pas à ajouter le nom, soit le nom fonctionne mais pas le chemin !!

merci de votre aide

Code:

---

1 2 3 4 5 6 7 8 9

Sub TEst() Range("B6") = nom_client   ChDir "D:\Documents and Settings\Mes documents\Archive"   ActiveWorkbook.SaveAs Filename:=nom_client, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False   End Sub

---

Bonjour

D'abord tu affectes la valeur de nom_client à la range, alors que c'est l'inverse.

Ensuite le ChDir ne sert à rien, concatène le chemin avec la valeur de la variable nom_client (en oubliant pas le \ entre les deux).

Philippe

Bonjour,

Avec

Code:

---

Range("B6") = nom_client

---

tu remplis la cellule B6 avec le contenu de la variable nom_client qui n'a été ni déclarée ni initialisée.
Autrement dit tu vides la cellules B6.
Est-ce bien ce que tu veux faire?

Une proposition mais qui pourrait être améliorée:

Code:

---

1 2 3 4 5 6 7

Sub Test() Dim nom_client As String nom_client = Range("B6")   ActiveWorkbook.SaveAs Filename:="D:\Documents and Settings\Mes documents\Archive\" & nom_client   End Sub

---

Zut, grillé, même à cette heure-ci...
Bonjour Philippe