Comment fais t on cela?
 
moi je fais ca  
 
   ThisWorkbook.SaveAs Filename:="Autre nom"
 
mais alors ca me remplace et me ferme le document actuelle
Moi je veux quil me laisse le document principal intact et qu il me sauvegarde simplement son contenu ...sans l ouvrir
Merci

une ptite idee?  

workbooks("nom du classeur.xls" ).saveas_ filename:="nouveaunom.xls"
Devrais marcher 'il faut peut etre rajouter le chemin
 
 
ps: pour la listbox tu peut laisser tes messages dans le forum
comme ça tu aurais peut etre d'autres façons de faire.

pas de prob
 
La premeire partie commence a marcher  
juste quelque reglage de feuille et c bon
 
a plus et encore Merci

workbooks("nom du classeur.xls" ).saveas_ filename:="nouveaunom.xls"
 
ne marche pas  ca me ferme le classeur d origine

ma methode savecopyas eregistre une copie du classeur spécifié
sans modifier le classeur ouvert en memoire
regarde dans l'aide si ça peut t'aider

Je ve bien  mais ca marche pas  
mais je reessai  il faut que j y arrive non d une pipe

Rien a faire ca me remplace tjs les fichier existant
Moi je ve en faire une copie et sauvegarder
 
une idee ?

c bon  fallait utiliser  SaveCopyAs  et pas SaveAs

Situ as un classeur "cl1" dans une feuille en a1 tu as: 10
tu as cette macro :
sub enregistresousunautreom
sheets("feuil1" ).range("a1" )=20
activeworkbook.savecopyas "cl2.xls" ' ou chemin complet
end sub
 
CECI A POUR RESULTAT D'ECRIRE 20 EN A1,
D'ENREGISTRER SOUS LE NOM CL2.XLS UNE COPIE(SANS L'OUVRIR)
ET TU RESTE DANS CL1.xls

Merci nur  
 
ton truc marche    
Maintenant avant de de fermer copier une table je dois ecrire deux resultat (cases oranges) da un autres fichiers
une ligne par moteur....
 
je m y met
Ils veulent que ce soit fini aujourd'hui ... gggrrr