Bonsoir,

Je souhaiterais copier une feuille dans un nouveau classeur
et sauvegarder ce nouveau classeur sous un Nom donné par une variable
est-ce possible ?

Pour faire simple, Je veux remplacer "Classeur1.xls" par une variable
qui contiendra le Nom de Fichier à sauvegarder mais comment écrire le code ?
Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
   Sheets("Feuil1").Select
    Sheets("Feuil1").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Mes documents\Classeur1.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    Windows("FichierOrigine").Activate