Bonjour,

Je suis en train de préparer une macro me permettant de corriger des exercices d'étudiants automatiquement (enfin du moins le plus possible).

Le principe est d'utiliser un document maitre, celui-ci va récupérer les contenus de cellule des différents fichiers présents dans un dossier spécifié.

Tout marche très bien, mais par contre je n'arrive pas à récupérer le format d'une cellule (mise en forme des données, bordure, trame,...).

Quelqu'un pourrait-il m'aider ?

Voici le code que j'ai déjà et qui fonctionne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
    Dim Dossier As String, Ctr As Long, Fichier As String
    Dossier = "C:\Documents and Settings\alby\Bureau\Scrip examen\etudiants\"
    Ctr = 3
    Fichier = Dir(Dossier & "*.xls")
    Do While Fichier <> ""
        Workbooks.Open Dossier & Fichier
        ThisWorkbook.Sheets("Sheet1").Cells(Ctr, 1) = Sheets("NOM PRENOM").[B4]
        ThisWorkbook.Sheets("Sheet1").Cells(Ctr, 2) = Sheets("NOM PRENOM").[B5]
        ThisWorkbook.Sheets("Sheet1").Cells(Ctr, 3) = Sheets("NOM PRENOM").[B6]
 
 
 
        ThisWorkbook.Sheets("Sheet1").Cells(Ctr, 10) = "'" & Sheets("Surface boiséee").[B27].FormulaLocal
        ThisWorkbook.Sheets("Sheet1").Cells(Ctr, 11) = "'" & Sheets("Surface boiséee").[C27].FormulaLocal
        ThisWorkbook.Sheets("Sheet1").Cells(Ctr, 12) = Sheets("Surface boiséee").[B5]
 
        Ctr = Ctr + 1
        Workbooks(Fichier).Close False
        Fichier = Dir
    Loop
End Sub
Merci d'avance !!!