macro pour copier un fichier excel dans un dossier

bonjour à tous,
Je souhaite construire une macro pour enregistrer un fichier excel nommé ,par exemple banque-BMCE-tranche1, dans un sous-dossier nommé,par exemple banque-BMCE.
pour à la fin avoir un grand dossier nommé remboursement qui regroupe tout les remboursement fait pour chaque banque (banque-BMCE,....etc).
j'éspère que vous avez compris le concepte c'est tres urgent et j'en serais tres reconnaissante si vous m'aider
merci d'avance

Bonsoir,

essaies un truc comme ça :

tu peux aussi vérifier l'existence de tes dossiers ou les creer s'ils n'existent pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

racine = Workbooks(ActiveWorkbook.Name).Path   Dir Workbooks(ActiveWorkbook.Name).Path ChDir racine 'se place sur le repertoire du programme   If (verif = Dir(racine & "\" & nomdossier & "\", vbDirectory)) = vbEmpty Then 'On teste l'existence du répertoire nomdossier repert = racine & "\" & nomdossier Else nomdossier = inputbox("choisir un nom de dossier") MkDir racine & "\" & nomdossier 'on le crée s'il n'existe pas repert = racine & "\" & nomdossier End If 'tu adaptes ça a chaque sous-dossier 'et ensuite ChDir "C:\' et ton chemin\nomdossier\" ActiveWorkbook.SaveAs Filename:= _ "C:\ton chemin\nom de fichier.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False   'xlsm c'est pour excel 2007 sinon xls

---

bonne nuit

Merci beaucoup casefayere pour cette Macro ,je l’ai essayé mais j’ai trouvé un petit problème c’est que le fichier excel sur lequel je travail contient bcp de formules et du coup je ne pourrai pa refaire le même fichier avec toutes les formules ça prendra bcp de temps ;donc l’idée que j’ai eu c’est que si je veux faire un nouveau echancier je mets un titre dans le fichier excel, par exemple BNP-tranche1 ,et quand j’active ta macro il me fait une copie du fichier excel sur lequel je travail en lui donant le titre que j'ai ecris comme nom et l’enregistre dans le dossier rembousrement et comme ça à chaque fois je change le titre il change le nom
voici le fichier sur lequel je travail (le titre que je veux est en rouge)

Bonjour Mery et le forum,

je n'ai pas tout compris, d'autant que tes formules sont truffées d'erreurs mais ça ce n'est pas le sujet, mais sur la dernière ligne de code il suffirait de le changer comme ça :

Code:

---

1 2 3 4 5 6

nomfichier = sheets("feuil3").range("h2") ChDir "C:\' et ton chemin\nomdossier\" ActiveWorkbook.SaveAs Filename:= _ "C:\ton chemin\" & nomfichier & "xls", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 'apparemment "xls" dans ton cas

---