Bonjour
J'essaye de copier une plage ("A1:S1","A33,S33") d'un fichier Excel "Modéle.Xls" vers un autre Fichier "Report.Xls" voila le code que j ai fais:
"
Set xlBook = xlApp.Workbooks.Open("chemin\Modéle.xls")
Set xlSheet = xlBook.Worksheets("NomFeuil")
Set xlReport = xlApp.Workbooks.Open("chemin\Reporting.xls")
Set xlSheetReport = xlReport.Worksheets.Add
xlSheetReport.Name = NomFeuil
xlBook.Worksheets("Modéle").Range("A1:S1", "A33,S33").Select.Copy Destination:=xlReport.Worksheets _
("chemin\" + NomFeuil + ".xls").Range("A1").Select
"
mais il me donne l' erreur d'execution 9.
Merci.
Partager