XL 2013 Modifier plusieurs classeurs.

YANOU38

XLDnaute Occasionnel
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.
VB:
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

XLDnaute Barbatruc
Supporter XLD
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. :)
 

Pièces jointes

  • YanouNouveau (V2).xlsm
    31.1 KB · Affichages: 3

YANOU38

XLDnaute Occasionnel
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 ?
1634536947054.png
1634537125089.png

Merci pour votre aide.
 

Pièces jointes

  • YanouNouveau-#16.xlsm
    35.4 KB · Affichages: 1
  • YanouNouveau-#14.xlsm
    41.4 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 ?
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
Code:
If Left(FileItem.Name, 1) <> "~" Then
NB : C'était quoi le problème Access ?
 

Pièces jointes

  • YanouNouveau-#18.xlsm
    31.3 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • YanouNouveau-#19.xlsm
    30.7 KB · Affichages: 17

YANOU38

XLDnaute Occasionnel
J'ai maintenant un problème de mémoire.
1634560623911.png

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
 

YANOU38

XLDnaute Occasionnel
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 :rolleyes:.
Je vais quand même attendre la réponse de notre prestataire informatique.
Merci encore à vous.
 

Discussions similaires