ok. et encore merci !
Je ne pense pas que la mise en forme des factures PDF change, ça devrait donc bien se passer pour les suivantes.
Sinon, j'ai testé, une feuille REPORT contenant la liste est générée, par contre il y a une error '9' sur la ligne en rouge ci-dessous :
Code:
Sub report()
ligne = 2
derfeuille = Sheets(Sheets.Count).Name
Sheets.Add.Name = "REPORT"
Sheets("REPORT").Columns("B:B").NumberFormat = "@"
Dim ladate As String
For Each sh In Sheets
If sh.Name <> "REPORT" And sh.Name <> derfeuille Then
For n = 2 To sh.Range("A65536").End(xlUp).Row - 1
If sh.Range("B" & n) = "" Then
greffe = sh.Range("A" & n)
Else
Sheets("REPORT").Cells(ligne, 1) = greffe
ladate = Split(sh.Range("A" & n), " ")(0)
Sheets("REPORT").Cells(ligne, 2) = ladate
Sheets("REPORT").Cells(ligne, 3) = Split(sh.Range("A" & n), " ")(1)
Sheets("REPORT").Cells(ligne, 4) = Split(sh.Range("A" & n), " ")(2)
Sheets("REPORT").Cells(ligne, 5) = Split(sh.Range("A" & n), " ")(3)
Sheets("REPORT").Cells(ligne, 6) = sh.Range("B" & n) / 100
ligne = ligne + 1
End If
Next n
End If
Next
For n = 1 To Sheets(derfeuille).Range("A65536").End(xlUp).Row
Sheets("REPORT").Cells(ligne + 1 + n, 1) = Sheets(derfeuille).Cells(n, 1)
Sheets("REPORT").Cells(ligne + 1 + n, 2).NumberFormat = "General"
If InStr(Sheets(derfeuille).Cells(n, 2), ",") <> 0 Then
Sheets("REPORT").Cells(ligne + 1 + n, 2) = Sheets(derfeuille).Cells(n, 2) * 1
Else
Sheets("REPORT").Cells(ligne + 1 + n, 2) = Sheets(derfeuille).Cells(n, 2) / 100
End If
Next n
End Sub