Re : Comment généraliser l'action d'une macro
Bonjour à tous,
Si j'ai bien compris, essaye la macro suivante dans le classeur source.
Cela créera un autre classeur au nom de la première et unique feuille au format .xls dans le même répertoire que celui du fichier source :
Sub EnregistrerFeuilleEnClasseur()
Dim Chemin As String, Nom As String, Fichier As String
Chemin = ThisWorkbook.Path
Sheets(1).Copy
With ActiveWorkbook
Nom = Sheets(1).Name
Fichier = Chemin & "\" & Nom & ".xls"
.SaveAs Filename:=Fichier, FileFormat:=xlExcel8
.Close
End With
End Sub