Procédure pour changer de lien

[dhiouf]

Bonsoir à tous
q'el est la procédure en VBA pour changer le lien de 3 cellules avec 2 classeur l'une dans C,l'autre dans E
Si A1<>"" then
("B1:B3") = 'C:\paie[dhiouf.xls]Feuil1!$F$8
Si non
("B1:B3") = 'E:\paie[dhiouf.xls]Feuil1!$F$8
Merci d'avance

 

[ERIC S]

Re : Procédure pour changer de lien

Bonjour

non testé!

if range("A1").value="" then
range("B1:B3").formula = "='C:\paie[dhiouf.xls]Feuil1!$F$8"
else
range("B1:B3").formula = "=E:\paie[dhiouf.xls]Feuil1!$F$8"
end if

 

[dhiouf]

Re : Procédure pour changer de lien

Bonjour à tous
Bonjour ERIC S.Merci de ta réponse,j'ai testé ta procédure mais ça ne marche pas

 

[ERIC S]

Re : Procédure pour changer de lien

re

sans doute erreur de frappe

en te basant sur le code suivant généré chez moi par enregistreur de macro, il faut faire attention aux apostrophes

ActiveCell.FormulaR1C1 = _
"='C:\Documents and Settings\Eric\Mes documents\Fichiers Excel\Forum\[aretrouver.xls]Feuil1'!R2C1"

regarde :
non testé!

if range("A1").value="" then
range("B1:B3").formulaR1C1 = "='C:\paie[dhiouf.xls]Feuil1'!$F$8"
else
range("B1:B3").formulaR1C1 = "='E:\paie[dhiouf.xls]Feuil1'!$F$8"
end if

AUTRE POSSIBILITE:

Range("B1:B3").Replace What:="C:", Replacement:="D:"