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

[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

[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

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

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)

[VELO1222]

bonjour,
je vais vous donner un maximum d'info

dans mon classeur ou je declenche les Applications.run

Code :

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

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 :

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

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

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 :

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

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

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 :

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

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

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

[Didier Gonard]

Bonjour,

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

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

puis ainsi :

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

cordialement,

Didier

[VELO1222]

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

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

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