S
sadness78
Guest
Bonjour le forum,
J'ai un petit problème qui je pense ne sera pas trop difficile pour vous mais que je n'arrive pas à résoudre, je pense qu'il manque un "activate" à un endroit.
Si jamais vous avez besoin d'un fichier n'hésitez pas à demander.
Merci d'avance.
Cordialement,
Sad
J'ai un petit problème qui je pense ne sera pas trop difficile pour vous mais que je n'arrive pas à résoudre, je pense qu'il manque un "activate" à un endroit.
Si jamais vous avez besoin d'un fichier n'hésitez pas à demander.
Code:
Sub test()
Unload User_Contrat_LF
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("G:\OPERATIONS\OPS_Region_Europe\Lignes Financières\Production Pièces\Modèles\AGCS D&O wording CP-CS Protect.doc")
wrdApp.Visible = True
'wrdApp.Activate
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Title = "Sélectionner les fichiers à concaténer"
If fd.Show = -1 Then
For Each vFichier In fd.SelectedItems
With ActiveDocument.Content
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
.InsertFile Filename:=vFichier
End With
Next vFichier
End If
End SubMerci d'avance.
Cordialement,
Sad