Bonjour à tous, Je réalise une feuille sous Excel 2000. Je souhaiterai créer une macro me permettant d'enregistrer le fichier suivant ces points : - Nom de fichier en fonction d'une valeur du tableau - dans un dossier qui porte le même nom que l'une des valeurs du tableau. Par exemple : si dans mon tableau, j'ai A1='Barcelone ; A2='360, je souhaite que mom fichier soit enregistrer ainsi : C:\mes documents\Barcelone\360.xls En sachant que le dossier Barcelone est déjà créé... Merci d'avance! Un saludo Philippe

Voilà '----------------------------------------------------------- Dim Chemin As String Dim nomDossier As String Dim nomFichier As String Range("A7").Select 'Cellule contenant le nom du dossier nomDossier = "C:\mes documents\" & ActiveCell.Value Range("B7").Select 'Cellule contenant le nom du fichier nomFichier = ActiveCell.Value & ".xls" Chemin = nomDossier & "\" & nomFichier ChDir nomDossier ActiveWorkbook.SaveAs Filename:=Chemin, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False '----------------------------------------------------------- @+

Merci Tig. Une fenêtre apparait avec le message "400" Et la macro ne s'execute pas...

Essayes de faire exécuter la macro "pas à pas détaillé" et dis-moi à quel moment ça plante

Je vais paraitre Neuneu, mais dès le début... Il me met en jaune : "Sub essai()", je clique sur lecture et juste après, la fenêtre "400" se lance

Il faute faire F8 pour avancer pas à pas (ligne par ligne) Dès que la 1ère ligne est en jaune (ton Sub essai() ) Puis F8 F8 F8 etc.

Modifié par tig le 21/10/2004 13:29

OK... Sorry, Donc en fonctionnant de cette manière, la macro plante apres cette ligne là : Range("A7").Select 'Cellule contenant le nom du dossier J'ai bien une donnée en "A7" qui est le nom d'un de mes dossier sous mon C:\

As-tu fait une nouvelle macro ou simplement copié le code ? Car très certainement, Excel ne sait pas sur quelle feuille sélectionner la cellule -> faire 1. <Outils><Macros><Nouvelle Macro...> et arrêter immédiatement l'enregistrement de la macro. 2. <Alt>+<F11> pour lancer VBA et choisir la macro qui vient d'être créée et coller le code. 3. Retester

Merci c'est ce qu'il fallait faire... Tig! T'es le meilleur... Je te recontacte au cas ou! Saludos