Message "terminé" apres execution d'un macro
Bonsoir le forum,
Est-il possible de mettre un message "terminé" apres l'execution d'un macro
merci
voici le code de la macro:
Code:
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
| Private Sub CommandButton22_Click()
Application.ScreenUpdating = False
Dim oCible As Workbook
Dim sPath As String
Dim W As String
sPath = Sheets("TONY").Range("A516").Value
W = Dir(sPath & "*.xlm")
Do Until W = ""
Set oCible = Workbooks.Open(Filename:=sPath & W)
Dim oSource As Workbook
Set oSource = Workbooks("TARIFAIRE v5.xlm")
oCible.Worksheets("TONY").Range("B517").Value = oSource.Worksheets("TONY").Range("A517").Value
oCible.Worksheets("TONY").Range("B533").Value = oSource.Worksheets("TONY").Range("A511").Value
oCible.Close True
W = Dir()
Loop
Application.ScreenUpdating = True
End Sub |
