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

Joindre plusieurs documents word ensemble en arrière-plan [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 08-12-2006 à 15:48:51    

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 :
  1. Sub ConcatenateAllWordFiles()
  2. Dim path As String
  3. Dim Name As String
  5. path = "xxx"
  6. ActiveDocument.Content.Select
  7. Name = ActiveDocument.Name
  9. Selection.Delete
  10. With Application.FileSearch
  11. .NewSearch
  12. .LookIn = path
  13. .SearchSubFolders = False 'Set this to false if you don't want subfolders included
  14. .Execute
  16. For i = 1 To .FoundFiles.Count
  17. If Right(.FoundFiles(i), 4) = ".doc" Then
  18. Options.UpdateLinksAtOpen = False
  20. Documents.Open FileName:=.FoundFiles(i), Visible:=False, _
  21. ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
  22. PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
  23. WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
  24. wdOpenFormatAuto
  26. current = ActiveDocument.Name
  28. Selection.WholeStory
  29. Selection.Copy
  31. Documents(current).Close (wdDoNotSaveChanges)
  32. Selection.Paste
  33. Selection.EndKey Unit:=wdLine
  34. Options.UpdateLinksAtOpen = True
  35. End If
  37. Next i
  39. End With
  40. Documents.Open FileName:=Name, ConfirmConversions:=False _
  41.         , ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
  42.         PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
  43.         WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
  44. ActiveDocument.Content.Select
  45. Selection.Fields.Update
  46. 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
Reply

Marsh Posté le 08-12-2006 à 15:48:51   

Reply

Marsh Posté le 08-12-2006 à 18:52:37    

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

Reply

Marsh Posté le 18-01-2007 à 12:11:04    

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.
 

Reply

Marsh Posté le 18-01-2007 à 13:58:30    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed