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
|
Sub deplacement_fichier()
Dim Source As String
Dim Destin As String
Dim agence As String
Application.Cursor = xlWait
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each MonAgence In Range("LISTE_AGENCE")
If (Sheets("Menu").Cells(MonAgence.Row, 6).Value = "ok") Then
Source = Sheets("Menu").Cells(MonAgence.Row, 4).Value
Destin = Sheets("Menu").Cells(MonAgence.Row, 5).Value
FileCopy Source, Destin
Kill Source
End If 'If MonAgence.Text <> "" Then
Next 'For Each MonAgence In Range("CodesAgences") Fin de la boucle sur les Agences.
End Sub |
