Récupération format cellule autre document
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:
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 !!!
