[VBA] Joindre plusieurs documents word ensemble en arrière-plan

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Joindre plusieurs documents word ensemble en arrière-plan

schuit001

Bonjour!

J'ai sous la main un code qui me permet de joindre toute une série de documents ensemble, le problème est que lorsque je l'exécute, il m'ouvre tous les documents les uns après les autres, ce qui est très dérangeant.

J'aimerais que cette action se déroule en arrière-plan, croyez-vous que ce soit possible?

Voici le code:

Code :

Sub ConcatenateAllWordFiles()
Dim path As String
Dim Name As String
path = "xxx"
ActiveDocument.Content.Select
Name = ActiveDocument.Name
Selection.Delete
With Application.FileSearch
.NewSearch
.LookIn = path
.SearchSubFolders = False 'Set this to false if you don't want subfolders included
.Execute
For i = 1 To .FoundFiles.Count
If Right(.FoundFiles(i), 4) = ".doc" Then
Options.UpdateLinksAtOpen = False
Documents.Open FileName:=.FoundFiles(i), Visible:=False, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto
current = ActiveDocument.Name
Selection.WholeStory
Selection.Copy
Documents(current).Close (wdDoNotSaveChanges)
Selection.Paste
Selection.EndKey Unit:=wdLine
Options.UpdateLinksAtOpen = True
End If
Next i
End With
Documents.Open FileName:=Name, ConfirmConversions:=False _
, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.Content.Select
Selection.Fields.Update
End Sub

Si je met l'argument "visible" sur true, il m'ouvre tout les word et je dois ensuite les fermer manuellement, par contre sur false il les ouvre mais les ferme une fois la sélection finie, je voudrais en fait qu'il n'apparaisse rien du tout et qu'il fasse le boulot en arrière plan. Je pense que le problème se situe au niveau de la référence de la fenêtre.

Merci d'avance pour vos conseils!

Message édité par schuit001 le 08-12-2006 à 15:49:58

Publicité

seniorpapou

Bonsoir,
C'est cela que tu cherches?
Cet exemple montre comment désactiver la mise à jour de l'écran, ouvrir le fichier Test.doc, insérer du texte, mettre à jour l'écran, puis fermer le document (après avoir enregistré les modifications).

Dim rngTemp As Range

ScreenUpdating = False
Documents.Open FileName:="C:\DOCS\TEST.DOC"

Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)

rngTemp.InsertBefore "new"
Application.ScreenRefresh
ActiveDocument.Close SaveChanges:=wdSaveChanges
ScreenUpdating = True
Cordialement

schuit001

Merci pour ta réponse, ça marche.

Quelqu'un sait comment je pourrais modifier le code de sorte qu'il aille chercher des documents également dans des sous-dossiers?

Merci d'avance.

schuit001

Je n'ai rien dit, il suffisait de lire le code

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Joindre plusieurs documents word ensemble en arrière-plan

Sujets relatifs
Questionnaire sous word	[VBA] Affecter une valeur à une zone de texte récalcitrante
VBA - Insertion lien hypertexte dans le corp d'un mail	Effectuer une recherche avec des SELECT Option à plusieurs niveaux
Replication de bases Access pour plusieurs sites distants ?	Diviser un calque en plusieurs
Ajout de header GPL dans plusieurs fichers source	Partager un dossier avec plusieurs sites
image dégradée d'arreire plan! (je donne un exemple de page web)	VBA d'Excel 2003 : Module de classe, Private Sub() : ?
Plus de sujets relatifs à : [VBA] Joindre plusieurs documents word ensemble en arrière-plan

Page générée en 0.088 secondes