thom02
XLDnaute Junior
Bonjour,
Je fais des copier/coller dans word depuis excel via des bookmarks.
Le problème est que le nombre de choses à copier/coller peut varier.
J'ai donc prévu dans mon code des bookmark qui s'incrémentent et dans mon word de nombreux bookmarks avec le meme nom incrémenté... maiiiis ce n'est pas très propre
Ces collés ont ceci en commun que je voudrais qu'ils soient chacun sur la premiere ligne d'une nouvelle page (saut de page).
Aussi, serait il possible de d'avoir un bookmark uniquement pour le premier signet et que dans ma boucle je colle tous les suivants à la page suivante au moyen d'un simple coller?
Voici mon code actuel qui copie colle tout à la suite...
James007 m'a montré le code suivant mais je ne sais pas comment l'intégrer et ne suis meme pas certain qu'il fasse ce que je souhaiterais..
merci pour votre aide
Je fais des copier/coller dans word depuis excel via des bookmarks.
Le problème est que le nombre de choses à copier/coller peut varier.
J'ai donc prévu dans mon code des bookmark qui s'incrémentent et dans mon word de nombreux bookmarks avec le meme nom incrémenté... maiiiis ce n'est pas très propre
Ces collés ont ceci en commun que je voudrais qu'ils soient chacun sur la premiere ligne d'une nouvelle page (saut de page).
Aussi, serait il possible de d'avoir un bookmark uniquement pour le premier signet et que dans ma boucle je colle tous les suivants à la page suivante au moyen d'un simple coller?
Voici mon code actuel qui copie colle tout à la suite...
Code:
Do While FeuilleExiste(Feuil49.Range("A" & i)) And i < 39
nom = Feuil49.Range("A" & i)
Set strTab = Sheets(nom)
ThisWorkbook.Sheets(strTab.Range(RechercheCoordoneesFin(Feuil49.Range("A" & i)))).Copy
LeDocWord.Bookmarks("TEST" & iBlock).Range.PasteSpecial Link:=False
Call ViderLePressePapier
Set strTab = Nothing
i = i + 1
iBlock = iBlock + 1
Loop
James007 m'a montré le code suivant mais je ne sais pas comment l'intégrer et ne suis meme pas certain qu'il fasse ce que je souhaiterais..
merci pour votre aide
Code:
With LeDocWord.Paragraphs(wdDoc.Paragraphs.Count).Range
.InsertParagraphBefore
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
End With