XL 2019 Copier /coller Excel word

[ben haj salah]

Bonjour,

Je cherche une macro qui me permet de copier les 4 premiers tableaux de la colonne (H à N) dans le fichier 2.xlsm et les coller dans le document p.dox (word )l'un après l'autre juste après le titre 1. GAMME dans le fichier word.
CELA EST IL POSSIBLE !
Merci à vous,

 

[ben haj salah]

elance la ma

images (Shapes) mais même quand je les supprime du fichier Word dès le début il arrive quand même qu'il y ait bouclage.

Bon j'ai trouvé, le bouclage n'était pas dû aux images.

Il provenait du fait que dans le fichier Word en 2ème page (Nomenclature) les sauts de ligne n'allaient pas jusqu'en bas de la page, un saut de page avait été inséré.

Utilisez le fichier Word joint; il n'y a plus de problème de bouclage.

Merci pour votre aide et vos efforts

 

[job75]

Bonjour ben haj salah,

Je reviens ici car la macro Epurer ne donnait pas satisfaction dans tous les cas.

Dans ce fichier (9) je l'ai remplacée par 2 macros :

- la 1ère qui s'applique aux pages 1 et 2 du fichier Word :

Sub EpurerA(Wdoc As Object, pos&, num%, signet)
Dim page%, r As Object
Wdoc.Range(pos, pos).Delete
page = Wdoc.Tables(num).Range.Information(1)
pos = Wdoc.Bookmarks(signet).Range.Start - 1
Set r = Wdoc.Range(pos, pos)
While r.Information(1) > page
    Wdoc.Application.Selection.Delete 'supprime le saut de ligne
Wend
End Sub

- la 2ème qui s'applique à la page 3 :

Sub EpurerB(Wdoc As Object, pos&, num%, signet)
Dim page%, r As Object
Wdoc.Range(pos, pos).Delete
page = Wdoc.Tables(num).Range.Information(1) + 1
Set r = Wdoc.Bookmarks(signet).Range
While r.Information(1) > page
    Wdoc.Application.Selection.Delete 'supprime le saut de ligne
Wend
End Sub

Notez qu'il n'est pas nécessaire d'ajouter des sauts de ligne en page 2 (Nomenclature).

A+