Discussion :

[JB17000]

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 :

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

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 !

[EricDgn]

Bonjour,

Ceci devrait le faire:

Code :

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

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.

[Alex020181]

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

[JB17000]

Bonjour,

Ceci devrait le faire:

Code :

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

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