Discussion :

[Soticca]

Bonjour à tous,

J'ai un problème que je n'arrive pas à résoudre malgré tous mes essais.

Dans mon document, j'ai un signet "toto". Pendant mon traitement, à un moment je vais récupérer X enregistrements dans un recordset.

Je boucle donc dans ce recordset et à chaque passage, j'ouvre un fichier Excel, je copie une plage fixe et je la colle au niveau du signet "toto".

Aucun soucis pour le faire une fois mais en cas de multiple copier / coller je n'arrive pas à recréer le signet juste en dessous du collage. Voir même, insérez un saut de page et recréer le signet "toto".

J'ai essayé de sauvegarder la position du signet et ensuite de le recréer en rajoutant la longueur mais au lieu de me faire un simple signet de position, il m'englobe également ce que je viens de copier

Voici le code exécuté pendant la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
bookmarkPosition = ActiveDocument.Bookmarks("toto").Range.Start
ActiveDocument.Bookmarks("toto").Range.Select
xlApp.CutCopyMode = False
xlSheet.Range("A1:H28").Copy: Selection.PasteSpecial DataType:=wdPasteBitmap
ActiveDocument.Bookmarks.Add Name:="toto", Range:=ActiveDocument.Range(bookmarkPosition, bookmarkPosition + Len(bookmarkPosition))

Ps : j'avais posté dans le mauvais forum mais n'ayant pas vu comment déplacer mon sujet je l'ai recréé ici (et mis en résolu l'autre)

[Soticca]

Finalement, en ne mettant que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Bookmarks.Add Name:="toto"

Tout fonctionne impeccablement. Je met en "Résolu"