Discussion :

[VELO1222]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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


++
Qwaz

[VELO1222]

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 :

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
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

[Qwazerty]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

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
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

[VELO1222]

ok merci Mercatog, merci beaucoup ça fonctionne
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é

[mercatog]

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