Pouvez vous me donner une explication.....

[rogber]

Je bug sur une partie de mon code
Je veux copier le contenu de ma feuille active (Ws) et la copier dans Word après le signet1
avec le code ci-dessous je récupère après le signet1 la valeur "vrai"

Pouvez vous me dire comment je doit déclarer "LaDonneeAcoller" pour avoir toutes les lignes de ma feuille
Merci d'avanc
Roger

Dim Ws As Worksheet
Dim s As Byte 's comme Signet
Dim NoLigne As Long, NoCol As Byte, LaDonneeAcoller
For Each Ws In ActiveWorkbook.Sheets
MsgBox Ws.Name
'ActiveSheet.Select
LaDonneeAcoller = Ws.Cells.Copy
MsgBox LaDonneeAcoller
'Ws.Select
'Ws.Cells.Copy
'For s = 1 To 20
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
'docWord.Bookmarks("Signet" & s).Select
'MsgBox docWord.Bookmarks("Signet" & s)

'docWord.Bookmarks("Signet" & s).Range.Font.Size = 20
'docWord.Bookmarks("Signet" & s).Range.Bold = True
'docWord.Bookmarks("Signet" & s).Range.Italic = True
'===============================================================


'En supposant que dans ton doc Word tu aies un signet nommé "Signet"
With appWrd
'.Selection.Goto What:=wdGoToBookmark, Name:="Signet1"
.Selection.Goto what:=wdGoToBookmark, Name:="signet1"
.Selection.InsertAfter LaDonneeAcoller
End With
'=========================

 

[camarchepas]

Re : Pouvez vous me donner une explication.....

Bonjour ,
il existe une session Word sur ce forum , donc pas vraiment à sa place ta question , de plus ,
l'on à vraiment pas envie de s'y coller sans avoir un exemple des fichiers

 

[rogber]

Re : Pouvez vous me donner une explication.....

Je pensais que c'était plutôt un problème vba Excel.
C'est vrai que je n'ai pas mis les fichiers en téléchargement.

Donc cela concerne le transfert de feuilles Excel dans Word par macro vba sur la base d'un Template avec des signets

Ci joint les fichiers Excel et Word
Mlles excuses
Roger