Discussion :

[amka]

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.

[Tofalu]

Ton objet worksheet est bien nommé

chemin\" + NomFeuil + ".xls

[amka]

Ton objet worksheet est bien nommé

oui il est bien nomé, le nom je le récupére d'un traitement que j'ai fais avant.

[romrai]

Salut,

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlBook.Worksheets("Modéle").Range("A1:S1", "A33,S33").Select.Copy

ce ne serait pas plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlBook.Worksheets("Modéle").Range("A1:S1", "A33:S33").Select.Copy

?

[amka]

Salut,

au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlBook.Worksheets("Modéle").Range("A1:S1", "A33,S33").Select.Copy

ce ne serait pas plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlBook.Worksheets("Modéle").Range("A1:S1", "A33:S33").Select.Copy

?

c'est le méme code ????

[romrai]

Salut,

c'est juste une suggestion: en fait t'a écrit "A33,S33"; et moi je me demandais si c'est pas "A33:S33"?

Sinon ton erreur se trouve sur quelle ligne?