Stuart a écrit sur le besoin qu’il avait de consolider de nombreux fichiers texte différents en un seul document Word. L’insertion manuelle des fichiers s’est avérée fastidieuse, en particulier lorsqu’il y avait 20 ou 30 fichiers texte différents à combiner.

Heureusement pour Stuart, ses noms de fichiers étaient prévisibles: C1000.TXT, C1001.TXT, etc. Cela rend la création d’une macro pour effectuer la consolidation assez facile. L’exemple suivant recherchera les fichiers C1000.TXT à C1030.TXT, tous dans le répertoire C: \, et les combinera dans le document actuel:

Sub CombineFiles()

Dim J As Integer     Dim sFile As String     For J = 1000 To 1030         sFile = "c:\c" & Trim(Str(J)) & ".txt"

If (Dir(sFile) > "") Then             Selection.InsertFile FileName:=sFile, ConfirmConversions:=False             Selection.TypeParagraph         End If     Next End Sub

Si vous souhaitez modifier la plage de fichiers insérés, modifiez simplement les valeurs au début de la boucle For …​ Next. Si les fichiers se trouvent dans un répertoire différent, vous pouvez modifier le chemin utilisé dans la ligne de code suivante, où sFile est défini. Si un fichier dans la plage est manquant, il est automatiquement ignoré.

Cependant, il existe un moyen encore plus simple de combiner des fichiers, qui n’implique même pas l’utilisation de Word. Vous pouvez utiliser la commande suivante à une invite de commande Windows:

copy C1???.txt single.txt

Cela combinerait jusqu’à 1000 fichiers, C1000.TXT à C1999.TXT, en un seul fichier texte appelé SINGLE.TXT. Les fichiers originaux restent intacts.

Si vous souhaitez combiner un plus petit nombre de fichiers, vous pouvez utiliser ce format:

copy C1020.txt+C1021.txt+C1022.txt+C1023.txt single.txt

Cette utilisation entraîne la combinaison des quatre fichiers, C1020.TXT à C1023.TXT, en SINGLE.TXT. Vous pouvez ajouter autant de fichiers ensemble de cette manière que vous le souhaitez.

Il y a cependant une mise en garde à cette technique. La commande de copie n’a pour résultat aucun caractère supplémentaire ajouté à un fichier. En d’autres termes, le contenu de C1021.TXT est placé immédiatement après C1020.TXT. Par exemple, si C1020.TXT contient « texte 1020 » et C1021.TXT contient « texte 1021 » alors SINGLE.TXT contiendra « texte 1020text 1021 ». La seule façon de contourner ce problème soit d’éditer chaque fichier source pour s’assurer qu’il se termine par un retour chariot, soit d’utiliser la macro présentée précédemment.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (9807) s’applique à Microsoft Word 2007, 2010, 2013 et 2016. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu de Word ici: lien: / word-Combining_Documents [Combiner des documents].