Sub cartman()
Sheets("A").Select
nom = Cells(4, 5)
Chemin = Cells(5, 5)
Sheets("B").Copy
ActiveWorkbook.SaveAs Filename:= _
Chemin & "\" & nom, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Un Grand Merci
J'ai Remarque Que Tu Renommer Tes Colonne Avec Des Chiffres Comment Fait Tu ??
Encore Merci