Re : Excel 2003. Ouvrir fichier et copier une feuille ds un autre classeur
Merci pour ton fichier : il me servira surement!! ( je vais devoir travailler dur pour faire de même
)
Voilà j' ai fini voici le résultat, si ça peut servir a qqn : cela fonctionne
Sub ExtraitVersAutreClasseur()
Dim nom As String
Dim wk As Workbook
critere = InputBox("Saisir le code ")
If critere = "" Then Exit Sub
[A2].AutoFilter Field:=2, Criteria1:=critere & "*"
'Sheets.Add After:=Sheets(Sheets.Count)
'ActiveSheet.Name = critere
Sheets("BD").Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy
'création d' un nouveau fichier, le nom du fichier sera le code saisi
Set wk = Workbooks.Add
ActiveSheet.Paste
nom = ".xls"
ActiveWorkbook.SaveAs Filename:=critere & nom
ActiveWorkbook.Close
Application.DisplayAlerts = False
Cells.EntireColumn.AutoFit
Sheets("BD").ShowAllData
End Sub