bonjour le forum,
je souhaite ouvrir tous les fichiers excel se trouvant dans un dossier et y coller des données mais voila s'ouvre le premier fichier c'est tous et de plus elle se bloque a cet endroit
voici la macro

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
Sub chemin_Entrepot()
Sheets("TONY").Select
Dim W As String
W = Dir(Sheets("TONY").Range("A516") & "*.xlm")
Do Until W = ""
Workbooks.Open Filename:=Sheets("TONY").Range("A516") & W
R = ("TARIFAIRE v5.xlm")
Application.Windows(R).Activate
Sheets("COEFFICIENTS").Select
Range("D65").Select
Selection.Copy
Windows(2).Activate
Sheets("TONY").Select
Range("B517").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.Windows(2).Activate
Application.Windows(R).Activate
Application.Windows(2).Activate
 ActiveWorkbook.Close savechanges:=False
Application.Windows(R).Activate
  W = Dir
  Loop
Application.ScreenUpdating = True

End Sub
merci d'avance de votre aide