Discussion :

[VELO1222]

Bonsoir le forum,
j'ai besoin d'aide sur les Applications.run
en faite je souhaite activer des macros dans differents fichier en utilisant Application.run mais voici cette application fonctionne pour le 1er fichier mais pas le second
merci d'avance de votre aide
VELO 1222

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro4()
 
'Application.ScreenUpdating = False
 
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\2TT.xls'!Ouvrir_copier_coller"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\2TT.xls'!Macro2"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\TT.xls'!Ouvrir_copier_coller"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\TT.xls'!Macro2"
 
'Application.ScreenUpdating = True
 
End Sub

[aalex_38]

Bonjour,

Je viens de faire le test et je peux enchainer sans problème les macros.

Pour fonctionner je te rappelle que le classeur cible doit être ouvert, sinon ça ne fonctionne pas (c'est clairement indiqué dans l'aide)

Si ton fichier est bien ouvert, ajoute une gestion d'erreur, une de tes macros doit planter ?

[Didier Gonard]

Bonjour,

Pour fonctionner je te rappelle que le classeur cible doit être ouvert, sinon ça ne fonctionne pas (c'est clairement indiqué dans l'aide)

Sous quelle version ?, dans l'aide 2007, ce n'est pas le cas et ceci :

Code :

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

1
2
3
4
5
6
Sub OuvreToi()
Application.Run "'D:\to destroy Range-Exos.xlsm'!Encadre"
Application.Run "'D:\to destroy Range-Exos.xlsm'!Ménage"
Application.Run "'D:\select change sur toutes les feuilles.xls'!TestDivers"
 
End Sub

fonctionne sans souci, mélange xlsm et xls, classeurs fermés qu'il ouvre au moment voulu.


Rajout : Attention de ne pas confondre le domaine d''Application :
- l'objet Range (qui je pense concerne les feuilles de macros xl4, donc à oublier sauf pour mémoire).

- l'objet Application

D'où l'intérêt pour VELO1222 de préciser sa version (entre balises) et le message d'erreur qu'il obtient....

cordialement,

Didier

[VELO1222]

bonjour didier, bonjour le forum,
Pour repondre a ta question je suis sous excel 2003
je viens de refaire un test en essayant d'ouvrir 3 fichiers dans ce dossier et de lancer les macros mais c'est toujours que le 1er ficheir de la programmation qui s'execute et les autres non
merci de votre aide
cdt
tony

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
Sub Macro4()
 
'Application.ScreenUpdating = False
 
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\TT.xls'!Ouvrir_copier_coller"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\TT.xls'!Macro2"
 
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\TTT.xls'!Ouvrir_copier_coller"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\TTT.xls'!Macro2"
 
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\TTTT.xls'!Ouvrir_copier_coller"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\TTTT.xls'!Macro2"
 
'Application.ScreenUpdating = True
 
End Sub

[aalex_38]

Bonjour à tous,

un conseil VELO1222 fais du debogage pas à pas pour voir ou ce situe le problème.

Ormonth, merci pour ces précisions et effectivement cela fonctionne aussi pour des classeurs fermés, ils s'ouvrent à l'execution, j'ai été trompé par ce message dans l'aide VBA :

Cet exemple montre comment appeler la fonction macro My_Func_Sum, qui est définie dans la feuille macro MyCustom.xlm (cette dernière doit être ouverte). Dans cet exemple, la fonction accepte deux arguments numériques, 1 et 5.

Edit : mon poste est également installé avec Excel 2003

[Didier Gonard]

j'ai été trompé par ce message dans l'aide VBA :

Cet exemple montre comment appeler la fonction macro My_Func_Sum, qui est définie dans la feuille macro MyCustom.xlm (cette dernière doit être ouverte). Dans cet exemple, la fonction accepte deux arguments numériques, 1 et 5.

C'est justement la partie qui fait référence à l'objet Range, la terminaison .xlm de l'exemple indique bien une feuille de macro XL4 (ou antérieure).

cordialement,

Didier