Re : Copier-coller une feuille avec nom identique entre deux classeurs ouverts
Bonsoir VDavid et tous les autres,
Je mets la dernière main à mon travail.
Pourriez-vous me dire comme je peux intégrer le code ci-dessous (il est ici intégré dans une feuille unique du classeur) dans la macro suivante afin que le code se réalise sur toutes les feuilles du classeur "Professeur" ? Je bloque...
Voici le code
Sub tonight()
' Copie de la feuille de données
Sheets("Herremans").Range("A1:AT40").Copy Sheets("Herremans").Range("AV1:CO40")
Range("CN:CN, CL:CL, CJ:CJ, CH:CH, CE:CE, CC:CC, CA:CA, BY:BY, BV:BV, BT:BT, BR:BR, BP:BP, BM:BM, BK:BK, BI:BI, BG:BG, BD:BD, BB:BB, AZ:AZ, AX:AX").Delete
Range("AT:AT, AR:AR, AP:AP, AN:AN, AK:AK, AI:AI, AG:AG, AE:AE, AB:AB, Z:Z, X:X, V:V, S:S, Q:Q, O:O, M:M, J:J, H:H, F:F, D
").Delete
End Sub
Voici la macro
Sub copie_fichier_prof()
ThisWorkbook.SaveCopyAs "C:\Users\User\Documents\Jonfosse\Horaires\professeurs.xls"
Workbooks.Open "C:\Users\User\Documents\Jonfosse\Horaires\professeurs.xls"
Workbooks("professeurs.xls").Activate
Application.DisplayAlerts = False
Sheets(Array("Gestion", "J_109", "Données")).Delete
Dim i As Integer, h As Integer
Dim maPlage As Range
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
With Sheets(i)
Set maPlage = Sheets(i).Range("A42:BN2131")
maPlage.ClearContents
maPlage.ClearFormats
For h = 1 To .Cells(1, 287).End(xlToLeft).Column
If .Cells(1, h).Value Like "*Prof*" Then .Columns(h).Delete
Next h
End With
Next i
Application.ScreenUpdating = True
Workbooks("professeurs.xls").Close True
End Sub
Déjà un tout grand merci et une toute belle soirée,
Thomas