[W-03][W-07] Macro Word 2003 ne fonctionnant plus sur Word 2007

[asaptrad]

Bonjour,
Cette excellent macro permettant de lancer plusieurs macros à la fois sur des fichiers situés dans différents répertoires ne fonctionne plus sur Word 2007, la propriété FileSearch (Application.FileSearch) n'étant plus supportée par ce dernier.
Apparemment, il faut utiliser la fonction Dir ou Dir$ à la place.
Est-ce que le code peut être adapté facilement ?
Merci d'avance.
Dave

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub MacroRunner()
 
Dim folderList() As String
Dim macroList() As String
Dim oFolderPath As String
Dim macroName As String
Dim i As Long, j As Long, k As Long
Dim oDoc As Document
 
    Application.ScreenUpdating = False
    ReDim folderList(0)
    ReDim macroList(0)
    Do
        With Dialogs(wdDialogCopyFile)
            If .Display <> 0 Then
                oFolderPath = .Directory
                folderList(UBound(folderList)) = oFolderPath
                ReDim Preserve folderList(UBound(folderList) + 1)
              Else
                MsgBox "Cancelled by User"
                Exit Sub
            End If
        End With
    Loop While MsgBox("Do you want to process an additional folder?", vbYesNo + vbQuestion, _
    "More Folders?") = vbYes
    Do
        macroName = InputBox("Enter the name of the macro that you want to run. CodeZapper, ToggleHideParaNos...", "Macro Name", "CodeZapper")
        If Len(macroName) = 0 Then
            MsgBox ("Nothing entered. Exiting routine.")
            Exit Sub
          Else
            macroList(UBound(macroList)) = macroName
            ReDim Preserve macroList(UBound(macroList) + 1)
        End If
    Loop While MsgBox("Do you want to run an additional macro?", vbYesNo + vbQuestion, _
    "More macros?") = vbYes
 
    For i = 0 To UBound(folderList) - 1
        With Application.FileSearch
            .NewSearch
            .LookIn = folderList(i)
            .SearchSubFolders = False
            .FileType = msoFileTypeAllFiles
            If Not .Execute() = 0 Then
                For j = 1 To .FoundFiles.Count
                    Set oDoc = Documents.Open(.FoundFiles(j))
                    For k = 0 To UBound(macroList) - 1
                        Application.Run macroList(k)
                    Next k
                    ActiveDocument.Save
                    ActiveDocument.Close
                    Set oDoc = Nothing
                Next j
              Else
                MsgBox "No files in specified folder(s)"
            End If
        End With
    Next i
    Application.ScreenUpdating = True
    MsgBox "All Done"
End Sub

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Effectivement, la fonction FileSearch est disparue avec 2007.

Je pense que passer par FileSystemObject est plus efficient et pour choisir les fichiers ou répertoire FileDialog devrait aussi te venir en aide.

[JackOuYA]

bonsoir,

tiens j'ai l'impression de me répéter j'ai donné la même réponse que sur le forum excel il y as 5 minutes.


http://silkyroad.developpez.com/vba/classefilesearch/

[asaptrad]

Je pense que passer par FileSystemObject est plus efficient et pour choisir les fichiers ou répertoire FileDialog devrait aussi te venir en aide.

Merci. Peut-on donc faire un échange standard des lignes concernées :

Code :

1
2
3
4
5
With Application.FileSearch
.NewSearch
.LookIn = folderList(i)
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles

ou faut-il tout reprendre ? J'avoue que j'ai du mal à suivre le code d'origine.

[ouskel'n'or]

Je suppose qu'en exécutant la macro tu comprends ce qu'elle réalise... Il serait donc bien que tu précises ce sur quoi tu achoppes Quelle boucle te pose question ? La première ? La seconde ? Les boucles For ?
A+

[asaptrad]

C'est la ligne :

Code :

With Application.FileSearch

car FileSearch n'existe plus dans Word 2007.

Dave

[ouskel'n'or]

Je répondais à ça :

J'avoue que j'ai du mal à suivre le code d'origine.

Pour FileSearch, JackOuYA t'a passé une adresse où il est possible de charger un xla à charger et à valider dans Excel (-> Outils -> Macros complémentaires) et l'url t'indique la manière de procéder.
Ce que fait la boucle impliquant Filesearch ? Il recherche les fichiers dans la liste des répertoires sélectionnés dans la première boucle, ouvre ces fichiers et exécute la/les macro/s qu'il contient et dont tu as également donné la liste dans la boucle Do While précédente.
Bonne journée

[asaptrad]

Merci Ouskel'n'or et JackOuYA.
Le chargement de ce xla (dans un module Word ?) permet-il donc de faire tourner sur Word 2007 les macros écrites pour Word 2003 et faisant appel à Filesearch, sans modifier le code de celles-ci ?
J'essaie de saisir son but et son mode de fonctionnement.
Dave

[ouskel'n'or]

Le chargement de ce xla ... sans modifier le code de celles-ci ?

Non, tu devras l'adapter.
Bonne soirée