Bonjour le forum,
j'ai un petit probleme mon application.run ne fonctionne pas quelqu'un peut m'aidé SVP
merci d'avance
cdt

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
 
sub TEST()
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.Application.Run "mercuriale"
 
 
oCible.Close True
 
 W = Dir()
Loop
Application.ScreenUpdating = True
End If
Select Case MsgBox("Le transfert de vos nouveaux PVC vers les Entrepots est Terminé", vbInformation, "Information")
Case vbOK
End Select
 
End Sub