copier coller

[tony]

bonjour le forum,
pouvez vous m'expliquer pourquoi ma programmation de ne fonctionne pas
Sub Macro5()
' tony

Dim W As String

W = Dir('C:\\Documents and Settings\\NOURRY Tony\\Bureau\\TARIF\\*.xls')
Do Until W = ''
i = i + 1
Workbooks.Open Filename:='C:\\Documents and Settings\\NOURRY Tony\\Bureau\\TARIF\\' & W
If i = 2 Then i = i + 1
activewoboock.Sheets(tony).Range('a1:a10').Copy Destination:=Workbooks('TRAVAIL').Sheets(tony).Cells(1, i)
activeworbook.Close W = Dir
Loop
End Sub
par avance merci

 

[natbru]

Bonjour Tony,

Je ne sais pas si ça pourra t'aider mais je suis étonnée que dans le chemin que tu indiques il n'y est aucun '/', mais peut-être est-ce normal ??