Choix du dossier d'enregistrement

Bonjour,

j'ai un petit code, ci-après, dans lequel je souhaiterai rajouter le choix dans lequel les fichiers générés en autoamatique s'enregistre, malheureusement, je n'y arrive pas.... ( enfin, c'est la notion de With.. qui me pertube..).

    Sub UNEFeuilleUNClasseur()
         For Each feuille In ActiveWorkbook.Sheets
       feuille.Copy      
With ActiveWorkbook
            .Title = feuille.Name
            .Subject = feuille.Name
            .SaveAs Filename:=feuille.Name + ".xlsx"
        End With
     Next
    End Sub

MERCI

Bonjour,

C'est à se niveau là :

.SaveAs Filename:=feuille.Name + ".xlsx"

Le chemin du répertoire doit se mettre dans le "nom" du fichier au moment de l'enregistrement, comme suit :

 .SaveAs Filename:="C:\\Repertoire\Larbreachat\...\...\" & nomdufichier & ".xlsx"

Dit moi si cela fonctionne mais normalement aucun problème.

Cdlt,

Ah.. c'était si simple..

J'ai encore beaucoup de progrès..

MERCI!!