Discussion :

[cdlabal]

Bonjour,

je cherche à rechercher/remplacer une chaine dans plusieurs classeurs contenus dans une arborescence.
Cette chaine se situe, pour tous les fichiers, dans un onglet de type macro.

J'ai essayé plusieurs outils (ExcelSR, Batch Replacer for MS Excel). Aucun de ces outils ne sait remplacer une chaine de texte se touvant dans un onglet macro.

Une solution existe t'elle?

Merci par avance

[Invité]

Bonjour

Si c'est dans du code VBA, je t'invite à lire ce tuto : Visual Basic Editor

Cela te permettra comment lire des macros en VBA Excel

Philippe

[AlainTech]

Bonjour,

Je peux me tromper mais je pense que cdlabal parle de macros de type Excel 4.
Si c'est le cas, ce n'est pas du VBA.

[cdlabal]

Je cherche plutôt un outil tiers qui, comme savent très bien le faire les outils que j'ai mentionnés dans mon premiers post, saurait aller chercher une chaine de caractère dans plusieurs fichiers excel et la remplacer par une autre. Le pb, c'est que ces outils ne savent pas trouver la chaine dite lorsqu'elle se trouve dans un onglet de type macro (Macro MS Excel 4.0 comme l'indiquait AlainTech).
Pourtant, lorsqu'on fait une recherche dans un fichier depuis la fonction rechercher/remplacer d'excel, il trouve bien la chaine dans l'onglet macro.
Si je ne trouve donc pas d'outil, je sais ce qui me restera à faire: ouvrir les fichier un a un et remplacer la chaine depuis la fonction Excel..... galère.

Merci

[AlainTech]

Il y a de fortes chances que ces macros soient précompilées.
Par contre, par VBA, en ouvrant chaque fichier et en y faisant une recherche dans toutes les cellules, ça devrait le faire.

Je viens de faire un petit essai:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Remplace()
  Dim c As Range
  Dim wb As Workbook
  Dim ws As Worksheet
  Set wb = Workbooks.Open(ThisWorkbook.Sheets(1).Cells(1, 1).Value)
  ' Ici, j'ai mis le nom d'un fichier dans la cellule A1.
  ' Rien n'empêche de boucler sur tous les fichiers d'un répertoire à l'aide d'un Dir
  Set ws = wb.Sheets("Macrovirementliste")
  Set c = ws.Cells.Find(what:="TexteAChercher", LookIn:=xlFormulas, lookat:=xlPart)
  If Not c Is Nothing Then
    Do
      c.Formula = Replace(c.Formula, "TexteAChercher", "TexteDeRemplacement")
      Set c = ws.Cells.FindNext(c)
    Loop While (Not c Is Nothing)
  End If
End Sub

Attention!
Les formules sont effectivement précompilées et, si on affiche leur contenu dans VBA, on constate qu'elles sont traduites en anglais.
Donc, la recherche ne peut se faire que sur les constantes littérales comme des chemins de fichiers ou des noms de feuilles.

[cdlabal]

Merci AlainTech,

c'est en effet la solution que j'ai finalement retenue.