Bonjour,

En cherchant un peu, j'ai trouvé et adapté un bout de code.

MAIS il me répond fichier introuvable, pq?

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
Sub export()
 
ChDir "\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP"
    ClasseurRegional = Dir("\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP\Janvier*.xlsx")
    While Len(ClasseurRegional) > 0
        Workbooks.Open ClasseurRegional
        Range("A2:C" & ActiveSheet.UsedRange.Rows.Count - 1).Copy
        Sheets("MOIS-MAAND").Activate
        Range("P1048576").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation _
            :=xlNone, SkipBlanks:=False, Transpose:=False
        Call ClearClipboard
        Workbooks(ClasseurRegional).Close
        ClasseurRegional = Dir
    Wend
    MsgBox ("Données exportées")
    Sheets("MOIS-MAAND").Range("D1").Activate
 
End Sub
Merci pour votre aide.