Modifier en masse un argument dans toutes les formules d'un projet [Résolu]

[Denis_67]

Bonjour,

J'ai hérité d'un projet contenant de nombreux onglets avec beaucoup de formules.
Ces formules font appel a des liaisons sur des fichiers historique.
Au changement de période, les noms des fichiers d'historique changent.
Je souhaite donc passer par une variable qu'il me suffira de mettre à jour.

Ma question :
Comment changer dans toutes les formules de toutes le feuille de mon projet

Le nom du fichier
BIL_OF2010.XLS
par une variable
BIL_OF_ANNUEL

Exemple d'un début de formule, mais il en a d'autres.
=(SOMME.SI([BIL_OF2010.XLS]Feuil1!$L:$L;...

Bien sûr dans ce cas, je pourrais renommer les fichiers, mais la réponse m'intéresse aussi pour d'autres cas.
Merci pour vos suggestion.
Denis

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub AAA()
Dim OldStr As String, NewStr As String
Dim Sh As Worksheet
Dim c As Range
 
Application.ScreenUpdating = False
OldStr = "BIL_OF2010.XLS"                               'La partie à changer
NewStr = "'XXX YYY'"                  'Le mot de remplacement
 
For Each Sh In ThisWorkbook.Worksheets
    On Error Resume Next
    For Each c In Sh.UsedRange.SpecialCells(xlCellTypeFormulas)
        c.Formula = Replace(c.Formula, OldStr, NewStr)
    Next c
    On Error GoTo 0
Next Sh
End Sub

[Denis_67]

Nickel !

Existe-t-il un tutoriel sur les manipulations des objets ?

Je m'explique, j'ai déjà utilisé des solutions proposée utilisant des routines du genre
For Each Sh In ThisWorkbook.Worksheets
que j'applique sans vraiment savoir à quoi cela correspond.
Notamment savoir quels sont les objets Sh, c etc utilisables.

Un petit tuto me permettrait meut-être de poster des questions moins bateau.

En tout cas merci, c'est tout à fait ce que je cherchais et je mets ça dans ma bibliothèque.
Cordialement

Denis

[mercatog]

Des liens:
http://excel.developpez.com/cours/?page=prog#variables
http://silkyroad.developpez.com/VBA/LesVariables/

[Denis_67]

Encore merci,

L'été tournant court dans notre région, je vais potasser cela au coin du feu !

[kiki29]

Salut, juste une remarque , il serait judicieux d'encadrer la macro par l'ajout de

Code :

1
2
3
Application.Calculation = xlManual
'.....
Application.Calculation = xlAutomatic