Discussion :

[mery13]

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

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mery13]

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)

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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