Se connecter avec
S'enregistrer | Connectez-vous

[VBA] Execution d'une macro sur des fichiers trouvés

Dernière réponse : dans Programmation

Bonjour a tous et a toute,

pour mon stage, je dois passer plein de fichier enregistré au format html office au format html filtré (sans les tags d'office qui alourdissent)

malgré le fait que je suis debutant en Vba et a l'aide d'internet j'ai fais cette macro qui marche

  1. Public Sub BatchMacro()
    

  2. ' Exécute  par lot sur une série de fichiers la convertion html->html filtré
    

  3. ' Version légère pour WD2002+ seulement : utilise le FilePicker
    

  4. ' Anacoluthe pour le MPFW et la FAQ à m@rina
    

  5.  
  6. Dim NomMacro As String
    

  7. Dim vFichier As Variant
    

  8. Dim RetourDL As Long
    

  9. Dim NbFichOK As Integer
    

  10.  
  11. ' 1- Sélection des fichiers
    

  12. ' Le FilePicker permet de sélectionner le répertoire puis dedans
    

  13. ' des fichiers avec Maj ou Ctrl ou tous les fichiers avec Ctrl+A
    

  14. Dim fd As FileDialog
    

  15. Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    

  16.     fd.Title = "Sélectionner les fichiers à traiter"
    

  17. If fd.Show <> -1 Then Exit Sub
    

  18. If MsgBox(fd.SelectedItems.Count & " documents à traiter ", vbYesNo, _
    

  19.    "continuer ?") = vbNo Then Exit Sub
    

  20.  
  21.  
  22. ' 2- Exécution de la macro dans tous les fichiers choisis
    

  23. ' la macro doit agir uniquement sur le document actif et le fermer
    

  24. For Each vFichier In fd.SelectedItems
    

  25.     On Error GoTo Suivant
    

  26.     Application.Documents.Open FileName:=vFichier, _
    

  27.     AddToRecentFiles:=False, ConfirmConversions:=False, _
    

  28.     Visible:=True
    

  29.     On Error GoTo Fermer
    

  30.     NbFichOK = NbFichOK + 1
    

  31. Fermer:
    

  32.     On Error GoTo Suivant
    

  33.     ActiveDocument.SaveAs FileName:=vFichier, FileFormat:=wdFormatFilteredHTML, LockComments:=False, Password:="", AddToRecentFiles _
    

  34.         :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
    

  35.         :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
    

  36.         SaveAsAOCELetter:=False
    

  37.     ActiveDocument.Close
    

  38. Suivant:
    

  39.     On Error GoTo 0
    

  40. Next vFichier
    

  41.  
  42. ' 4 fin de la BatchMacro
    

  43. MsgBox ("La macro  a été exécutée sur " _
    

  44. & NbFichOK & " Fichiers")
    

  45. Set fd = Nothing
    

  46. End Sub


mais le probleme c'est que je dois mettre tous mes fichiers dans un seul dossier. or ils sont tous dans des repertoires particuliers.

je sais qu'il existe des fonction recherches mais j'arrive pas a les excuter.

comment faire pour que ma macro les recherches dans un repertoire et sous-repertoires et les modifies?


Merci d'avance

Autres pages sur : vba execution macro fichiers trouves

Lassé par la pub ? Créez un compte

bon j'ai trouvé une solution à la barbare.

je fais une recherche avec l'outil recherche de l'explorateur
j'ouvres tout mes fichiers dans word et aprés je j'execute la macro suivante

avec i fixé suivant le nombre de fichiers que j'ai

  1. Sub Macro1() 
    

  2.  
  3. For i = 1 To 198 
    

  4.  
  5.     Dim strPath As String 
    

  6.  
  7.     strPath = Application.Options.DefaultFilePath(wdDocumentsPath) 
    

  8.     Application.ChangeFileOpenDirectory strPath 
    

  9.  
  10.     Application.Options.DefaultFilePath(wdDocumentsPath) = strPath 
    

  11.  
  12.  
  13.     ActiveDocument.SaveAs FileFormat:= _ 
    

  14.         wdFormatFilteredHTML, LockComments:=False, Password:="", AddToRecentFiles _ 
    

  15.         :=False, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _ 
    

  16.         :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ 
    

  17.         SaveAsAOCELetter:=False 
    

  18.  
  19.     ActiveDocument.Close 
    

  20.  
  21.     Next i 
    

  22.  
  23. End Sub


c'est bourrin mais ca marche. si vous avez mieu je suis preneur merci d'avance car j'ouvre d'abord tout mes documents d'un coup pour ensuite appliquer la macro ce qui sur une operation de plus de 200 documents fais ramer le pc

donc si vous avez une solution plus "élegante" je suis preneur.

cordialement
Expert Programmation

Salut JusteDieu :hello:  Bienvenu sur PPC.

Tu sembles courageux et débrouillard :
Citation :
1°) je suis debutant
2°) [Je me sers de ..] l'aide d'internet
3°) [...j'ose poser des questions sur PPC...]
4°) j'ai trouvé une solution [et je la poste].

C'est tout à fait dans l'esprit du site.

Plus qu'à utiliser les balises [CODE] à bon escient et tu seras rodé.

N'hésite pas à nous solliciter
Expert Programmation

Pour ne pas mélanger le code du site (en html), nos messages se rédigent en bbcode. Par exemple, pour citer quelqu'un, au lieu de mettre <quote> on met
Citation :
! Pour présenter du code, on met [code].

Donc, puisque tu as encore trouvé tout seul (tu postes plus vite que tu réfléchis ?), il te reste à éditer des posts précédents et à ajouter au début et à la fin de ton code les balises [code] et [/ code] (sans l'espace, hein)

Pourquoi ?
- Pour faire joli
- Pour avoir un message facilement lisible
- Pour montrer du respect envers le site et ceux qui y postent
- Par politesse
- Parce que c'est la règle
- Parce que il y a un topik qui s'appelle Quelques règles simples à respecter -- /!\ A lire avant de poster ! et que sa lecture est judicieuse !!!!!

Choisis une ou plusieurs raisons et mets nous ces fichues balises !!!

Voila c'est fait.

pourquoi j'ai posté 2 heure après la réponse?
-parceque je poste plus vite que je reflechis
-parceque je chercher deja depuis un bout de temps pour pas demander sans avoir chercher
-parceque cette solution est faite de maniére barbare et pourrait etre plus simple a mon avis

Choisis une ou plusieurs raisons mais tu remarqueras que j'ai mis les balises. ;) 

voila et desolé de n'avoir pas poster correctement

je connait pas les macros word mais ca doit pas trop changer d'excel.
Il me semble que pour changer le format d'un fichier tu n'ai pas d'autre choix que de l'ouvrir puis de l'enregistrer sous le format qui t'intéresse, comme tu as fait.
Pour le coup où ton pc ralentit, il existe beaucoup de petites astuces permettant d'optimer la vitesse d'exécution

J'en connait 2 principale:
  1. Application.ScreenUpdating = False
Mais oublie pas de mettre 
  1. Application.ScreenUpdating = True

ca te fait gagner un temps énorme pendant l'exécution de ta macro, surtout quand il faut ouvrir une quantité de fichier.

Je suppose que si tu ouvres tes fichiers, ca veut aussi dire que tu les ferme juste après avoir fait la changement de format.
En tout cas, si tu ne le fais pas, fais le, et avec ca :
  1. Application.DisplayAlerts = False
    

  2. ActiveWorkbook.Close
    

  3. Application.DisplayAlerts = True

ok merci mais je les mets ou?!?

comme cela dans mon code

  1. Sub Macro1()  
    

  2.  
  3. For i = 1 To 198  
    

  4.  
  5.     Dim strPath As String  
    

  6.  
  7.     strPath = Application.Options.DefaultFilePath(wdDocumentsPath)  
    

  8.     Application.ChangeFileOpenDirectory strPath  
    

  9.     Application.Options.DefaultFilePath(wdDocumentsPath) = strPath  
    

  10.  
  11.  
  12. Application.ScreenUpdating = False
    

  13.  
  14.  
  15.     ActiveDocument.SaveAs FileFormat:= _  
    

  16.         wdFormatFilteredHTML, LockComments:=False, Password:="", AddToRecentFiles _  
    

  17.         :=False, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _  
    

  18.         :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _  
    

  19.         SaveAsAOCELetter:=False  
    

  20.  
  21.  
  22. Application.ScreenUpdating = True   
    

  23.  
  24.  
  25.     ActiveDocument.Close  
    

  26.  
  27.     Next i  
    

  28.  
  29. End Sub


ou bien d'une autre maniere sachant que tous mes documents sont deja ouverts avant l'execution de ma macro.

cdt

en fait ces commandes évitent de tenter d'afficher à l'écran ce qui est en train de se passer en interne.
Donc si tu t'en fou de voir ce qui se passe (surtout vu l'allure où ca va...), rien ne t'empêche de les placer diretement au début et la fin de ta macro. /!\ sauf si tu dialogue avec l'utilisateur, ce qui n'as pas l'air d'être le cas.
  1. Sub Macro1()  
    

  2. Application.ScreenUpdating = False 
    

  3. For i = 1 To 198  
    

  4.  
  5.     Dim strPath As String  
    

  6. ...
    

  7. ...
    

  8.  
  9.     ActiveDocument.Close  
    

  10.  
  11.     Next i  
    

  12.  
  13. Application.ScreenUpdating = True   
    

  14. End Sub

ok ca marche comme meme plus rapidement maintenant merci, Zeb avais raison sur l'autre post ;) 

il me reste a faire encore une modification a faire et surtout a trouver et ca sera parfait

l'ideal serait ,a la place de faire une recherche des documents que je veux modifier sous l'explorateur de windows, de faire choisir le repertoire a l'utilisateur et la macro s'applique a tout les documents *.html (par exemple) contenue dans ce repertoire et sous repertoire j'ai trouvé des pistes mais je n'y arrive pas encore

merci encore ++
Lassé par la pub ? Créez un compte

Créer un nouveau sujet