XL 2019 Copier /coller Excel word

ben haj salah · 29 Avril 2021

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,

job75 · 8 Mai 2021

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.

ben haj salah · 10 Mai 2021

job75 à dit:
elance la ma

job75 à dit:
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.

job75 à dit:
job75 à dit:

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.

Cliquez pour agrandir...

Merci pour votre aide et vos efforts

job75 · 12 Mai 2021

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 :

VB:

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 :

VB:

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+

XL 2019 Copier /coller Excel word

ben haj salah

XLDnaute Nouveau

Pièces jointes

job75

ben haj salah

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires