Voici mon pb
J'ai un fichier nommé "A" qui est enregistré dans "Ctruc/muche/bidulle/A.xls"
je veux sélectionner la feuille 1 du fichier A, la copier, créer un nouveau fichier que je nomme "B" et enregistrer ce fichier dans "Ctruc/muche/bidulle/toto/B.xls"
PB: le chemin est rentré par l'utilisateur dans une cellule ( case "A1" ) il est définit comme un string
Dim chemin As String
' chemin entré par utilisateur
chemin = Range("A1" ).Value
Sheets(1).Select
ActiveWindow.SmallScroll Down:=-70
Cells.Select
Range("B1" ).Activate
'on copie
Selection.Copy
'nouveau fichier et on colle
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir chemin
ActiveWorkbook.SaveAs FileName:= "B.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWorkbook.Close
Si quelqu'un peu m'aider j'apprécierais beaucoup
merci d'avance