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
|