XL 2013 Modifier plusieurs classeurs.

[YANOU38]

Bonjour à tous,
J'ai un répertoire "DMOS" avec plus de 450 classeurs derrière.
Je voudrais pouvoir, sur tous mes classeurs :
- Supprimer le texte Feuille "1" cellule "D57"
- Supprimer le texte Feuille "1" cellule "D58"
- Supprimer le texte Feuille "1" cellule "E57"
- Supprimer le texte Feuille "1" cellule "E58"
et que la macro balaye tous les sous-dossiers de ce répertoire en faisant les modifications.
Les noms des sous-répertoires sont tous différents, sans logique.
J'ai tenté de modifier ce VBA (Merci Pierre-Jean), mais je n'arrive pas à supprimer la partie "FICHE AFFAIRE" qui était spécifique à la demande de l'époque.
Dans mon cas, peu importe le nom des sous-dossiers.
Merci pour votre aide.

Sub modif()
repertoire = "Z:\DEPT CHAUDRONNERIE\Divers documents techniques\4 - Soudage\DMOS\"
mesfichiers = Dir(repertoire)
Do While mesfichiers <> ""
If InStr(mesfichiers, "FICHE AFFAIRE") <> 0 Then
Workbooks.Open repertoire & mesfichiers
With ActiveWorkbook
.Sheets("1").Range("D57") = ""
.Sheets("1").Range("D58") = ""
.Sheets("1").Range("E57") = ""
.Sheets("1").Range("E58") = ""
.Close SaveChanges:=True
End With
End If
mesfichiers = Dir
Loop
End Sub

 

[YANOU38]

Chaque modification me prenait environ 1/2 voir 3/4 d'une journée, en étant stoppé par le téléphone, les mails, les collègues...au risque de zapper un classeur. L'automatisme efface tous ces aléas.

 

[sylvanu]

Ne mettez pas le post #31 en solution, le futur lecteur va ne rien comprendre. Mettez plutôt la bonne solution.
Je pense au post #24 qui marche impeccable ... sur un PC sans souci.

 

[YANOU38]

Bonjour à tous,
Je déterre ce post car je dois faire d'autres modifications sur mes feuilles :

En J1 => =STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;20)
et
En I5 => =SIERREUR(INDIRECT("'PG'!S5");"En attente")

Sur le VBA de départ j'effaçais les valeurs des cellules D57 à E58 avec :

.Sheets("1").[D57:E58].ClearContents

J'ai tenté de modifier ce code, mais je n'y arrive pas :

.Sheet("1").Range("J1").Formula = "=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;20)"

ne fonctionne pas pour la cellule J1 et :

.Sheet("1").Range("I5").Formula = "=SIERREUR(INDIRECT("'PG'!S5");"En attente")"

ne fonctionne pas pour la cellule I5.
Merci pour votre aide