Bonjour,
Présentation :
J'ai un énorme répertoire remplis de pleins de trucs dont pleins de fichiers.doc
Beaucoup de ces fichiers.doc contiennent des formulaires et modules qui ne me sont plus utiles et prennent de la place..
Ce serait vraiment très audacieux de parvenir à créer un code qui fonctionnerait comme suit :
Dans un répertoire donné (dossiers, sous-dossiers) :
- trouver tous les fichiers.doc
- en ouvrir un (le premier),
- supprimer les formulaires, modules, ..
- le sauvegarder,
- ouvrir le suivant,
- idem, etc.
Actuellement je gère ça au coup par coup comme ceci (trouvé d'ailleurs sur ce site) :
J'ignore si c'est réalisable. En tous cas, je l'espère et donc merci d'avance pour votre aide précieuse!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Dim LeDoc As Document, MotdePasse As String Set LeDoc = ThisDocument MotdePasse = "toto" UnprotectVBProject LeDoc, MotdePasse For Each VbComp In ThisDocument.VBProject.VBComponents Select Case VbComp.Type Case 1 To 3 ThisDocument.VBProject.VBComponents.Remove VbComp Case Else With VbComp.CodeModule .DeleteLines 1, .CountOfLines End With End Select Next VbComp
Partager