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 : Sélectionner tout - Visualiser dans une fenêtre à part
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