Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Modifier plusieurs classeurs.

Y

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
 
Trier par date Trier par votes

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
Vote positif 0 Vote négatif
Y

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 ?

Merci pour votre aide.
 

Pièces jointes

  • YanouNouveau-#16.xlsm
    35.4 KB · Affichages: 1
  • YanouNouveau-#14.xlsm
    41.4 KB · Affichages: 2
Vote positif 0 Vote négatif

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 ?
 
Vote positif 0 Vote négatif

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
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
sylvanu à dit:
NB : C'était quoi le problème Access ?
Cliquez pour agrandir...
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
Vote positif 0 Vote négatif
Solution
Y

YANOU38

XLDnaute Occasionnel
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...
 
Vote positif 0 Vote négatif
Y

YANOU38

XLDnaute Occasionnel
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
 
Vote positif 0 Vote négatif

sylvanu

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

Pièces jointes

  • YanouNouveau-#20 on commence à 250.xlsm
    30.5 KB · Affichages: 2
Vote positif 0 Vote négatif
Y

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 .
Je vais quand même attendre la réponse de notre prestataire informatique.
Merci encore à vous.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
581
Nico2978
J
  • Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
87
JJ69
J
  • Question
XL 2013 Modifier un code de sauvegarde
2
Réponses
16
Affichages
926
chaelie2015
G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
473
GClaire
G
P
  • Résolu(e)
XL 2016 4 étapes en 1 seule Excel vba
Réponses
4
Affichages
703
Pygos691
P
B
  • Question
XL 2019 Création d'une base de données à partir de plusieurs fichiers Excel
Réponses
5
Affichages
2 K
battijo
B
  • Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
671
GADENSEB
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
2 K
dysorthographie
  • Question
Autres Modifier la réf dans un nom (gestionnaire - xl 2007)
Réponses
5
Affichages
521
sourcier08
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
1 K
Fabrice16ct
F
  • Résolu(e)
Microsoft 365 Macro Excel qui n'arrive pas à enregistrer un doc Word
Réponses
10
Affichages
1 K
xUpsilon
  • Question
XL 2021 import-informations-classeurs-fermes
2 3
Réponses
40
Affichages
4 K
Usine à gaz
G
  • Question
Microsoft 365 VBA : Copier-Coller
Réponses
1
Affichages
811
Rossoneri83
R
A
  • Question
Microsoft 365 VBA: importer dans un dossier avec un nom variable
Réponses
4
Affichages
913
A-F
A
W
  • Question
Microsoft 365 Ecrire dans une cellule de tous les fichiers des sous-dossiers avec choix du dossier de base
Réponses
1
Affichages
991
patricktoulon
A
  • Question
Microsoft 365 Génération d'une feuille en Pdf et envoie par outlook
Réponses
5
Affichages
1 K
patricktoulon
G
  • Résolu(e)
XL 2016 Définir Boucle pour afficher plusieurs tableaux dans des textbox sur une userform (ou sur une feuille Excel)
Réponses
6
Affichages
1 K
gaby.jvx
G
A
  • Résolu(e)
XL 2016 Macro consolidation plusieurs fichiers en 1 seul
Réponses
8
Affichages
2 K
Alan28
A
R
  • Résolu(e)
XL 2016 Lister fichiers avec Exifs et propriétés (suivant son choix) - code à modifier
10 11 12
Réponses
167
Affichages
15 K
re4
R
C
  • Résolu(e)
XL 2016 Double clique dans plage de cellule impossible
Réponses
5
Affichages
926
christ77000
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…