Bonjour à tous, J'ai un problème des fichiers de mise en forme.

J'ai un fichier d'excel avec un onglet: "donnee", je voudrais copier le format(mise en forme) de cet onglet pour les autres fichiers (100 fichiers) "feuil1", pour qu'ils soient en même formats. j'ai testé pour un fichier, mais il ne fonctionne pas, quelqu'un peut m'aider? merci d'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub format()
table1 = ActiveWorkbook.Name
Workbooks(table1 ).Sheets("DONNEES").Select
Selection.Copy
table2 = ActiveWorkbook.Name
Workbooks(table2).Sheets("Feuil1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub