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
Partager