Recuperation de valleur pour nommaage de fichier Xls

Bonjour,

Deja un grand merci pour ce forum, il m a bien aidé pour faire qq macro un tout petit peu complexe. Et je debute, Merci pour cette grande source d'informations.

Mais pas contre je bute sur un truc vraiment bete je pari et ca fait 2H que je reflechi dessus.

Ma Problematique :

J'ai tout un enchainement que j 'ai fais sous la macro automatique, et je dois enregistrer le result de la macro et le nom de fichier doit etre dans un format special.

nom de fichier = DATE DU JOUR_VALEUR RECUP CELLUL_.XLS


Donc voici le code que j ai fais mais qui est bien non sure fonctionnel :


Dim Repertoire As String
Dim ndate As String
Dim Nom As String
Dim Extension As String
Repertoire = "C:\Documents and Settings\x041159\Bureau\"
Extension = ".xls"
ndate = Format(Now, "dd-mm-yy")
Nom = Range("Table_Ressources_chronogramme!C4")
ActiveWorkbook.SaveAs Filename:= _
Repertoire & ndate & "_" & Nom & Extension _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

il y a une erreur dans la valeur Nom. J en suis sur que c'est un truc bete!. Sachant que j 'ai deja fais ce genre de chose dans un filtre et ca avait fonctionné (Range("Table_Ressources_chronogramme!C4"), cette formule ne fonctionne pas.)

Merci de votre aide, avec tout ca je vais devenir chauve bientot lol.