[VBA] Erreur 4248 : Aucun document n'est ouvert

[sadness78]

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.

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 Sub

Merci d'avance.

Cordialement,

Sad

 

[sadness78]

Re : [VBA] Erreur 4248 : Aucun document n'est ouvert

Bonjour le forum,

Travaillant toujours sur mon problème.

J'ai allégé un fichier pour plus de compréhension avec le même problème.

Merci d'avance,

Cdlt,

Sad