Bonjour le forum,
J’ai un problème sur les application.run
Je souhaite à partir d’un fichier de base lancer des application.run afin d’activer les macros des fichiers se trouvant dans un dossier Y, (les fichiers du dossier Y ouvrent des fichiers dans un dossier X copy des cellules et les colles dans les fichiers respectives du dossier Y) les application.run se lancent exécute les macros mais mon problème est que je n’arrive pas a fermer les fichiers du dossier Y en les enregistrant avant fermeture
D’avance merci de votre aide
Cdt
Tony


la programmation du fichier de base
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Lancement()
Application.ScreenUpdating = False
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Entrepots\Entrepot_1.xlm'!entrepot_UVCM"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Entrepots\Entrepot_2.xlm'!entrepot_UVCM"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Entrepots\Entrepot_3.xlm'!entrepot_UVCM"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Entrepots\Entrepot_4.xlm'!entrepot_UVCM"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Entrepots\Entrepot_5.xlm'!entrepot_UVCM"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Entrepots\Entrepot_6.xlm'!entrepot_UVCM"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Entrepots\Entrepot_7.xlm'!entrepot_UVCM"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Entrepots\Entrepot_8.xlm'!entrepot_UVCM"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Entrepots\Entrepot_9.xlm'!entrepot_UVCM"
Application.Run "'C:\Documents and Settings\FRNTO2M\Bureau\TARIFICATION\Entrepots\Entrepot_10.xlm'!entrepot_UVCM"
Application.ScreenUpdating = True
End Sub

la programmation des fichiers se trouvant dans le dossier Y
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 entrepot_UVCM()
Application.ScreenUpdating = False
 
 
Sheets("Prix achat-volume").Select
Workbooks.Open Filename:=Range("V2")
 
'vb droit PA
Range("E8:E15").Select
Selection.Copy
Application.Windows("Entrepot_1.xlm").Activate
Sheets("Prix achat-volume").Select
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Windows(2).Activate
Application.CutCopyMode = False
 
Application.Windows(1).Activate
ActiveWindow.Close
Application.Windows("Entrepot_1.xlm").Activate
 
End Sub