Remplacer quelques références dans plusieurs fichiers en même temps

Hello,

Je vous explique ma situation, je cherche à remplacer plusieurs références erronées dans une grosse cinquantaine de fichiers excel sans avoir besoin de les ouvrir.

En gros je souhaite remplacer une dizaine de références de produits

Anciennes références Nouvelles références

TTTTTTT B4566U

VVVVVV TUH67J

Sauf que j'y connais rien en VBA et je suis pas très chaud pour ouvrir ces 50 fichiers afin de les remplacer à la main

Help!!! Merci

Bonjour MATE & bienvenue,

à tester,

Merci Theze, c'est corrigé

Sub test()
Dim ancien, nouveau
Dim Wk As Workbook, f As Worksheet, i As Integer
Dim FD As FileDialog

ancien = Array("TTTTTTT", "VVVVVV")
nouveau = Array("B4566U", "TUH67J")

Set FD = Application.FileDialog(msoFileDialogFilePicker)
FD.AllowMultiSelect = True
FD.Filters.Clear
FD.Filters.Add Description:="Excel Files", Extensions:="*.xls;*.xlsx"
FD.Show

If FD.SelectedItems.Count > 0 Then
    For i = 1 To FD.SelectedItems.Count
       Application.Workbooks.Open FD.SelectedItems(i)

        For Each f In Workbooks(FD.SelectedItems(i)).Worksheets
          For j = LBound(ancien) To UBound(ancien)
            f.Cells.Replace What:=ancien(j), Replacement:=nouveau(j), LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
          Next j
        Next f

       Workbooks(FD.SelectedItems(i)).Close Save
    Next i
End If
End Sub

Bonjour,

Isabelle

Attention, petite erreur de variable concernant les tableaux, remplacer i par j !

Merci je vais regarder si ca marche