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?

[amka]

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?

l'erreur se trouve dans la ligne du fichier destination

[amka]

l'erreur se trouve dans la ligne du fichier destination

J'ai Changer le code précedent et c'est tjr la méme erreur sur la phrase en rouge

xlBook.Worksheets("Modéle").Activate
xlBook.Worksheets("Modéle").Range("A1:S1", "A33:S33").Copy
xlReport.Worksheets("NomFeuil").Activate
xlBook.Worksheets("Modéle").Range("A1:S1", "A33:S33").Paste Destination = xlReport.Worksheets("NomFeuil").Range("A1:S1", "A33:S33")

merci.

[Invité]

Normalement y'a juste à faire :

Code :

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

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

Le

Destination = xlReport.Worksheets("NomFeuil").Range("A1:S1", "A33:S33")

est en trop

A+

[amka]

Normalement y'a juste à faire :

Code :

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

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

Le est en trop

A+

Mais moi je veux copier dans un autre classeur c'est pas du tous le méme

[Invité]

Oui je suis bien d'accord, je n'ai pas recopié tout ton code

Sinon ça donne :

Code :

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

1
2
3
4
5
6
xlBook.Worksheets("Modéle").Activate
xlBook.Worksheets("Modéle").Range("A1:S1", "A33:S33").Copy
' Changement de feuille ICI
xlReport.Worksheets("NomFeuil").Activate
' On colle sur la nouvelle feuille
xlBook.Worksheets("Modéle").Range("A1:S1", "A33:S33").Paste

Ca ne te va pas comme ça !?

[amka]

Oui je suis bien d'accord, je n'ai pas recopié tout ton code

Sinon ça donne :

Code :

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

1
2
3
4
5
6
xlBook.Worksheets("Modéle").Activate
xlBook.Worksheets("Modéle").Range("A1:S1", "A33:S33").Copy
' Changement de feuille ICI
xlReport.Worksheets("NomFeuil").Activate
' On colle sur la nouvelle feuille
xlBook.Worksheets("Modéle").Range("A1:S1", "A33:S33").Paste

Ca ne te va pas comme ça !?

merci bcp pour l'idée mnt ça marche et voila le code exacte:

Code :

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

1
2
3
4
5
6
  xlSheet.Activate
        xlSheet.Range("A1:s1", "A33:s33").Copy
        ' Changement de feuille ICI
        xlSheetReport.Activate
        ' On colle sur la nouvelle feuille
        xlSheet.Paste Destination:=xlSheetReport.Range("a1")

[romrai]

N'oubli pas le Tag Résolu!

[ZouzouZaza]

Pour info, même si le sujet est ancien et qu'il a été résolu, cela peut servir à d'autres :
Il y a diverses causes à l'erreur d'exécution '9'. L'une d'elle est d'avoir deux classeurs Excel ouvert et de ne pas avoir préciser dans son code VB ThisWorkbook à chaque Validation ou Initialisation ou autres événements importants.
Astuce : utiliser With ThisWorkbook au début des fonctions et End With à la fin.

Voila, je ne sais pas si c'est trivial ou pas mais j'avais cette erreur de temps en temps sans comprendre pourquoi.
++