Bonjour,
En cherchant un peu, j'ai trouvé et adapté un bout de code.
MAIS il me répond fichier introuvable, pq?
Merci pour votre aide.
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
Partager