Pourriez-vous m'aider a terminer cette programmation qui bloque sur la ligne bleue
Et est il possible de suprimer la demande "voulez vous enregistrer les modifications apportées à ......", sachant qu'il y a 12 fichiers dans le dossier
voici la macro
Sub chemin_Entrepot_TEST()
Dim W As String
W = Dir(Sheets("TONY").Range("A516") & "*.xlm")
Do Until W = ""
Dim oCible As Workbook
Dim oSource As Workbook
Set oSource = Workbooks("TARIFAIRE v5.xlm")
'...
Set oCible = Workbooks.Open(Filename:=Sheets("TONY").Range("A516") & W)'...
oCible.Worksheets("TONY").Range("B517").Value = oSource.Worksheets("COEFFICIENTS").Range("D65").Value
'...
'...
oCible.Close
W = Dir()
Loop
End Sub
D'avance merci de votre aide
Cdt
Tony
A voir également:
[déplacé VB.NET -> VBA] Ouvrir tous les fichiers dans un dossier
