Créer 1 fichier à partir de 100 fichiers (WORD) [Résolu]

[JerBi]

Bonjour,

Voici mon problème: j'ai un répertoire avec 100 fichiers (ils contiennent tous des shémas). Il faudrait que je puisse construire 1 fichier qui listerait à la suite le contenu des 100 autres fichiers => ceci afin de créer un rapport avec table des matières, etc...

Comment réaliser ceci ?

Merci d'avance pour vos conseils...

[JerBi]

Voilà, j'ai trouvé mon bonheur...

Je mets mon code si qqu serait intéressé...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub mySub()
Dim i As Long
Set fs = Application.FileSearch
 
With fs
    .LookIn = "C:\monRep\"  'répertoire contenant les fichiers
    .FileName = "*.doc"
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "Il y a " & .FoundFiles.Count & _
            " fichier(s) trouvé(s)."
        For i = 1 To .FoundFiles.Count
            Selection.InsertFile FileName:= _
            .FoundFiles(i), Range:="", _
            ConfirmConversions:=False, Link:=False, Attachment:=False
 
            Selection.InsertBreak Type:=wdPageBreak
        Next i
    End If
End With
 
End Sub

[mahboub]

je ne sais pas je ne suis pas expert mais,
une idée serait d'ouvrir le fichier distination , et chaque fois un de tes 100 fichier et copier le contenu vers la distination
voila