bonjour Kciop , Zon et Andry
Lien supprimé
Lien supprimé
Kciop , il y a une erreur de saisie dans la macro
With ActiveSheet.Cells(Cell.Row, Y)
.FormulaArray = "='" & ThisWorkbook.Path
= ActiveCell.Value & "\[" & Cell & "]" & "sheet1" & "'!" & Cells(44, Y + 1).Address(0, 0
de plus , comme te le fait remarquer Zon et comme je te l'avais déja precisé dans un autre fil cité plus haut , si tes fichiers sont dans un autre repertoire il ne faut pas utiliser ThisWorkbook dans la procedure , mais par exemple "C\Mes documents".....
en attendant tu peux essayer ( je n'ai pas testé )
For Each Cell In Range("A10:A67")
For Y = 3 To 9
With ActiveSheet.Cells(Cell.Row, Y)
.FormulaArray = "='" & ThisWorkbook.Path & "\[" & Cell & "]" & "sheet1" & "'!" & Cells(44, Y + 1).Address(0, 0)
.Value = .Value
End With
Next Y
Next Cell
ou , si tu veux conserver les liaisons
For Each Cell In Range("A10:A67")
For Y = 3 To 9
With ActiveSheet.Cells(Cell.Row, Y)
.Formula = "='" & ThisWorkbook.Path & "\[" & Cell & "]" & "sheet1" & "'!" & Cells(44, Y + 1).Address(0, 0)
End With
Next Y
Next Cell
bonne soiree
michel
![](/proxy.php?image=http%3A%2F%2Fquigif.free.fr%2Flapin4.gif&hash=63bc4b6f137080280d4f8c9f4050414a)