Modification de formule en masse

Bonjour à tous.

Je veux effectuer une mise à jour de fichiers en masse. Ces fichiers sont totalement identiques en terme de calcul et de présentation mais bien entendu pas en terme de contenu.
Ils se trouvent dans le même dossier.

J'avais déjà effectué par le passé une mise à jour du style pour d'autres fichiers, mais là il y a qqch que je ne comprends pas.

Lorsque je lance la mise à jour, elle s'effectue, mais à la place d'avoir une formule dans la cellule H18, j'ai à la place le contenu de la cellule d''à côté.
wk.Sheets("Info").Range("H18").FormulaR1C1 = "=RC[-1]"
Par exemple si dans G18 j'ai le mot "Pomme". Ce mot s'affiche dans ma cellule H18, et moi je voudrait "=G18".

Ce qu'il y a de plus étonnant, lorsque je lance wka.Sheets("Info").Range("H18").FormulaR1C1 = "=RC[-1]" cela fonctionne, j'ai bel et bien "=G18" dans ma cellule.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub MajFormule()   Dim wk As Workbook Dim wka As Workbook Set wka = ActiveWorkbook   Dim chemin As String chemin = "C:\Test"   'Choix du 1er fichier Fichier = Dir(chemin & "*.xlsm")   'ON BOUCLE sur tous les FICHIERS excel du répertoire choisi Do While Len(Fichier) > 0   If Fichier <> ThisWorkbook.name Then Set wk = Workbooks.Open(chemin & Fichier)   wk.Sheets("Info").Range("H18").FormulaR1C1 = "=RC[-1]" wka.Sheets("Info").Range("H18").FormulaR1C1 = "=RC[-1]"   wk.Close True   Fichier = Dir() 'Sélectionne le fichier suivant   End If   Loop 'Remonte la boucle, prochain fichier   End Sub

---

Avez-vous une idée de ce qui se passe ?
Merci d'avance à tous.

Salut,

alors activeworkbook est le classeur actif lorsque la ligne s'execute.

Donc dans ton cas c'est avant que tu n'ouvres le classeur avec Open.

FormulaR1C1 sert a ecrire une formule en approche relative, c'est a dire en precisant les coordonnees relatives a la cellule dans laquelle on ecrit la formule, par opposition a Formula, dans laquelle on ecrirait directement "=G18".

Bonjour,

ce n'est pas très clair,

tu veux afficher "=" et y accoler l'adresse de la cellule située sur sa gauche ?

si tel est le cas, afin de ne pas évaluer ce qui sera pour Excel une formule, il faut ajouter l'apostrophe ' devant

exemple avec un travail sur la cellule active

Code:

---

1 2 3

With ActiveCell .Value = "'=" & .Offset(0, -1).Address(False, False) End With

---

le fait que "ça fonctionne" dans un classeur et pas l'autre pourrait s'expliquer par la neutralisation du recalcul automatique ?

merci de nous éclairer sur ton besoin exact

Merci pour vos réponses,
En me relisant j'ai pensé que ma demande n'était pas très claire, donc voilà des captures d'écran pour être plus clair.

Voilà ce que je désire, un calcul:
Cela fonctionne lorsque je modifie le classeur actif (wka), mais pas lorsque je modifie les autres classeurs (wk)
Pièce jointe 318140

Voilà le résultat actuel. Je n'arrive pas à comprendre pourquoi la valeur de G18 s'écrit directement dans H18, je désire un calcul.
Pièce jointe 318142

J'ai essayé avec avec .Formula = "=G18", j'obtient le même résultat (écriture directe du mot Pomme.
J'ai contrôlé, le calcul automatique est activé dans l'ensemble de mes fichiers.

Tu veux quoi exactement comme resultat dans ta cellule H18 ?
la formule ? la valeur ? mettre des pieces jointes est contre productif :calim2:

Je viens de trouver...
le problème n'était pas dans la procédure que je vous ai notée, mais dans mes fichiers Excel.xlsm

J'ai une ligne de code complétement erronée qui dit
(Range("Cell_Perso_Classement") est justement ma cellule H18 mais nommée avec une zone de nom)

Code:

---

1 2 3 4

Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("Cell_Perso_Classement") = Range("Cell_Perso_Classement") 'La c'est vraiment faux, Sheets("zz").Select End Sub

---

J'ai plus qu'à trouver une solution pour lancer une mise à jour de code en masse ;-)
Il me semble que j'avais lu un fil sur ce sujet qq part dans ce site, je vais essayer de le retrouver.
Merci d'avoir pris le temps de me répondre.
++ Wouana

Bonjour,

il existe :

- un tutoriel traitant de la manipulation du VBE, notamment modifier une macro par macro
- pas mal de sujets dans ce forum où des solutions ont été proposées (changer la valeur de constantes déclarées ou de portions de procédures)

de mon côté, un modeste billet de blog (projet inachevé :aie:) où j'ai proposé un kit d'outillage avec surtout deux fonctions pour boucler sur des fichiers et remplacer des portions de chaines de code par des nouvelles
https://www.developpez.net/forums/bl...ipulation-vbe/

Hello Joe,
Je te remercie pour ta réponse.

Je suis retombé sur le Tuto de Skyrock, et oui encore lui ^^
Je vais plutôt utiliser la méthode pour modifier en entier un module. En fait je viens de diffuser une appli Excel et je sais que je devrais effectuer passablement de modif à mesure que les utilisateurs l'utiliseront. Entre la résolution des petits Bugs et les évolutions se sera plus facile de modifier l'entier du module

Pour les personnes qui auront lu ce fil, voici le lien sur le tuto : http://silkyroad.developpez.com/VBA/VisualBasicEditor/

Je vais voir pour me créer qq Lignes de code qui me permettront de sélectionner un fichier 'modèle' et de sélectionner manuellement le/les modules à mettre à jour.
Si j'arrive à faire qqch de propre je publierai ici mon résultat. Cela fera une contre partie de tous les renseignements utiles que j'ai trouvé sur ce forum.