Discussion :

[petit-ours]

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

[jfontaine]

Bonjour,

Ton code copie la feuille et non le format

Essais comme cela (code non testé)

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").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

[petit-ours]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

Bonjour,

L'erreur est là:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.