Discussion :

[Laugeek]

Bonjour,

Je passe des macros VBA sous une applis VB6 et je rencontre un petit plantage lors de la copie de mes feuilles Excel.
L'objectif premier est de copier une feuille excel d'un classeur A dans un autre classeur B.
Sous VBA, le code était simple:

Code :

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

W_Book_Src_2.Sheets("Echéanciers").Copy Before:=W_Book_Name.Sheets("Détail")

W_Book_Src_2 et W_Book_Name étant les classeurs.

Sous VB6, j'ai bien pensé à déclaré mes objet excel:

Code :

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

1
2
3
4
Set Xl2 = CreateObject("excel.application")
Set W_Book_Src_1 = Xl1.Workbooks.Open(Fic_Src_1)
Set XlDest = CreateObject("excel.application")
Set W_Book_Name = XlDest.Workbooks.Open(Fic_Dest)

et je tente la copie avec le même code qu'en VBA soit

Code :

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

W_Book_Src_2.Sheets("Echéanciers").Copy Before:=W_Book_Name.Sheets("Détail")

Cependant j'ai le droit à l'erreur '1004' et le message "la méthode Copy de la classe Worksheet à échoué"

Si vous connaissez la réponse, merci pour votre aide.

[SfJ5Rpw8]

Bonsoir

Une première réponse en forme de question : pourquoi utiliser plusieurs objets Excel.Application , tu peu bien ouvrir tes deux classeur dans même instance d'excel ?
ensuite il vas falloir "éclaircir" ton code tu as une variable Xl1 qui devient plus loin Xl2 ..? W_Book_Src_2 devient W_Book_Src_1 ...

[Laugeek]

Yop, je viens de voir ma gaffe. Merci !

Supprimé les instances Excel en trop et n'en gardé qu'une seul pour regrouper mes classeurs Excel dessous.

J'ai testé, tout passe.

Problème Résolu merci.