Application.run pour plusieurs fichiers

Version imprimable

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:

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

14/12/2010, 10h01
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 ?

Citation:

Envoyé par aalex_38

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:

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

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:

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

14/12/2010, 10h54
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 :

Citation:

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
14/12/2010, 11h12
Didier Gonard

Citation:

Envoyé par aalex_38

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

Citation:

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
14/12/2010, 11h27
VELO1222

bonjour,
je n'ai pas de bogage la macro s'execute normalement mais uniquement sur les 2 premieres lignes c'est a dire le 1er fichier ensuite les autres fichiers ne sont pas executés (aucunes modifications sur les autres fichiers)

ou faut-il changer la programmation c'est a dire effectuer une programmation qui ouvre tous les fichiers excel dans un dossier un a un et lance les deux applications.run
merci de votre reponse
cdt
tony
14/12/2010, 11h48
Didier Gonard

As-tu fait ce que conseille aalex_38, procéder en pas à pas,

ça ne fait rien après les 2 premières lignes : Est-ce que ça ouvre les classeurs concernés au moins ?

tu ne donnes pas le code des macros par rapport à TT, TTT ou TTTT,

si elles agissent sur de plages identiques ou vides, le résultat ne sera pas visible, sans parler de références relatives ou absolues... Bref, tu ne nous donne pas ce qu'il faut pour t'aider ;)

(Si en plus tu passes des paramètres... etc.)

cordialement,

Didier
14/12/2010, 11h50
aalex_38

Ouvrir plusieurs classeurs ne pose pas de problème chez moi

Que ce passe-t-il exactement quand tu fais du débogage pas à pas (en appuyant sur F8 pour lancer ta macro et pour faire du pas à pas ensuite)

Cette réponse m'interpelle, si tu fais du pas à pas tu devrais être à même de te rendre compte ce qui se passe :

Citation:

je n'ai pas de bogage la macro s'execute normalement mais uniquement sur les 2 premieres lignes c'est a dire le 1er fichier ensuite les autres fichiers ne sont pas executés (aucunes modifications sur les autres fichiers)

bonjour,
je vais vous donner un maximum d'info

dans mon classeur ou je declenche les Applications.run

Code:

1
2
3
4
5
6
7
8
9
10
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

ensuite dans le classeur TT.xls

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
33
34
Sub Ouvrir_copier_coller()
'
' ouvre un fichier spécifique
Application.ScreenUpdating = False
 
Workbooks.Open Filename:= _
"C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Nouveaux_PVC\TARIF BOUCHERIE.xls"
 
ActiveWorkbook.Sheets("TARIF V BOVINE").Range("E6:M52").Select
Selection.Copy
Application.Windows("TT.xls").Activate
Sheets("TARIF V BOVINE").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
 
Application.Windows(2).Activate
Sheets("TARIF PORC").Select
Range("E6:M33").Select
Selection.Copy
Application.Windows("TT.xls").Activate
Sheets("TARIF PORC").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
 
Application.Windows(2).Activate
 ActiveWorkbook.Close savechanges:=False
 Sheets("Feuil1").Select
Application.ScreenUpdating = True
 
End Sub

suivi de la deuxieme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro2()
    Sheets("TARIF V BOVINE").Select
    Range("E6:M7").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
    Sheets("Feuil1").Select
    ActiveWorkbook.Save
     ActiveWorkbook.Close savechanges:=False
End Sub

ensuite dans le classeur TTT.xls

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
33
34
Sub Ouvrir_copier_coller()
'
' ouvre un fichier spécifique
Application.ScreenUpdating = False
 
Workbooks.Open Filename:= _
"C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Nouveaux_PVC\TARIF BOUCHERIE.xls"
 
ActiveWorkbook.Sheets("TARIF V BOVINE").Range("E6:M52").Select
Selection.Copy
Application.Windows("TTT.xls").Activate
Sheets("TARIF V BOVINE").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
 
Application.Windows(2).Activate
Sheets("TARIF PORC").Select
Range("E6:M33").Select
Selection.Copy
Application.Windows("TTT.xls").Activate
Sheets("TARIF PORC").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
 
Application.Windows(2).Activate
 ActiveWorkbook.Close savechanges:=False
 Sheets("Feuil1").Select
Application.ScreenUpdating = True
 
End Sub

suivi de la deuxieme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro2()
 Sheets("TARIF V BOVINE").Select
    Range("E6:M7").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
    Sheets("Feuil1").Select
    ActiveWorkbook.Save
     ActiveWorkbook.Close savechanges:=False
End Sub

dans le 3ème fichier TTTT

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
33
34
Sub Ouvrir_copier_coller()
'
' ouvre un fichier spécifique
Application.ScreenUpdating = False
 
Workbooks.Open Filename:= _
"C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Nouveaux_PVC\TARIF BOUCHERIE.xls"
 
ActiveWorkbook.Sheets("TARIF V BOVINE").Range("E6:M52").Select
Selection.Copy
Application.Windows("TTTT.xls").Activate
Sheets("TARIF V BOVINE").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
 
Application.Windows(2).Activate
Sheets("TARIF PORC").Select
Range("E6:M33").Select
Selection.Copy
Application.Windows("TTTT.xls").Activate
Sheets("TARIF PORC").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
 
Application.Windows(2).Activate
 ActiveWorkbook.Close savechanges:=False
 Sheets("Feuil1").Select
Application.ScreenUpdating = True
 
End Sub

suivi de la 2ème macro

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro2()
Sheets("TARIF V BOVINE").Select
    Range("E6:M7").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
 
    Sheets("Feuil1").Select
    ActiveWorkbook.Save
     ActiveWorkbook.Close savechanges:=False
End Sub

d'avance merci de votre aide
tony

Bonjour,

As-tu essayé ainsi pour voir ce que ça donne ?

Code:

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

puis ainsi :

Code:

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

cordialement,

Didier

Bonjour Didier, Bonjour le Forum,
Je viens de trouver une solution a mon probleme
j'ai modifier mon fichier de base ainsi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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"
 
Windows("TT.xls").Activate
    ActiveWorkbook.Save
    ActiveWindow.Close
 
Windows("TTT.xls").Activate
    ActiveWorkbook.Save
    ActiveWindow.Close
 
Windows("TTTT.xls").Activate
    ActiveWorkbook.Save
    ActiveWindow.Close
Application.ScreenUpdating = True
 
End Sub

et ensuite j'ai modifer les fichiers afin qu'ils restent ouverts

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 Ouvrir_copier_coller()
Application.ScreenUpdating = False
 
Workbooks.Open Filename:= _
"C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Nouveaux_PVC\TARIF BOUCHERIE.xls"
 
ActiveWorkbook.Sheets("TARIF V BOVINE").Range("E6:M52").Select
Selection.Copy
Application.Windows("TT.xls").Activate
Sheets("TARIF V BOVINE").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
 
Application.Windows(2).Activate
Sheets("TARIF PORC").Select
Range("E6:M33").Select
Selection.Copy
Application.Windows("TT.xls").Activate
Sheets("TARIF PORC").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
 
Application.Windows(2).Activate
 ActiveWorkbook.Close savechanges:=False
 Sheets("Feuil1").Select
Application.ScreenUpdating = True
End Sub

Merci pour le temps que vous m'avez accordé, toutefois est il possible de remplacer le chemin des application.run"'C:\Documents and Settings\FRNT..... par application.run"'sheets("x") range[A1] ??
Cdt
Tony