Fonction REMPLACER en VBA avec paramètres dans cellules Excel

Version imprimable

Bonjour,

J'ai un fichier Excel de tableau de bord qui pointe lui meme vers d'autre fichier excel servant de base de donnée. Ces base de données sont toutes construites sur le même modèle, une base de donnée par société.

Je souhaite dans mon tableau de bord pour voir changer par une macro sur quelle base de données pointée.

J'ai donc un 2e onglet dans ce fichier de tableau de bord avec le nom et chemin des fichiers.

Dans une cellule E8 j'ai le nom du fichier à remplacer
Une une cellule E9 j'ai le nouveau nom du fichier sur lequel pointer

Je veux donc remplacer le nom du fichier à pointer dans toutes mes formule du tableau de bord (onglet1) en prenant les valeurs dans l'onglet 2.

Voici ce que j'ai essayé mais qui ne fonctionne pas :
Code:

1 2 3 4 5 6 7 8 9 Sub rempl() Worksheets("Feuille1").Replace What:=Worksheets("Feuille2").Range("E8").Value,Replacement:=Worksheets("Feuille2").Range("E9").Value, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, FormulaVersion:= _ xlReplaceFormula2 End Sub
Merci de votre aide !

Bonjour,

Ceci devrait le faire:

Code:

1
2
3
4
5
6
Sub rempl()
    Worksheets("Feuil1").Cells.Replace _
        What:=Worksheets("Feuil2").Range("E8").Value, _
        Replacement:=Worksheets("Feuil2").Range("E9").Value, _
        LookAt:=xlPart
End Sub

Cordialement.

15/09/2022, 01h12
Alex020181

Indirect ne ferait pas l'affaire ?
Et pas besoin de vba

Merci !

Citation:
Envoyé par EricDgn
Bonjour,

Ceci devrait le faire:
Code:

1 2 3 4 5 6 Sub rempl() Worksheets("Feuil1").Cells.Replace _ What:=Worksheets("Feuil2").Range("E8").Value, _ Replacement:=Worksheets("Feuil2").Range("E9").Value, _ LookAt:=xlPart End Sub
Cordialement.
Avec beaucoup de retard, Merci EricDgn
Ca fonctionne, ca met en évidence un autre problème de temps de calcul que je soumets dans un nouveau post