Bonjour, j utilise la methode fs.copyfile de cette façon mais j ai un bug
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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
private sub button OK ()
Dim fs
set fs = CreateObject("Scripting.filesystemObject")
....ici 
....plein de ligne de code
.....
.....

select case true
case combobox = A
PCF3 = "D:\......."
case combobox = B
PCF3 = "D:\......."
case combobox = C
PCF3 = "D:\......."
case combobox = D
PCF3 = "D:\......."
end select
Mkdir PCF3  
origine = "D:\....."
Destination= PCF3 & "\"
fs.copyfile origine, destination


...ici 
..plein 
...de 
...ligne de code
' et la j ai encore une utilisation de fs


select case true 
case combobox = A
 fs.movefolder "D:\.....", "D:\....."
case combobox = B
fs.movefolder "D:\.....", "D:\....."
case combobox = C
fs.movefolder "D:\.....", "D:\....."
case combobox = D
fs.movefolder "D:\.....", "D:\....."
end select
set fs nothing 

end sub
le bug est en jaune , si vous avez une idée merci!!!!