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!