Discussion :

[Misha]

Bonjour,

Je viens vers vous parce que je n'arrive pas à trouver pourquoi je mon programme génère cette erreur lors d'une deuxième execution.

La partie concernée demande juste une copie d'une ligne excell d'un onglet à un autre. Lorsque j'execute mon programme la première fois, je n'ai aucun problème mais si je l'execute une deuxième fois, j'ai l'erreur qui se déclenche sur la ligne suivante :

Code :

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

1
2
3
4
5
6
 
Dim xlApp As Excel.Application
...
...
xlApp.Worksheets("Modele").Range("A2:H2").Copy _
        Destination:=Worksheets(pFeuilleDest).Range("A2")

pFeuilleDest etant le feuille dans laquelle je souhaite copier mes infos.

Le message d'erreur est le suivant :
Erreur 1004 la méthode 'Worksheets' de l'objet '_Global' à échoué.

Quelqu'un a une idée svp ?

Merci d'avance.

[Jean-Philippe André]

salut,
ton worksheet tout seul pointe dans le vent pour Access, essaie avec ceci :

Code :

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

1
2
xlApp.Worksheets("Modele").Range("A2:H2").Copy _
        Destination:=xlApp.Worksheets(pFeuilleDest).Range("A2")

[Misha]

Je n'ai plus de plantage.
Merci d'avoir répondu aussi rapidement .