Problème de formule : impossible de trouver l'erreur

[Gwendoline]

Bonjour à tous,

J'ai ma vba :
Sheets(Array("TE_TA", "TE_TB", "TE_TC", "TE_TD")).Copy after:=Workbooks(titreequipes1 & M & ".xlsx").Worksheets(Sheets.Count)

Et je ne comprends ou est mon erreur. 😡

Peut-être seriez vous m'aider. Deux yeux valent mieux qu'un. 😀

La version complète :
Sub quarter()
M = "M" & InputBox("M?")
' Données
titre = "Classement 2012 "
titreequipe1 = titre & "Equipes 1 "


QF = MsgBox("Sommes-nous en Quarter?" & Chr(10) & "(Attention : si oui, les TE seront insérés", vbYesNo, "Quarter TE")
If QF = vbYes Then

Workbooks.Open Filename:= _
"\\Closing Report\_EQUIPES A\" & titreequipe1 & M & ".xlsx"

Workbooks.Open Filename:= _
"\\TE Report\TE Report - Team 1.xlsx"
Sheets(Array("TE_A, "TE_B", "TE_C")).Select
Sheets("TE_A").Activate

'Copier les onglets sur GAR
Sheets(Array"TE_A, "TE_B", "TE_C")).Copy after:=Workbooks(titrefinance & M & ".xlsx").sheets(Sheets.Count)
Else: End If
End Sub


Merci beaucoup!

 

[Staple1600]

Re : Problème de formule : impossible de trouver l'erreur

Bonsoir

Ca marche comme ceci ici
(avec deux nouveaux classeurs Classeur1 et Classeur2 ouverts dans la même instance Excel)

Sub Macro6()
' Macro6 Macro
' Macro enregistrée le 14/08/2012 par Staple1600
    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy after:=Workbooks("Classeur2") _
        .Sheets(Workbooks("Classeur2").Sheets.Count)
End Sub