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

 

[sylvanu]

Bonjour,
Utilisez cette version.
J'y ai mis une sécurité au cas où un fichier non XL se serait glissé. J'ai rajouté le nombre de dossiers trouvés.
( Pour l'écriture des fichiers j'ai conservé votre appellation, la feuille à modifier s'appelle "1" )
Bon test. 🙂

 

[YANOU38]

Bonjour sylvanu, le forum,
Le résultat avec la PJ du post #14 et du #16.

Sur la PJ du post #14 => 472 fichiers trouvés. Tous les fichiers sont là 🙂.
Quand je lance le 2ième bouton, je tombe sur ceci...un problème de sécurité chez moi ?

Merci pour votre aide.

 

[sylvanu]

Bonjour Yanou,
Là je sèche, il s'agit d'un problème système.
Ce qui m'étonne est que cela semble être issu d' Access et qu'il réclame un mot de passe.
Vos fichiers sont dans une base de données Access ?
Il semblerait que le mode d'ouverture en ReadWrite de cette base soit protégée. Peut être est il possible d'autoriser cette base en écriture sans mot de passe. Mais est ce possible ?

 

[YANOU38]

Bonjour sylvanu,
Mes fichiers ne sont pas dans une base de données Access.
Je me renseigne de mon côté et reviens vers vous.
Merci pour votre aide.

 

[sylvanu]

Le fichier #16 a un bug. J'avais considéré que vous n'aviez que des fichrs xlsx dans vos dossiers.
Or vous avez des fichiers xlsx mais aussi xls. En PJ la version 17 qui corrige.

 

[YANOU38]

Alors plus de question au sujet d'Access...et tant mieux.
Quand je lance le deuxième bouton, un message d'erreur :

mais je n'ai aucun classeur commençant par ~$

 

[sylvanu]

Il s'agit probablement de fichiers temporaires, et peuvent ne pas apparaitre dans l'explorateur ( fichiers cachés )
Essayez cette PJ 18, j'ai essayé, sans pouvoir le tester, d'ignoré les fichiers qui commencent par "~" , avec :

If Left(FileItem.Name, 1) <> "~" Then

NB : C'était quoi le problème Access ?

 

[YANOU38]

Un problème sur la ligne suivante :

 

[sylvanu]

NB : C'était quoi le problème Access ?

Pas de réponse ? Faites un effort, cela permet de comprendre, et de capitaliser.

En PJ une V19. Chez moi la V18 marche impeccable. Je suppose que dans votre dossier il y a des "trucs" pas très propres. J'ai mis un "On error goto" où on 'saute" un fichier en erreur.

 

[YANOU38]

Pardonnez-moi, j'attendais la réponse de notre prestataire informatique.
Un fichier avait été copié par inadvertance, la suppression du fichier a supprimé le problème/lien Access.
La macro est en train de tourner...

 

[YANOU38]

J'ai maintenant un problème de mémoire.

La macro avance jusqu'au fichier 252 / 441 et me jette.
J'ai tenté plusieurs fois [la macro s'arrête entre le fichier 250 et 252, du coup problème mémoire et pas macro, sinon arrêt toujours au même endroit (?) ]
J'ai envoyé le message à notre prestataire informatique (je laisse juste tourner excel en fermant tout le reste).
Est-il possible de lui imposer de reprendre à l'endroit où il m'a jeté ?
Merci pour votre aide

 

[sylvanu]

Essayez cette version.
Mais c'est une histoire sans fin. De mon coté aucun problème. Je ne comprends pas ce dépassement de mémoire, chaque fichier est refermé après utilisation.

 

[YANOU38]

Tous les fichiers ont été mis à jour 🙂 !
De nouveau arrêté vers 350 / 441, mais avec votre modification pour le lieu de reprise, tout est OK.
Merci pour votre persévérance, merci de ne pas m'avoir lâché en route !
Je ne comprends pas non plus ce problème de mémoire puisqu'une fois modifié, le classeur s'enregistre et se ferme 🙄.
Je vais quand même attendre la réponse de notre prestataire informatique.
Merci encore à vous.

 

[sylvanu]

J'ai essayé de mon coté, aucun problème avec 574 fichiers.
Mais cela peut aussi dépendre de votre PC ( CPU, taille mémoire, swap file .... )
Bon, le principal est que ça a marché.

Tout ça pour effacer 4 cellules ! 😅😂🤣😂😅

 

[YANOU38]

J'ai essayé de mon coté, aucun problème avec 574 fichiers.
Mais cela peut aussi dépendre de votre PC ( CPU, taille mémoire, swap file .... )
Bon, le principal est que ça a marché.

Tout ça pour effacer 4 cellules ! 😅😂🤣😂😅