VBA format de mis en en forme

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:

---

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

---

Bonjour,

Ton code copie la feuille et non le format

Essais comme cela (code non testé)

Code:

---

1 2 3 4 5 6 7 8

Sub format() table1 = ActiveWorkbook.Name Workbooks(table1 ).Sheets("DONNEES").Cells.Select Selection.Copy table2 = ActiveWorkbook.Name Workbooks(table2).Sheets("Feuil1").Range("A1").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Sub

---

Merci pour la réponse rapide, mais le format reste toujour le même, est ce que c'est le Pb d'ici?

Code:

---

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

---

Ci dessous le code généré par l'enregistreur de macro pour la copie d'un format sur un autre classeur

Code:

---

1 2 3 4 5

Cells.Select Selection.Copy Windows("Classeur5").Activate Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False

---

Bonjour,

L'erreur est là:

Code:

---

1 2	table2 = ActiveWorkbook.Name ' En écrivant cela, table2 sera égal à table1 Workbooks(table2).Sheets("Feuil1").Select

---

Il est indispensable d'apprendre à ne jamais utiliser les Select, Selection et autres ActiveCell ou ActiveWorkbook.

En début de code, déclare des objets Workbook (wbkSource, wbkDest) pour tes différents classeurs et utilise ces objets dans la suite du code.