Macro word Excel copier coller

Question

Bonjour j'ai une macro word qui appelle ne macro excel (jusque la pas de soucis ) la macro excel marche impecable mais quand je lance la macro word la zone copier d’agrandi je vous joint la macro word et apres celle excel

Sub observ()
'macro pour importer les noms d'usagers
Dim copier As String
Dim exl
Set exl = CreateObject("excel.application")
Application.DisplayAlerts = False
On Error Resume Next
 With exl
 .Visible = True
 .Workbooks.Open CEffectif
 .Run "copierAdos"
 .Workbooks(NEffectif).save
 '.Quit
 End With
 Documents("Transmission.docm").Activate
     Selection.Tables(1).Rows.SetLeftIndent LeftIndent:=-29, RulerStyle:= _
        wdAdjustNone
Application.ScreenUpdating = True
end sub

Sub copierAdos()
Dim DL As Long
Dim Wrd As Object
Dim WordDoc As Word.Document
Dim fceff As Worksheet
Set fceff = Worksheets("EffectifAdos")
Set Wrd = GetObject(, "word.Application")

On Error GoTo ErrorHandler
'fceff.Visible = True
DL = Cells(Application.Rows.Count, 2).End(xlUp).Row
fceff.Range("B3:B" & DL + 1).Copy

        Wrd.Documents("Transmission.docm").Select
        Wrd.Selection.Goto What:=wdGoToBookmark, Name:="Effectif"
        Wrd.Selection.PasteAndFormat (wdPasteDefault)

'fceff.Visible = False
ErrorHandler:
Exit Sub
End Sub

si vous avez une idee ^^"

(je joint pas les fichier car c'est compliquer a tous expliquer)

merci d'avance

Optimix · Answer

Mets toujours les fichiers sans explications, on verra bien...

Optimix · Answer

Ca commence mal avec une erreur fatale sur la ligne ActiveDocument.Tables(2).Rows(2).Cells(2).Select dans la routine datedemaj() Il ne trouve pas la collection table()...