Discussion :

[gueyou]

Bonjour,

Debutant sur vba, j'ai presque reussi ce que je voulais faire:
à savoir modifier les références au nom de fichier dans les formules de mon document.

Cependant j'aimerais changer les références uniquement sur une plage de cellule d'une feuille. Comment dois-je modifier mon code ?
Je bloque...

Merci !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub NveauProj()
 
ActiveWorkbook.ChangeLink Name:= _
    "C:\chemin\doc.XLS", NewName:= _
    "C:\chemin\doc2.XLS", Type:=xlExcelLinks
 
End Sub

[fring]

Bonjour,

Tu peux essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub NveauProj()
 
Sheets("Feuil1").Range("A10:E20").Replace What:="doc.xls", Replacement:="doc2.xls", LookAt:=xlPart
 
End Sub

[bidou]

Danc ce cas tu dois remplacer directement dans les formules des cellules, du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D8:E10").Replace What:="toto.xls", Replacement:="toto2.xls", LookAt:=xlPart, SearchOrder:=xlByRows

[gueyou]

Merci beaucoup !