probleme fonctionnement Application.Run

Version imprimable

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:

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

15/01/2011, 08h55
Qwazerty

Salut
Ne pas oublier de faire des recherches avant de poster, application.run apparait souvent.

Il fonctionn comme ca

Dans le code classeur a partir duquel tu veux appeler la macro d'un autre Classeur déjà ouvert.

Code:

Application.run "'NomDuClasseurSource.xls'!NomDeLaMacro"

Le Classeur source étant celui qui contient la macro à exécuter bien sur ;)

++
Qwaz

Bonjour,
Comme tu l'as vu je souhaite ouvrir un a un tous les fichiers se trouvant dans un dossier et lancer la macro "mercuriale" se trouvant dans chacun des fichiers
Là j'ai essayé de mettre le nom du fichier contenant la macro comme tu m'as recommendé JE BLOQUE SUR LA DEUXIEME LIGNE BLEUE

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
28
29
30
31
Sub tonytest()
R = MsgBox("    Vous comfirmez la mise à jour des PVC vers les entrepots ?               ", vbYesNo + vbQuestion, "Mise a jour des PVC")
If R = vbYes Then
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 "'Entrepot_1.xlm'!mercuriale"
oCible.Application.Run "'Entrepot_2.xlm'!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

15/01/2011, 11h45
Qwazerty

Salut
Et non, tu n'as pas fait comme je t'ai montré ;).

Code:

oCible.Application.Run "'Entrepot_2.xlm'!mercuriale"

ocible est un workbook (un classeur donc) et un objet Classeur, n'a pas de propriété ou d'objet Application qui lui est lié.
"Application" représente le programme Excel (une session).
Donc le bon code serait

Code:

Application.Run "'Entrepot_2.xlm'!mercuriale"

Apres, il faudra faire attention a comment est codé ta procédure "mercuriale", pour être sur qu'elle travail bien sur le classeur qui la contient et non sur le classeur actif, enfin tout dépend sur quel classeur tu veux appliquer ta procédure. Si tu veux appliquer ta procédure contenu dans Classeur2 sur Classeur1, ça n'est pas la même chose que d'appliquer a partir de Classeur1 la procédure contenu dans classeur2 sur le classeur2.

Tu devrais développer un peu plus le fonctionnement que tu désires entre tes fichiers et ce que font tes procédure Mercuriale1 & 2.

++
Qwaz

ça aurait l'apparence de ceci (sans connaissance de la macro mercuriale)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub TonyTest()
Dim oSource As Workbook, oCible As Workbook
Dim sPath As String, W As String
 
Application.ScreenUpdating = False
If MsgBox("Vous comfirmez la mise à jour des PVC vers les entrepots?", vbYesNo + vbQuestion, "Mise a jour des PVC") = vbYes Then
   Set oSource = ThisWorkbook
   sPath = oSource.Sheets("TONY").Range("A516").Value
   W = Dir(sPath & "*.xlm")
   Do Until W = ""
      Set oCible = Workbooks.Open(Filename:=sPath & W)
      Application.Run "'" & oCible.Name & "'!mercuriale"
      oCible.Close True
      W = Dir()
   Loop
End If
MsgBox "Le transfert de vos nouveaux PVC vers les Entrepots est Terminé", vbInformation, "Information"
End Sub

15/01/2011, 12h11
VELO1222

ok merci Mercatog, merci beaucoup ça fonctionne :ccool:
dois-je ouvrir une autre conversation ou peux tu me repondre sur un message d'erreur que je recois (pas sur cette macro) c'est a dire celui ci

erreur d'éxecution '1004':
La methode 'sheets' de l'objet_'Global' à échoué
15/01/2011, 12h35
mercatog

Bien sûr, ouvre un autre sujet et mets ton code dedans