Fusionner des documents word

Signaler
Messages postés
1
Date d'inscription
vendredi 3 septembre 2021
Statut
Membre
Dernière intervention
3 septembre 2021
-
Bonjour

J'ai trouvé une macro word qui fonctionne à merveille pour fusionner des documents word mais elle fonctionne si les word se trouve dans un dossier et sur mon disque dur.:

Sub MergeDocuments()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "\" & "*.docx")
i = 0
Do While MyName <> ""
If MyName <> ActiveDocument.Name Then
Set wb = Documents.Open(MyPath & "\" & MyName)
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.Paste
i = i + 1
wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub


Est-ce que l'on peut modifier la macro afin quel fasse la même chose mais en utilisant les documents placés dans un dossier sur un share point.

Merci pour votre aide

Giroen